Description GENOIS for Power sum #1 = Spaulding's original with Caruana m This is the change per ITU submission to ITU-R P.372-8 April
Source file: genois.f
Intrinsic Functions Called DOUBLE PRECISION DLOG, DSQRT INTEGER IABS, MIN0 REAL ALOG, ALOG10, AMIN1 GENERIC ABS, EXP, SQRT
External Functions and Subroutines Called SUBROUTINE GAIN, GENFAM, GENOIS_OLD
Local Variables (+ indicates altered content) INTEGER +IM, +MA, +MAN REAL*8 +AL, +AL1, +AL2, +AL3 REAL +ATNOS, +ATNOS_SAV, ATNX, ATNZ REAL*8 +AU, +AU1, +AU2, +AU3 REAL +BFAC, +CFAC, +CONN(6), +DFAC REAL +DLA, +DLG, +DLM, DQ REAL +DUA, +DUG, +DUM, +DUME REAL DX REAL*8 +DXX, +DXX2, +DXX3 REAL GDUM, +PV, +QPA, +QPG REAL +QPM, +REFF, +RNSE, SIGSQ REAL*8 +SIGTSQL, +SIGTSQU REAL SIGX, SIGZ, +SLA, +SLG REAL +SLM, +SLOP, +SMA, +SMG REAL +SMM, +SUA, +SUG, +SUM REAL +SYGL1, +SYGL2, +SYGL3, +SYGU1 REAL +SYGU2, +SYGU3 REAL*8 +VL, +VL1, +VL2, +VL3 REAL*8 +VU, +VU1, +VU2, +VU3 REAL +XNINT(6), +XNOIS, +XRNSE
Referenced Common Block Variables (+ indicates altered content) ALPHA CHARACTER*5 NYEAR ANOIS INTEGER JK, KJ ANOIS REAL ATNU, ATNY ANOIS REAL CC, +DL ANOIS REAL +DU, +RCNSE ANOIS REAL +SIGM, +SYGL ANOIS REAL +SYGU, TM C_METHOD_USED INTEGER +METHOD_USED C_NOISE INTEGER +MODE_N2 C_NOISES REAL +XN_ATNOS, +XN_GALACTIC C_NOISES REAL +XN_MMN DON REAL RLAT FRQ REAL FREQ ION INTEGER NOISE RON INTEGER KFX RON REAL FI(3,5) TON REAL +GNOS, +XNOISE TON REAL +ZNOISE TWO REAL F2D(16,6,6) ZON REAL +EFF(7)
Source file: genois.f
Intrinsic Functions Called INTEGER IABS, MIN0 REAL ALOG, ALOG10, AMIN1 GENERIC ABS, EXP, SQRT
External Functions and Subroutines Called SUBROUTINE GAIN, GENFAM
Local Variables (+ indicates altered content) INTEGER +IM, +MA, +MAN REAL +AL, +AT, +ATNOS, ATNX REAL ATNZ, +AU, +BFAC, +CFAC REAL +CONN, +DFAC, +DLA, +DLG REAL +DLM, DQ, +DUA, +DUG REAL +DUM, +DUME, DX, GDUM REAL +PV, +QPA, +QPG, +QPM REAL REFF, SIGSQ, +SIGTSQ, SIGX REAL SIGZ, +SLA, +SLG, +SLM REAL +SLOP, +SMA, +SMG, +SMM REAL +SUA, +SUG, +SUM, +VL REAL +VU, +XNINT(4), +XNOIS, +XRNSE
Referenced Common Block Variables (+ indicates altered content) ANOIS INTEGER JK, KJ ANOIS REAL ATNU, ATNY ANOIS REAL CC, +DL ANOIS REAL +DU, +RCNSE ANOIS REAL +SIGM, +SYGL ANOIS REAL +SYGU, TM DON REAL RLAT FRQ REAL FREQ ION INTEGER NOISE METSET INTEGER ITRUN RON INTEGER KFX RON REAL FI(3,5) TON REAL +GNOS, +XNOISE TON REAL +ZNOISE TWO REAL F2D(16,6,6) ZON REAL +EFF(7)