anchor.diff:  CMWF SKIP NPATH FOR NOW
   C                NPATH(IPT)=KPATH
   C
  +                IF (IVERBOSE.GE.5) THEN
   C MWF DEBUG
  -C                WRITE(LU_O,*)' AFTER I2.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,')= ',
  -C     &                  XPT(K + IPT*MAXEQ)
  -C                ENDDO
  +                   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*MAXEQ)
  +                   ENDDO
  +                ENDIF
  +C
                   IF(IDSDT.EQ.-1)THEN
                     MPT(IPT)=M
   C 0 -- INTERIOR
  
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:             IVDOF = VTL2G(K + NEQ*(J-1) + NEQ*NNDE*(M-1))
              VT1W(K,J)=VT1E(IVDOF)*DIR
              VT2W(K,J)=VT2E(IVDOF)*DIR
  C MWF DEBUG
              WRITE(6,*)'EL_VEL_PREP IDVE.EQ.2 M= ',M,' J= ',J,
       &           ' IEM= ',IEM,' XW(',K,',',J,')= ',XW(K,J),
       &           ' IVDOF= ',IVDOF,' VT1W(',K,',',J,')= ',VT1W(K,J),
       &           ' VT2W(',K,',',J,')= ',VT2W(K,J)
  C MWF DEBUG            
            ENDDO
          ENDDO
        ELSE IF (IDVE.EQ.3) THEN
  