Argument Definitions (+ indicates altered content) REAL +DLTETA, +PSI, YY
Source file: surfim.f
Intrinsic Functions Called REAL ALOG GENERIC ATAN, SQRT
Local Variables (+ indicates altered content) REAL +DETAI, +DETAR, +DNM, +ETAI REAL +ETANI, +ETANR, +ETAR, +SRAG REAL +SRAG1, +SRAG2, +SRAQ
Referenced Common Block Variables (+ indicates altered content) SURF REAL COSTH, EPQ SURF REAL GAMMA, RNUMB SURF REAL RO, SINTH