PROGRAM %MAIN ( )

Source file:t208j.f
Intrinsic Functions Called
GENERIC  COS,  SQRT
Local Variables (+ indicates altered content)
REAL +A