anchor.diff:     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(:,:)
  +   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
  
positive.code:    ENDIF
  
     END SUBROUTINE BD_MotionTensor
  
     SUBROUTINE BD_MassMatrix(m00,mEta,rho,Mi)
  !----------------------------------------------------------------------------------------
  
negative.code:    elk(:,:) = 0.0D0
     elm(:,:) = 0.0D0
     elg(:,:) = 0.0D0
     EStif0_GL(:,:,:)  = 0.0D0
     EMass0_GL(:,:,:)  = 0.0D0
     DistrLoad_GL(:,:) = 0.0D0
  
     DO nelem=1,elem_total
         Nuu0(:) = uuN0(:,nelem)
  