anchor.diff:            endif
           enddo
         enddo
  -      
  +
         DO i=1,np+1
            hhx(i) = Ps(i,igp)
            hpx(i) = dPhis(i,igp)
  
positive.code:    DO i=1,InputFileData%member_total
         READ(UnIn,*) j,InputFileData%kp_member(j)
         IF(InputFileData%kp_member(j) .LT. 3) THEN
  !           CALL SetErrors(ErrID_Fatal,TRIM(Num2LStr(j))//'th member has less than 3 key points.')    
             STOP
         ENDIF
         temp_int = temp_int + InputFileData%kp_member(j)
  
negative.code:    REAL(ReKi),        INTENT(IN   ):: Mass0(:,:,:)
     REAL(ReKi),        INTENT(IN   ):: Stif0(:,:,:)
     REAL(ReKi),        INTENT(IN   ):: gravity(:)
     TYPE(BD_InputType),INTENT(IN   ):: u
     INTEGER(IntKi),    INTENT(IN   ):: elem_total
     INTEGER(IntKi),    INTENT(IN   ):: node_elem
     INTEGER(IntKi),    INTENT(IN   ):: dof_node
     INTEGER(IntKi),    INTENT(IN   ):: ngp
     REAL(ReKi),        INTENT(  OUT):: StifK(:,:)
     REAL(ReKi),        INTENT(  OUT):: RHS(:)
  
     REAL(ReKi),          ALLOCATABLE:: Nuuu(:)
     REAL(ReKi),          ALLOCATABLE:: Nrr0(:)
  