SUBROUTINE SURFIM ( YY, DLTETA, PSI )
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