!====>Begin Module %MAIN                  File t208j.f                  
!---->Makedcls Options: All variables                                   
!
!     Intrinsic functions
!
  INTRINSIC           SQRT
!
!     Local variables
!
  REAL                A
!
!====>End Module   %MAIN                  File t208j.f