!====>Begin Module S                      File t208w.f                  
!---->Makedcls Options: All variables                                   
!
!     Intrinsic functions
!
  INTRINSIC           DSIN
!
!     External functions
!
  EXTERNAL            EXTSUB
!
  DOUBLE PRECISION    DFLOAT,      DSQRT
!
!     Argument variables
!
  DOUBLE PRECISION    X
!
!     Local variables
!
  DOUBLE PRECISION    Y
!
!     Common variables
!
  INTEGER             A,           B,           C
!
  COMMON / ONE    /   A,           B,           C
!
!     Common variables
!
  INTEGER             G,           H,           I
!
  REAL                U,           V,           W
!
  COMMON / THREE  /   G,           H,           I,           U
  COMMON / THREE  /   V,           W
!
!     Common variables
!
  INTEGER             D,           E,           F
!
  COMMON / TWO    /   D,           E,           F
!
!====>End Module   S                      File t208w.f                  
!====>Begin Module %MAIN                  File t208w.f                  
!---->Makedcls Options: All variables                                   
!
!     Parameter variables
!
  INTEGER             L2NG
  PARAMETER           (L2NG = 6)
  INTEGER             NG
  PARAMETER           (NG = 2**L2NG)
  INTEGER             NB
  PARAMETER           (NB = NG+2)
  INTEGER             NGM1
  PARAMETER           (NGM1 = NG-1)
  INTEGER             NBP1
  PARAMETER           (NBP1 = NB+1)
!
!     Common variables
!
  DOUBLE PRECISION    F(0:NBP1,0:NBP1,2)
!
  COMMON / FORCE  /   F
!
!     Equivalenced common variables
!
  DOUBLE PRECISION    W1(0:NBP1,0:NBP1,1:2),    W2(0:NBP1,0:NBP1,1:2)
!
!     Common variables
!
  DOUBLE PRECISION    P(0:NBP1,0:NBP1)
!
  COMMON / PRES   /   P
!
!     Equivalenced common variables
!
  DOUBLE PRECISION    D(0:NBP1,0:NBP1)
!
!====>End Module   %MAIN                  File t208w.f                  
!====>Begin Module %MAIN                  File t208w.f                  
!---->Makedcls Options: All variables                                   
!
!     Common variables
!
  DOUBLE PRECISION    X(10)
!
  COMMON / ONE    /   X
!
!     Equivalenced common variables
!
  DOUBLE PRECISION    Y
!
!====>End Module   %MAIN                  File t208w.f                  
!====>Begin Module %MAIN                  File t208w.f                  
!---->Makedcls Options: All variables                                   
!
!     Common variables
!
  DOUBLE PRECISION    X(10)
!
  COMMON / ONE    /   X
!
!     Equivalenced common variables
!
  DOUBLE PRECISION    Y(1),        Z(2)
!
!====>End Module   %MAIN                  File t208w.f