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(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)