120 input.f /^ 20 CONTINUE$/;" l file: 240 input.f /^ 40 CONTINUE$/;" l file: 360 input.f /^ 60 CONTINUE$/;" l file: 480 input.f /^ 80 CONTINUE$/;" l file: 599996 input.f /^99996 FORMAT (1X,F8.2,3F13.5)$/;" l file: 699997 input.f /^99997 FORMAT (1X,A,3F13.5)$/;" l file: 799998 input.f /^99998 FORMAT (1X,A,F7.3)$/;" l file: 899999 input.f /^99999 FORMAT (1X,A,D8.1)$/;" l file: 999999 input.f /^99999 FORMAT (1X,F8.2,3F13.5)$/;" l subroutine:OUT file: 10D02CJW input.f /^ DOUBLE PRECISION D02CJW,/;" v 11FCN input.f /^ STDCALL SUBROUTINE FCN(/;" s 12G input.f /^ DOUBLE PRECISION D02CJW, G,/;" v 13G input.f /^ STDCALL DOUBLE PRECISION FUNCTION G(/;" f 14H input.f /^ DOUBLE PRECISION H,/;" v 15I input.f /^ IN/;" v 16IFAIL input.f /^ INTEGER I, IFAIL,/;" v 17IW input.f /^ INTEGER N, IW$/;" v 18J input.f /^ INTEGER I, IFAIL, J$/;" v 19K input.f /^ INTEGER K$/;" v 20N input.f /^ INT/;" v 21NOUT input.f /^ INTEGER NOUT$/;" v 22OUT input.f /^ STDCALL SUBROUTI/;" s 23PI input.f /^ DOUBLE PRECISION PI,/;" v 24RELABS input.f /^ CHARACTER RELABS*/;" v 25TOL input.f /^ DOUBLE PRECISION PI, TOL,/;" v 26W input.f /^ DOUBLE PRECISION W(/;" v 27X input.f /^ DOUBLE PRECISION PI, TOL, X$/;" v 28X01AAF input.f /^ DOUBLE PRECISION D02CJW, G, X01AAF$/;" v 29XEND input.f /^ DOUBLE PRECISION H, XEND$/;" v 30Y input.f /^ DOUBLE PRECISION W(IW), Y(/;" v 31