anchor.diff:  
         END IF
   
  -      gausses(LX)%pMaterial%mtype = mtype
  +      !gausses(LX)%pMaterial%mtype = mtype
   
         IF( isElastoplastic(mtype) ) THEN
           IF( PRESENT(tt) ) THEN
  
positive.code:       ! UPDATE STRAIN and STRESS
        ! ========================================================
  
        IF( isElastoplastic(gausses(LX)%pMaterial%mtype) &
            .OR. gausses(LX)%pMaterial%mtype == NORTON ) &
          gausses(LX)%pMaterial%mtype = ELASTIC
  
        EPSTH = 0.0D0
        IF( PRESENT(tt) .AND. PRESENT(t0) ) THEN
  
negative.code: 
        ELSE
  
          CALL MatlMatrix( gausses(LX), D3, D, tincr, coordsys, isEp=isEp)
  
        END IF
  
  