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)