c====>Begin Module FOO                    File t208i.f                  
c---->Makedcls Options: All variables                                   
c
c     External functions
c
      EXTERNAL            R1MACH
c
      DOUBLE PRECISION    R1MACH
c
c     Argument variables
c
      REAL                X
c
c====>End Module   FOO                    File t208i.f