anchor.diff:     Nu_temp1(:) = Nu(4:6)
      DO i=1,node_elem
          temp_id = (i - 1) * dof_node
  -       Nu_temp = 0.0D0
          DO k=1,3
              Nu_temp(k) = Nu(temp_id+k+3)
          ENDDO
  -       Nr_temp = 0.0D0
          CALL BD_CrvCompose(Nr_temp,Nu_temp1,Nu_temp,1,ErrStat2,ErrMsg2) !This doesn't currently throw an error, so I'm going to ignore it
          DO k=1,3
              temp_id = (i-1)*3+k
  
positive.code:        Rr(i,2) = e2(i)
     ENDDO
  
     e3 = 0.0D0
     e3 = Cross_Product(e1,e2)
     DO i=1,3
         Rr(i,3) = e3(i)
  
negative.code:    end if   
  ! END Actuator
     
  
        
     call SetInitOut(p, InitOut, errStat, errMsg)
        call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  