Source t208w.f

### 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
>     PRES               DOUBLE PRECISION   P

### 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