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)