anchor.diff:             CALL GetNewProp(kprop, TempProps(Prop1, 2), TempProps(Prop1, 3),&
                              TempProps(Prop1, 4), d1+dd, t1+dt, TempProps, TempNProp, Init%PropSetsCol)           
              kelem = kelem + 1
  -           CALL GetNewElem(kelem, Node1, knode, Prop1, kprop, p, Init%Nodes)  
  +           CALL GetNewElem(kelem, Node1, knode, Prop1, kprop, p)  
              nprop = kprop              
         ELSE
              kelem = kelem + 1
  -           CALL GetNewElem(kelem, Node1, knode, Prop1, Prop1, p, Init%Nodes)                
  +           CALL GetNewElem(kelem, Node1, knode, Prop1, Prop1, p)                
              nprop = Prop1 
         ENDIF
         
  
positive.code:    
     ! Initialize TempMembers and Elems
     DO I = 1, p%NMembers
        
        !IF ( SwapElementNodes( Init%Nodes(Init%Members(I, 2),:), Init%Nodes(Init%Members(I, 3),:) ) ) THEN
        !   TempMembers(I, 1) = I
        !   TempMembers(I, 4) = Init%Members(I, 5)
        !   TempMembers(I, 5) = Init%Members(I, 4)
        !
        !   p%Elems(I,     1) = I
        !   p%Elems(I, NPE+2) = Init%Members(I, 5)
        !   p%Elems(I, NPE+3) = Init%Members(I, 4)
        !
        !   Node1 = Init%Members(I, 3)
        !   Node2 = Init%Members(I, 2)
        !ELSE
           TempMembers(I, 1) = I
           TempMembers(I, 4) = Init%Members(I, 4)
           TempMembers(I, 5) = Init%Members(I, 5)
        
           p%Elems(I,     1) = I
           p%Elems(I, NPE+2) = Init%Members(I, 4)
           p%Elems(I, NPE+3) = Init%Members(I, 5)
        
           Node1 = Init%Members(I, 2)
           Node2 = Init%Members(I, 3)
        
        !END IF
        
        flg1 = 0
        flg2 = 0
  
negative.code:    REAL(ReKi), INTENT( IN)               :: DirCos(3,3)
     LOGICAL, INTENT( IN)                  :: Shear
     
     REAL(ReKi), INTENT(OUT)             :: K(12, 12)  !RRD:  Ke and Me  need to be modified if convention of dircos is not followed?
           
     REAL(ReKi)                            :: Ax, Ay, Kx, Ky
     REAL(ReKi)                            :: DC(12, 12)
  