+PATCH,$CORR. +DECK,CORR1. Updates version: 3.08/00 to 3.08/02 +REP,*TITLE*,TITLE,1. * CBKFIT 3.08/02 16/05/95 12.22.34 +REP,$VERSION,V3_08,1-4. *CMZU: 3.08/02 16/05/95 12.22.34 by Pal Hidas *CMZ : 3.08/01 15/05/95 16.02.01 by Pal Hidas *CMZ : 3.08/00 25/04/95 12.08.53 by Pal Hidas *-- Author : Pal Hidas 25/04/95 * *::> VERSION 3.08/02 16/05/95 12.22.34 * some additional bugs fixed (zebra banks in case >= 9) * *::> VERSION 3.08/01 15/05/95 16.02.01 * some bugs are fixed (I forgot to fill the vertex and its * pulls to the zebra banks for case=9,10) * *::> VERSION 3.08/00 25/04/95 12.08.52 +REP,CBHYPO,CFZINI,1-12. *CMZU: 3.08/02 16/05/95 11.31.45 by Pal Hidas *CMZ : 2.18/01 25/05/94 15.39.09 by Pal Hidas *CMZ : 2.17/00 20/05/94 19.36.09 by Pal Hidas *CMZ : 2.16/01 17/05/94 16.47.32 by Pal Hidas *CMZU: 2.14/05 24/11/93 13.59.38 by Pal Hidas *CMZ : 2.07/01 12/02/92 14.45.11 by Pal Hidas *CMZ : 2.04/01 16/11/91 13.47.26 by Pal Hidas *CMZU: 2.03/00 09/08/91 14.56.50 by PAL HIDAS *CMZU: 2.01/00 12/06/91 22.12.19 by PAL HIDAS *CMZU: 2.00/00 31/05/91 16.12.28 by PAL HIDAS *CMZ : 1.02/00 10/01/91 14.42.00 by PAL HIDAS *CMZ : 1.01/00 05/12/90 06.39.25 by Gunter Folger *-- Author : +REP,CBHYPO,CFZINI,67. 10 CONTINUE +REP,CBHYPO,CFZINI,75. CALL MZFORM('KSUB','14F 1I / 1I 8F',MKSUB(5)) +ADD,CBHYPO,CFZOUT,0. *CMZU: 3.08/02 16/05/95 11.57.30 by Pal Hidas *CMZ : 3.08/01 15/05/95 15.48.08 by Pal Hidas +REP,CBHYPO,CFZOUT,160. ELSEIF(CFVERA.OR.CFKS00.OR.CFKSKM.OR.KSKBCF.NE.0) THEN +REP,CBHYPO,CFZOUT,169. Q(LKSUB+4)=X(NVAR-4) +ADD,CBHYPO,CFZOUT,227. C...NEW MISSING PARTICLE FIT (CASE.GE.9) IF(MISSI0.EQ.NXTCMB(I).AND.CASE.GE.9) THEN IQ(LKSUB+IFP+1)=-1 ENDIF