*-- Author : Stephen Burke SUBROUTINE FFTEXT *-----------------------------------------Updates 21/09/93------- **: FFTEXT.......SB. Turn off momentum cuts for zero field. *-----------------------------------------Updates 30/11/92------- **: FFTEXT.......SB. New steering cuts; FFRS bank format changed. *-----------------------------------------Updates 13/03/92------- **: FFTEXT 30205.SB. Suppress printout if IW(6).LE.0 *-----------------------------------------Updates 13/02/92------- **: FFTEXT 30205.SB. Steering banks/parameters modified. **: FFTEXT 30205.SB. Now protected against getting wrong version **: FFTEXT 30205.SB. of steering banks. **: FFTEXT 30205.SB. ERRLOG error numbers changed. **: FFTEXT 30205.SB. Printout format improved. *-----------------------------------------Updates 07/02/92------- **: FFTEXT 30205.SB. Add printout of main steering parameters. *-----------------------------------------Updates 24/01/92------- **: FFTEXT 30205.SB. Small bug fix in debug steering. *-----------------------------------------Updates---------------- ********************************************************************** * * * Initialise the Kalman filter using data read in from steering * * banks: * * * * FFTS - general steering flags * * FFTP - various parameters * * FFTM - `maps', i.e. parameters set for each wire plane * * * ********************************************************************** *KEEP,FKNPL. * * Per-track values can go in H1WORK; note that LTRUE and LFIRST must * be set at least per event. * * This is about 36k words long; the remaining common blocks are * about 3.6k in total. Some of this could be in /H1WORK/, but the * blocks would have to be reorganised. * * /FKPROJ/ * /FKFILT/ * /FKSMTH/ * /FKINT/ * /FKRSID/ * /FKTRUE/ * /FKDBG/ *KEEP,FFSTEE. *KEEP,FKCNTL. *KEEP,FKFLAG. *KEEP,FKCONS. *KEEP,FKRJCT. *KEEP,FKLERR. *KEEP,BCS. *KEND. ********************************************************************** CALL H1STOP * Get the steering bank CALL UGTBNK('FFTS',INDS) CALL ERRLOG(381,'F:FFTEXT: Wrong version of bank FFTS;'// CALL ERRLOG(382,'W:FFTEXT: Bank FFTS not found;'// * Don't cut on momentum if field is too small CALL VZERO(R,3) CALL GUFLD(R,B) * Decode diagnostic steering * Get the parameter bank CALL UGTBNK('FFTP',INDP) CALL ERRLOG(383,'F:FFTEXT: Wrong version of bank FFTP;'// CALL ERRLOG(384,'W:FFTEXT: Bank FFTP not found;'// * Get the map bank CALL UGTBNK('FFTM',INDM) CALL ERRLOG(385,'F:FFTEXT: Wrong version of bank FFTM;'// CALL ERRLOG(386,'W:FFTEXT: Bank FFTM not found;'// *Check print flag *