Source file:	t208j.f

Intrinsic Functions Called

GENERIC cos, sqrt

Local Variables (+ indicates altered content)

REAL +a