anchor.diff:     Init%NElem = p%NMembers*Init%NDiv  ! TODO TODO TODO: THIS IS A MAX SINCE CABLE AND RIGID CANNOT BE SUBDIVIDED
      ! Total number of nodes - Depends on division and number of nodes per element
      Init%NNode = Init%NJoints + ( Init%NDiv - 1 )*p%NMembers 
  -   Init%NNode = Init%NNode + (NNE - 2)*Init%NElem  ! TODO TODO TODO
  +   Init%NNode = Init%NNode + (NNE - 2)*Init%NElem  ! TODO TODO TODO Same as above. 
      
      ! check the number of interior modes
      IF ( p%Nmodes > 6*(Init%NNode - Init%NInterf - p%NReact) ) THEN
  
positive.code:    INTEGER(IntKi),               INTENT(  OUT)  :: ErrStat     ! Error status of the operation
     CHARACTER(*),                 INTENT(  OUT)  :: ErrMsg      ! Error message if ErrStat /= ErrID_None
     ! local variable
     INTEGER                       :: I, iMem, J, n, iNode, Node, Node1, Node2, Prop, Prop1, Prop2   
     INTEGER                       :: NNE      ! number of nodes per element
     INTEGER                       :: MaxNProp
     REAL(ReKi), ALLOCATABLE       :: TempPropsB(:, :)
     INTEGER, ALLOCATABLE          :: TempMembers(:, :) ,TempReacts(:,:)         
     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
  
negative.code: END SUBROUTINE NodeCon
  !----------------------------------------------------------------------------
  !>
  ! - Removes the notion of "ID" and use Index instead
  ! - Creates Nodes (use indices instead of ID), similar to Joints array
  ! - Creates Elems (use indices instead of ID)  similar to Members array
  ! - Updates Reacts (use indices instead of ID)
  ! - Updates Interf (use indices instead of ID)
  SUBROUTINE SD_ReIndex_CreateNodesAndElems(Init,p, ErrStat, ErrMsg)
     TYPE(SD_InitType),            INTENT(INOUT)  ::Init
     TYPE(SD_ParameterType),       INTENT(INOUT)  ::p
     INTEGER(IntKi),               INTENT(  OUT)  :: ErrStat     ! Error status of the operation
     CHARACTER(*),                 INTENT(  OUT)  :: ErrMsg      ! Error message if ErrStat /= ErrID_None
     ! local variable
     INTEGER                       :: I, n, iMem, iNode, JointID   
     INTEGER(IntKi)                :: mType !< Member Type
     CHARACTER(1024)               :: sType !< String for element type
     INTEGER(IntKi)                :: ErrStat2
  