anchor.diff:        ELSE
            TERM4 = (SE - (1.D0 + S + 0.5*S**2 + ONESIXTH*S**3))/(VX**4)
         ENDIF
  -      IF (SMAG.LT.(120.D0*ZEROTOL)*(0.2D0)) THEN
  +      IF (SMAG.LT.(120.D0*ZEROTOL)**(0.2D0)) THEN
            TERM5 = DT**(3.D0)*(ONESIXTH + ONE24*S)
         ELSE
            TERM5 = (SE - (1.D0 + S + 0.5*S*S))/(VX**3)
  
positive.code:      O                 I1,I2,I3)
                    IDSDT=0
  
                    IDSDT=0
                    IF (IDEBUG.GT.0) THEN
  C MWF DEBUG
                       WRITE(6,*)' ELTRAK DN_CHECKA LEAVING IDSDT= ',
  
negative.code: C
  C PYADH HAD               IF(DABS(D2).GT.DN_SAFE)THEN
  C                  CALL DN_CHECKA
  C     I                 (MAXND,NODE,NEQ, DL,ZEROTOL,
  C     I                 DN_S,
  C     O                 I1,I2,I3)
                 IF(DABS(D2*DL).GT.ZEROTOL)THEN
  