anchor.diff:             u%DistrLoad%Moment(1:3,i) = temp6(4:6)
          ENDDO
      ELSEIF(flag .EQ. 1) THEN
  -       
  +
      ENDIF
   
      END SUBROUTINE BD_InputGlobalLocal
  
positive.code:    INTEGER(IntKi)                   :: j
     INTEGER(IntKi)                   :: k
     INTEGER(IntKi)                   :: temp_id
     
     ai = 0.0D0
     Eref = 0.0D0
  
  
negative.code: 
     END SUBROUTINE BD_CrvMatrixR
  
     SUBROUTINE BD_CrvMatrixH(cc,Hh)
  
     REAL(ReKi),INTENT(IN)::cc(:)
     REAL(ReKi),INTENT(OUT)::Hh(:,:)
  
     INTEGER(IntKi):: i, j
     REAL(ReKi):: cf1,cf2,cf3,cq,ocq,aa,cb0,cb1,cb2,cb3
  
     cf1 = cc(1)/4.0D0
     cf2 = cc(2)/4.0D0
     cf3 = cc(3)/4.0D0
  