SUBROUTINE GENOIS ( )

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)

SUBROUTINE GENOIS_OLD ( )

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)