SUBROUTINE FOO ( X )

Argument Definitions (+ indicates altered content)
real              +X
Source file:t208i.f
Intrinsic Functions Called
generic            SQRT
External Functions and Subroutines Called
double precision   R1MACH