SUBROUTINE KSFITP(IMAX, EPS) C C >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> C Sets fitting parameters C C IMAX integer variable (read) C Max number of iterations for fit C C EPS real variable (read) C Stop iterating fit when delta(chisq) < EPS C >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>