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