subroutine s_initialize_fitting * This subroutine does the MINUIT initialization for track fitting * * d.f. geesaman 8 Sept 1993 * $Log: s_initialize_fitting.f,v $ * Revision 1.3 1996/09/05 20:09:06 saw * (JRA) Cosmetic * * Revision 1.2 1995/05/22 19:45:41 cdaq * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts" * * Revision 1.1 1994/02/21 16:14:30 cdaq * Initial revision * * implicit none external S_FCNCHISQ real*8 S_FCNCHISQ include "sos_data_structures.cmn" include "sos_tracking.cmn" * local variables integer*4 ierr,dummy integer*4 mlunin,mlunsave real*8 arglis(10) parameter(mlunin=5) parameter(mlunsave=10) * initialize MINUIT lun settings call MNINIT(mlunin,sluno,mlunsave) * set print to -1 (no output) arglis(1)=-1 call MNEXCM(S_FCNCHISQ,'SET PRI',arglis,1,ierr,dummy) call MNSETI( ' Track fitting in SOS Spectrometer') return end