PROGRAM TON DIMENSION X(2),Y(2),GX(2) IOBF=1 IDER=1 X(1)=-1.2 X(2)=1.5 CALL VARMT1(X,Y,FY,GX,2,5000,ICOVG,0.000001,1) WRITE(6,1)Y,FY,ICOVG 1 FORMAT(5X,3E21.10,2X,I5//) STOP END