*====>Begin Module %MAIN                  File t208e.f                  
*---->Makedcls Options: All variables                                   
*
*     Local variables
*
      CHARACTER           C
      CHARACTER*81        LINE
*
      COMPLEX             Z,           ZZ
*
      DOUBLE COMPLEX      ZZZ,         ZZZZ
*
      DOUBLE PRECISION    D(10,20,30), E(40,50),    F(60)
*
      INTEGER             I,           J,           K,           M
*
      LOGICAL             LOGVAR
*
      REAL                R,           S(70,80)
*
*====>End Module   %MAIN                  File t208e.f                  
*====>Begin Module SUB                    File t208e.f                  
*---->Makedcls Options: All variables                                   
*
*     Local variables
*
      REAL                X,           Y,           Z
*
*     Common variables
*
      REAL                A,           B,           C
*
      COMMON / SHARE  /   A,           B,           C
*
*====>End Module   SUB                    File t208e.f                  
*====>Begin Module FUN                    File t208e.f                  
*---->Makedcls Options: All variables                                   
*
*     Local variables
*
      REAL                X,           Y,           Z
*
*     Common variables
*
      REAL                A,           B,           C
*
      COMMON / SHARE  /   A,           B,           C
*
*====>End Module   FUN                    File t208e.f                  
*====>Begin Module BAR                    File t208e.f                  
*---->Makedcls Options: All variables                                   
*
*     Intrinsic functions
*
      INTRINSIC           COS,         SIN,         SQRT
*
*     External functions
*
      EXTERNAL            MYSQRT,      MYSUB
*
      REAL                MYSQRT
*
*     Parameter variables
*
      INTEGER             NPI
      PARAMETER           (NPI = 9)
*
      REAL                PI
      PARAMETER           (PI = 3.14159265)
*
*====>End Module   BAR                    File t208e.f