+PATCH,$CORR.
+DECK,CORR1.                     Updates version:  1.36/00  to   1.36/01
+REP,*TITLE*,TITLE,1.
GTRAK     1.36/01  14/02/96  17.48.21  GLOBAL TRACKING SOFTWARE
+REP,$VERSION,V1_36,1-2.
*CMZU:  1.36/01 14/02/96  17.48.21  by  Unknown
*CMZU:  1.36/00 21/12/95  18.48.56  by  Christian Voelcker
*-- Author :    Christian Voelcker   21/12/95
*
*::>          VERSION  1.36/01   14/02/96 17.48.21
*		installed by BK
*		6/2/96 F.-H.Heinsius
*		Save the old global vertex bank, if locater
*		vertex does not exist because locater was not enabled.
+ADD,GTPROGRM,GTBANK,0.
*CMZU:  1.36/01 07/02/96  11.23.28  by  F.-H.Heinsius
+ADD,GTPROGRM,GTBANK,127.
*                   6/2/96 F.-H.Heinsius
*                   Save the old global vertex bank, if locater
*                   vertex does not exist because locater was not enabled.
*
+REP,GTPROGRM,GTBANK,215-217.
&SEQ,TCFLAG.
&SEQ,BCFLAG.
*
      INTEGER  ND
+REP,GTPROGRM,GTBANK,223-227.
     >         NPEDS,LINK,ITVTV,IVRTX,
     >         ITVVH,ITCVH,ILH
      REAL     CHI2
+REP,GTPROGRM,GTBANK,237.
      INTEGER  NNTKS,IVERSQ,ICD, NENT, NPBS, IERR
+ADD,GTPROGRM,GTBANK,267.

*
*        If locater was not (re)tracked and no locater vertex bank exists,
*        save the global tracking vertex bank.
*
      IF (LTCVX.EQ.0 .AND. LTVTX.NE.0 .AND. .NOT. TRAKTC) THEN


         CALL ZSHUNT(IXSTOR,LTVTX,LHTRK,-1,1)
*
*        If BCTRAK was (re)tracked update the neutral vertex info:
*
         IF (PEDSBC) THEN
*
*        Is there an old neutral vertex bank?
*
            ITVTV = LQ(LTVTX-IQ(LTVTX+1))
            IF (IQ(ITVTV+3).NE.1000) ITVTV=0

            IF (ITVTV.EQ.0) THEN
               IF (IQ(LTVTX+1).LE.0) THEN
                  IQ(LTVTX+1) = 1
               ELSE
                  IQ(LTVTX+1) = IQ(LTVTX+1) + 1
               ENDIF

*              Make sure there is enough link space.
               IF (IQ(LTVTX-2) .LT. IQ(LTVTX+1)) THEN
                CALL MZPUSH(IXTVTX,LTVTX, IQ(LTVTX+1)-IQ(LTVTX-2),0,' ')
               ENDIF

               MTVTV(1) = MHOL
               CALL UCOPY(MTCVT(2),MTVTV(2),3)
               NMX = 10
               CALL MZIOBK(MTVTV,NMX,'4I 10F')
               CALL MZLIFT(IXTVTX,ITVTV,LTVTX,-IQ(LTVTX+1),MTVTV,0)

            ENDIF
            IQ(ITVTV+3) = 1000
            Q(ITVTV+5)  = VRTXBC(1)
            Q(ITVTV+6)  = VRTXBC(2)
            Q(ITVTV+7)  = VRTXBC(3)
         ENDIF
         GOTO 600
      ENDIF

+ADD,GTPROGRM,GTBANK,448.

*     end skip copy of TVTV banks.
 600  CONTINUE
+REP,GTPROGRM,GTBANK,941.
      IQ(LHTRK+2) = IQ(LTVTX+1)
+REP,GTPROGRM,GTBANK,950-951.
      IF (LTCVX.NE.0) THEN
         ITCVT = LQ(LTCVX-1)
         IQ(ITCVT+2) = NPBS
      ENDIF
+ADD,GTPROGRM,GTRACK,0.
*CMZU:  1.36/01 07/02/96  11.16.46  by  F.-H.Heinsius
+ADD,GTPROGRM,GTRACK,35.
*                  Feb  6/96, F.-H.Heinsius
*                  Do not remove global vertex bank, if locater
*                  vertex does not exist because locater was not enabled.
*
+REP,GTPROGRM,GTRACK,41-42.
&SEQ,TCFLAG.
      INTEGER  IER
      INTEGER  JTTKS,I,L
+REP,GTPROGRM,GTRACK,52.
      IF (RTRKGT.AND.LHTRK.GE.0) THEN
         IF (LTCVX.EQ.0 .AND. LTVTX.NE.0 .AND. .NOT. TRAKTC) THEN
C
C-->  drop everything, but detach TVTX vertex bank first.
C
            CALL ZSHUNT(IXSTOR,LTVTX,L,2,1)
            CALL MZDROP(IXSTOR,LHTRK,'LV')
            LHTRK = 0
         ELSE
            CALL MZWIPE(IXHTRK)
         ENDIF
      ENDIF