anchor.diff:                    ! create a new property set 
                     ! k, E, G, rho, d, t, Init                
                     kprop = kprop + 1
  -                  CALL SetNewProp(kprop, TempPropsB(Prop1, 2), TempPropsB(Prop1, 3), Init%PropSetsB(Prop1, 4), d1 + J*dd, t1 + J*dt,  TempPropsB)           
  +                  CALL SetNewProp(kprop, TempProps(Prop1, 2), TempProps(Prop1, 3), Init%PropSetsB(Prop1, 4), d1 + J*dd, t1 + J*dt,  TempProps)           
                     kelem = kelem + 1
                     CALL SetNewElem(kelem, knode-1, knode, eType, nprop, kprop, p)
                     nprop = kprop
  
positive.code:    INTEGER                       :: I, J, n, Node1, Node2, Prop1, Prop2   
     INTEGER                       :: NNE      ! number of nodes per element
     INTEGER                       :: MaxNProp
     REAL(ReKi), ALLOCATABLE       :: TempPropsB(:, :)
     INTEGER, ALLOCATABLE          :: TempMembers(:, :)
     INTEGER                       :: knode, kelem, kprop, nprop
     REAL(ReKi)                    :: x1, y1, z1, x2, y2, z2, dx, dy, dz, dd, dt, d1, d2, t1, t2
     LOGICAL                       :: found, CreateNewProp
     INTEGER(IntKi)                :: eType !< Element Type
     INTEGER(IntKi)                :: mType !< Member Type
     CHARACTER(1024)               :: sType !< String for element type
     INTEGER(IntKi)                :: ErrStat2
     CHARACTER(1024)               :: ErrMsg2
     ErrStat = ErrID_None
  
negative.code:                ! create a new property set 
                 ! k, E, G, rho, d, t, Init
                 kprop = kprop + 1
                 CALL SetNewProp(kprop, TempProps(Prop1, 2), TempProps(Prop1, 3), TempProps(Prop1, 4), d1+dd, t1+dt, TempProps)           
                 kelem = kelem + 1
                 CALL SetNewElem(kelem, Node1, knode, eType, Prop1, kprop, p)  
                 nprop = kprop
  