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)