anchor.diff:  C CONDUCT TRACKING WITHIN ELEMENT M
   C
   C MWF GET RID OF MAXPT,KPATH ARGS
  -                  CALL ELTRAK123A
  +                  CALL ELTRAK123ANEW
        I             (MAXEQ,MAXND,NPT,NEQ,NODE,
        I              IPT, T1,T2, DEQ,DN_SAFE,
        I              ZEROTOL,IDVT,
  
positive.code:      O         IDSDT,XPT,TPT,I1,I2,I3)
  CMWF          NPATH(IPT)=KPATH
  C
  C MWF DEBUG
  C          WRITE(LU_O,*)' AFTER I1.NE.0 ELTRACK ELEMENT LOOP T= '
  C     &         ,T,' IDSDT= ',IDSDT,' TPT= ',TPT(IPT),' IPT= ',IPT
  C     &         ,' M= ',M
  C          WRITE(LU_O,*)' I1= ',I1,' I2= ',I2,' I3= ',I3
  C          DO K=1,NEQ
  C             WRITE(LU_O,*)' XPT(',K,',',IPT,')= ',XPT(K + IPT*MAXEQ)
  C          ENDDO
            IF(IDSDT.EQ.-1)THEN
              MPT(IPT)=M
  C 0 -- INTERIOR
  
negative.code: CMWF SKIP NPATH FOR NOW
  C                NPATH(IPT)=KPATH
  C
                  IF(IVERBOSE.GT.2) THEN
  C MWF DEBUG
                     WRITE(LU_O,*)' AFTER I2.NE.0 ELTRACK ELEMENT LOOP',
       &               ' T= ',T,' IDSDT= ',IDSDT,' TPT= ',TPT(IPT),
       &               ' IPT= ',IPT,' M= ',M
                     WRITE(LU_O,*)' I1= ',I1,' I2= ',I2,' I3= ',I3
                     DO K=1,NEQ
                        WRITE(LU_O,*)' XPT(',K,',',IPT,')= ',
       &                     XPT(K+(IPT-1)*MAXEQ)
                     ENDDO
                  ENDIF
                  IF(IDSDT.EQ.-1)THEN
                    MPT(IPT)=M
  C 0 -- INTERIOR
  