!====>Begin Module %MAIN                  File t208b.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)
!
!====>End Module   %MAIN                  File t208b.f