C====>Begin Module FOO                    File t208h.f                  
C---->Makedcls Options: All variables except SFTRAN3 internals          
C
C     External functions
C
      EXTERNAL            R1MACH
C
      REAL                R1MACH
C
C     Argument variables
C
      REAL                X
C
C====>End Module   FOO                    File t208h.f