C====>Begin Module %MAIN                  File t208b.f                  
C---->Makedcls Options: All variables except SFTRAN3 internals          
C
C     Intrinsic functions
C
      INTRINSIC           COS,         SIN,         SQRT
C
C     External functions
C
      EXTERNAL            MYSQRT,      MYSUB
C
      REAL                MYSQRT
C
C     Parameter variables
C
      INTEGER             NPI
      PARAMETER           (NPI = 9)
C
C====>End Module   %MAIN                  File t208b.f                  
