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