SUBROUTINE FOO ( X )

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