anchor.diff:     REAL(ReKi)                  :: Oe(6,6)
      REAL(ReKi)                  :: Pe(6,6)
      REAL(ReKi)                  :: Qe(6,6)
  -   REAL(ReKi)                  :: Nvvv(dof_node*node_elem)
  -   REAL(ReKi)                  :: temp_Naaa(dof_node*node_elem)
  -   REAL(ReKi)                  :: temp_aaa(6)
  +   REAL(ReKi)                  :: aaa(6)
      INTEGER(IntKi)              :: igp
      INTEGER(IntKi)              :: i
      INTEGER(IntKi)              :: j
  
positive.code:    END SUBROUTINE BD_GenerateStaticElement
  
     SUBROUTINE BD_StaticElementMatrix(Nuu0,Nuuu,Nrr0,Nrrr,Distr_GL,gravity,&
                                       EMass0_GL,EStif0_GL,ngp,node_elem,dof_node,elk,elf)
  
     REAL(ReKi),    INTENT(IN   ):: Nuu0(:)
     REAL(ReKi),    INTENT(IN   ):: Nuuu(:)
  
negative.code:        ENDDO
         CALL BD_StaticElementMatrix(uuN0(:,nelem),Nuuu,Nrr0,Nrrr,DistrLoad_GL,gravity,&
                                     Mass0(:,:,temp_id+1:temp_id+ngp),Stif0(:,:,temp_id+1:temp_id+ngp),&
                                     ngp,node_elem,dof_node,elk,elf,ErrStat2,ErrMsg2)
  
         CALL BD_AssembleStiffK(nelem,node_elem,dof_elem,dof_node,elk,StifK,ErrStat2,ErrMsg2)
         CALL BD_AssembleRHS(nelem,dof_elem,node_elem,dof_node,elf,RHS,ErrStat2,ErrMsg2)
  