anchor.diff:     elk(:,:) = 0.0D0
      elm(:,:) = 0.0D0
      elg(:,:) = 0.0D0
  -   EStif0_GL(:,:,:)    = 0.0D0
  -   EMass0_GL(:,:,:)    = 0.0D0
  -   DistrLoad_GL(:,:,:) = 0.0D0
  +   EStif0_GL(:,:,:)  = 0.0D0
  +   EMass0_GL(:,:,:)  = 0.0D0
  +   DistrLoad_GL(:,:) = 0.0D0
   
      DO nelem=1,elem_total
          Nuu0(:) = uuN0(:,nelem)
  
positive.code:    ENDIF
  
     END SUBROUTINE BD_MotionTensor
  
     SUBROUTINE BD_MassMatrix(m00,mEta,rho,Mi)
  !----------------------------------------------------------------------------------------
  
negative.code:    REAL(ReKi),          ALLOCATABLE:: elf(:)
     REAL(ReKi),          ALLOCATABLE:: elm(:,:)
     REAL(ReKi),          ALLOCATABLE:: elg(:,:)
     REAL(ReKi),          ALLOCATABLE:: EStif0_GL(:,:,:)
     REAL(ReKi),          ALLOCATABLE:: EMass0_GL(:,:,:)
     REAL(ReKi),          ALLOCATABLE:: DistrLoad_GL(:,:)
     INTEGER(IntKi)                  :: dof_elem
     INTEGER(IntKi)                  :: rot_elem
     INTEGER(IntKi)                  :: nelem
  