+PATCH,$CORR.
+DECK,CORR1.                     Updates version:  3.10/00  to   3.11/00
+REP,*TITLE*,TITLE,1.
* CBKFIT   3.11/00  16/04/97  11.37.56
+ADD,CFCOMMON,CFCOMMON,0.
*CMZ :  3.11/00 16/04/97  11.32.54  by  Pal Hidas
+REP,CFCOMMON,CFCOMMON,95-99.
     R       ,CHISQ,CUTCL,CFBEAM,CFMISM,CFVTER,CFMIER,CFMISX,VRTKCF
     L       ,MISGAM,MISSKL,MISNEU,MISPRO,CFTRHY,CFTRSU,CFDBUG
     L       ,FPUTZ,CFVERT,CFVRTZ,CFSUPC,CFDEUT,CFORCE,CFGCOV
     L       ,CFIGNR,CFVERZ,CFVERA,CFKS00,CFCHCR,CFKSCC
     L       ,CFCOLL,CFKSKM,CFKSKS,CFCHCV,CFSCAN
+REP,CFCOMMON,CFCOMMON,106-109.
      REAL    VRTKCF(3)
      LOGICAL MISGAM,MISSKL,MISNEU,MISPRO,CFTRHY,CFTRSU,CFDBUG
      LOGICAL FPUTZ,CFVERT,CFVRTZ,CFSUPC,CFDEUT,CFORCE,CFGCOV
      LOGICAL CFIGNR,CFVERZ,CFVERA,CFKS00,CFCHCR,CFKSCC
      LOGICAL CFCOLL,CFKSKM,CFKSKS,CFCHCV,CFSCAN
+ADD,CFCOMMON,CFCOMMON,158.
*     CFSCAN   : Kshort vertex scan
+ADD,CBKFIT,CFKINI,0.
*CMZ :  3.11/00 15/04/97  12.58.38  by  Pal Hidas
+ADD,CBKFIT,CFKINI,65.
&SEQ,PI2PI.
+ADD,CBKFIT,CFKINI,560.
         IF(X(3*NPART-2).LT.0.D0) X(3*NPART-2)=X(3*NPART-2)+DPI2
+ADD,CBHYPO,CFDOHY,0.
*CMZ :  3.11/00 15/04/97  12.49.42  by  Pal Hidas
+REP,CBHYPO,CFDOHY,190-194.
C     IF(CFSUPC) THEN
C      DO IC=1,NPART
C       NXTCMB(IC)=IC
C      ENDDO
C     ENDIF
+ADD,CBHYPO,CFINIT,0.
*CMZ :  3.11/00 16/04/97  11.25.34  by  Pal Hidas
+ADD,CBHYPO,CFINIT,115.
      CFSCAN=.FALSE.
+ADD,CBHYPO,CFINIT,157.
      DO I=1,3
       VRTKCF(I)=0.
      ENDDO
C
+ADD,CBHYPO,CFDOFI,0.
*CMZ :  3.11/00 15/04/97  10.30.25  by  Pal Hidas
+ADD,CBHYPO,CFDOFI,108.
      WRITE(LDBG,'('' CFSUPC='',L4)') CFSUPC
+ADD,CBHYPO,CFDOFI,434.
      IF(CFSCAN) CALL CFKPAR
C
+ADD,CBHYPO,CFVPAR,0.
*CMZ :  3.11/00 15/04/97  13.11.22  by  Pal Hidas
+REP,CBHYPO,CFVPAR,48.
      IF(PH.LT.0.) PH=PH+PI2
+ADD,CBHYPO,CFLOCV,0.
*CMZ :  3.11/00 15/04/97  13.00.25  by  Pal Hidas
+ADD,CBHYPO,CFLOCV,207.
      IF(CHVPAR(1,I).LT.0.) CHVPAR(1,I)=CHVPAR(1,I)+PI2
+ADD,CBHYPO,CFNECR,0.
*CMZ :  3.11/00 15/04/97  13.13.09  by  Pal Hidas
+REP,CBHYPO,CFNECR,62.
      IF(PH.LT.0.) PH=PH+PI2
+ADD,CBHYPO,CFKPAR,*.
&DECK,cfkpar.
*CMZ :  3.11/00 16/04/97  11.29.47  by  Pal Hidas
*-- Author :    Pal Hidas   14/04/97
      SUBROUTINE CFKPAR
*
*          Author:          Pal Hidas
*
*          Creation date:   14 April,  1997
*
*          References:
*
*          Description:     This routine overwrites the input parameters
*                           for user performed Kshort vertex scan
*
*          Subroutines referenced: CFSHOW
*
&SEQ,IMPNONE.
&SEQ,PI2PI.
&SEQ,CBLINK.
&SEQ,CBUNIT.
&SEQ,CFPARA.
&SEQ,CFVARS.
&SEQ,SQUIDC.
&SEQ,CFSTER.
&SEQ,CFCOMB.
      REAL    RSM,XSM,YSM,ZSM,RV,XV,YV,ZV,LA,PH,QP,QL
      INTEGER I,JTTKS,N1,N2
C
      IF(CFDBUG) THEN
       WRITE(LDBG,'('' CFKPAR CALLED '')')
       WRITE(LDBG,'('' VRTKCF :'',3E14.4)') (VRTKCF(I),I=1,3)
      ENDIF
C
      N1=NPART-3
      N2=NPART
C
      DO 10 I=N1,N2
C
      JTTKS=LQ(LTTKS-IQ(LTTKS-2)-MEASCO(NXTCMB(I)))
C
      CALL CFSHOW(JTTKS,RSM,XSM,YSM,ZSM)
C
      XV=VRTKCF(1)
      YV=VRTKCF(2)
      ZV=VRTKCF(3)
C
      XV=XSM-XV
      YV=YSM-YV
      ZV=ZSM-ZV
      RV=SQRT(XV**2+YV**2+ZV**2)
C
      LA=ASIN(ZV/RV)
      PH=ATAN2(YV,XV)
      IF(PH.LT.0.) PH=PH+PI2
C
      QP=Q(JTTKS+43)
      QL=PIHLF-Q(JTTKS+44)
C
      XM(1+3*(NXTCMB(I)-1))=PH
      XM(2+3*(NXTCMB(I)-1))=LA
C
10    CONTINUE
C
      RETURN
      END
+ADD,$VERSION,V3_11,*.
&DECK,V3_11.
*CMZ :  3.11/00 16/04/97  11.37.56  by  Pal Hidas
*-- Author :    Pal Hidas   16/04/97
*
*::>          VERSION  3.11/00   16/04/97 11.37.56
*
*   Kshort vertex scan,  see section 4.8 in the manual
*
*   This is a CASE=1 basic fit which includes some tuning of the data to
*   the presumed neutral secondary vertex. No missing particle is allowed
*   here, i.e. there must be another charged $K^{\circ}_{short}$ in the
*   event, whose charged pion paparmeters you can also tune to that second
*   secondary vertex (called charged correction in section 4.5).
*
*   logical variable CFSCAN and real array VRTKCF inserted into CFVARS
*   in CFCOMS