& epsg,
_RL epsg
& epsf, epsx, epsg,
epsg = 1.e-6
epsg = eps
& , epsx, fmin, epsg
$ , ' precision on g....................', epsg
if (epsg .le. 0.) then
print '(a,e9.2)', ' ERROR : epsg = ', epsg
if (epsg .gt. 1.) then
$ , epsx, fmin, epsg
if (eps1 .lt. epsg) then
epsg = eps1
double precision xx(nn), ff, gg(nn), epsx, fmin, epsg
$ , ' relative precision on g...........', epsg