DOUBLE PRECISION FUNCTION S ( X )
Argument Definitions (+ indicates altered content)
DOUBLE PRECISION   X
Description
ftnchek test file: t208w.f, Mon Mar 13 14:01:03 1995
Source file:t208w.f
Intrinsic Functions Called
DOUBLE PRECISION   DFLOAT,     DSQRT
SUBROUTINE         DSIN
External Functions and Subroutines Called
SUBROUTINE         EXTSUB,     SUBEXT
Local Variables (+ indicates altered content)
DOUBLE PRECISION  +Y
Referenced Common Block Variables (+ indicates altered content)
ONE                INTEGER            A,         B,              C
TWO                INTEGER            D,         E,              F

PROGRAM %MAIN ( )
Source file:t208w.f
External Functions and Subroutines Called
SUBROUTINE         FOO
Parameter Variables Used
INTEGER            L2NG               (L2NG = 6)
INTEGER            NG                 (NG = 2**L2NG)
INTEGER            NB                 (NB = NG+2)
INTEGER            NBP1               (NBP1 = NB+1)
Referenced Equivalenced Variables (+ indicates altered content)

EQUIV              DOUBLE PRECISION   D()        Local Var
                   DOUBLE PRECISION   P()        COMMON /PRES/
EQUIV              DOUBLE PRECISION   F()        COMMON /FORCE/
                   DOUBLE PRECISION   W2()       Local Var
                   DOUBLE PRECISION   W1()       Local Var
Referenced Common Block Variables (+ indicates altered content)
FORCE              DOUBLE PRECISION   F(0:NBP1,0:NBP1,2)
PRES               DOUBLE PRECISION   P(0:NBP1,0:NBP1)

PROGRAM %MAIN ( )
Source file:t208w.f

PROGRAM %MAIN ( )
Source file:t208w.f
External Functions and Subroutines Called
SUBROUTINE         SUBRTN
Referenced Equivalenced Variables (+ indicates altered content)

EQUIV              DOUBLE PRECISION   X()        COMMON /ONE/
                   DOUBLE PRECISION   Z()        Local Var
                   DOUBLE PRECISION   Y()        Local Var
Referenced Common Block Variables (+ indicates altered content)
ONE                DOUBLE PRECISION   X(10)