anchor.diff:     INTEGER(IntKi)                                   :: Junk  !Temporary Holders
      INTEGER(IntKi), Dimension(2)                     :: M   !counter for two nodes at a time
      INTEGER(IntKi)                                   :: eType
  -   TYPE(ElemPropType), pointer :: eP  !< Element Property, Alias to shorten notations
      REAL(ReKi) :: FCe(12) ! Pretension force from cable element
      ErrStat = 0      
      ErrMsg=""
  
positive.code:       ENDDO
      ENDDO    
     ENDIF
   
     !_____________________________________REACTIONS_____________________________________________
     p%OutReact = .FALSE.
     DO I=1,p%NumOuts
  
negative.code:    DO I=1,9
            !I know el # and whether it is 1st node or second node
        if (I <= p%NMOutputs) then
           INDX=p%MOutLst(I)%NOutCnt+1
        else
           INDX = 1
        end if
  