anchor.diff:         RETURN
       ENDIF
       !Init%Props(1:kprop, 1:Init%PropSetsCol) = TempProps
  -    Init%Props = TempPropsBeam(1:Init%NProp, :)  !!RRD fixed it on 1/23/14 to account for NDIV=1
  +    Init%Props = TempPropsBeams(1:Init%NProp, :)  !!RRD fixed it on 1/23/14 to account for NDIV=1
       print*,'Init%Props'
       print*, Init%Props
   
       CALL CleanUp_Discrt()
   
   CONTAINS
  +   LOGICAL FUNCTION Failed()
  +      call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, 'SD_Discrt') 
  +      Failed =  ErrStat >= AbortErrLev
  +   END FUNCTION Failed
  +
      SUBROUTINE Fatal(ErrMsg_in)
         CHARACTER(len=*), intent(in) :: ErrMsg_in
         CALL SetErrStat(ErrID_Fatal, ErrMsg_in, ErrStat, ErrMsg, 'SD_Discrt');
  
positive.code:       ! Column 6: member type
        p%Elems(iMem, iMType) = Init%Members(iMem, iMType) ! 
     END DO !iMem, loop through members
     
     ! Initialize TempMembers
     TempMembers = p%Elems(1:p%NMembers,:)
     
     ! Initialize Temp property set, first user defined sets
     TempPropsBeam = 0
     TempPropsBeam(1:Init%NPropSets, :) = Init%PropSets   
     print*,'TempPropsBeam(:,1:5)'
     DO I=1,Init%NPropSets
        print*,TempPropsBeam(I,1:5)
     enddo
  
  
     TempPropsCable = 0
     TempPropsCable(1:Init%NCablePropSets, :) = Init%CablePropSets
     print*,'TempPropsCable(:,:)'
     DO I=1,Init%NCablePropSets
        print*,TempPropsCable(I,1:4)
     enddo
  
     TempPropsRigid = 0
     TempPropsRigid(1:Init%NRigidPropSets, :) = Init%RigidPropSets
     print*,'TempPropsRigid(:,:)'
     DO I=1,Init%NRigidPropSets
        print*,TempPropsRigid(I,:)
  
negative.code:                ! create a new property set 
                 ! k, E, G, rho, d, t, Init
                 kprop = kprop + 1
                 CALL SetNewProp(kprop, TempPropsBeams(Prop1, 2), TempPropsBeams(Prop1, 3), TempPropsBeams(Prop1, 4), d1+dd, t1+dt, TempPropsBeams)           
                 kelem = kelem + 1
                 CALL SetNewElem(kelem, Node1, knode, eType, Prop1, kprop, p)  
                 nprop = kprop              
  