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