anchor.diff:     ENDDO
   
   
  -   END SUBROUTINE BD_ComputeIniCoef
  +END SUBROUTINE BD_ComputeIniCoef
   
   SUBROUTINE BD_Static(t,n,u,utimes,p,x,xd,z,OtherState,ErrStat,ErrMsg)
   
  
positive.code:    ENDDO
  
  
     END SUBROUTINE BD_ComputeMemberLength
  
     SUBROUTINE BD_ComputeIniNodalPosition(Coef,eta,PosiVec,e1,Twist_Angle,ErrStat,ErrMsg)
  
     REAL(ReKi),    INTENT(IN   ):: Coef(:,:)     ! Coefficients for cubic spline interpolation
     REAL(ReKi),    INTENT(IN   ):: eta           ! Nodal location in [0,1] 
     REAL(ReKi),    INTENT(  OUT):: PosiVec(:)    ! Physical coordinates of GLL points in blade frame
  
negative.code:        ENDDO
     ENDDO
  
  END SUBROUTINE BD_AssembleStiffK
  
  SUBROUTINE BD_AssembleRHS(nelem,dof_elem,node_elem,dof_node,ElemRHS,GlobalRHS,ErrStat,ErrMsg)
     !-------------------------------------------------------------------------------
     ! This subroutine assembles global force vector.
     !-------------------------------------------------------------------------------
  
     REAL(ReKi),    INTENT(IN   ):: ElemRHS(:)    ! Total element force (Fc, Fd, Fb)
     INTEGER(IntKi),INTENT(IN   ):: nelem         ! Number of elements
     INTEGER(IntKi),INTENT(IN   ):: dof_elem      ! Degrees of freedom per element
     INTEGER(IntKi),INTENT(IN   ):: node_elem     ! Nodes per element
     INTEGER(IntKi),INTENT(IN   ):: dof_node      ! Degrees of freedom per node
     REAL(ReKi),    INTENT(INOUT):: GlobalRHS(:)  ! Global force vector
     INTEGER(IntKi),INTENT(  OUT):: ErrStat       ! Error status of the operation
     CHARACTER(*),  INTENT(  OUT):: ErrMsg        ! Error message if ErrStat /= ErrID_None
  
     INTEGER(IntKi)              :: i
     INTEGER(IntKi)              :: temp_id
  
     ErrStat = ErrID_None
     ErrMsg  = ""
  
     DO i=1,dof_elem
         temp_id = (nelem-1)*(node_elem-1)*dof_node+i
         GlobalRHS(temp_id) = GlobalRHS(temp_id)+ElemRHS(i)
     ENDDO
  
  END SUBROUTINE BD_AssembleRHS
  
  SUBROUTINE ludcmp(a,n,indx,d)
  !***************************************************************************************
  