Argument Definitions (+ indicates altered content) INTEGER K
Description THIS ROUTINE COMPUTES THE DEVIATIVE LOSS FACTOR THIS IS ZERO EXCEPT FOR THOSE MODES COMING FROM HEIGHTS ABOVE THAT CORRESPONDING TO THE MUF (HIGH ANGLE MODES) THE ADJUSTMENT IS BASED ON A THEORETICAL EQUATION THE LOSS IS PROPORTIONAL TO THE PRODUCT OF THE AVERAGE COLLISION FREQUENCY AND THE DIFFERENCE BETWEEN THE GROUP PATH AND THE PHASE PATH BUT IS NORMALIZED TO THE LOSS EQUATION
Source file: alosfv.f
Intrinsic Functions Called REAL AMAX1 GENERIC EXP
Local Variables (+ indicates altered content) INTEGER +IH REAL +A(3), +CF, +HM(2), +HTM REAL +HTP, +HZ, +ZEXP
Referenced Common Block Variables (+ indicates altered content) MUFS REAL HPMUF(4), HTMUF(4) RON REAL +AFAC(30,5) RON REAL FI(3,5), HI(3,5) RON REAL HPRIM(30,5) RON REAL HTRUE(30,5) RON REAL YI(3,5)