anchor.diff:     INTEGER(IntKi)                :: nelem ! number of elements
      INTEGER(IntKi)                :: j ! Index counter
      INTEGER(IntKi)                :: temp_id ! Index counter
  +   INTEGER(IntKi)                :: temp_id2
      INTEGER(IntKi)                :: ErrStat2                     ! Temporary Error status
      CHARACTER(ErrMsgLen)          :: ErrMsg2                      ! Temporary Error message
      CHARACTER(*),        PARAMETER:: RoutineName = 'BD_GenerateStaticElementForce'
  
positive.code:    INTEGER(IntKi)                  :: nelem
     INTEGER(IntKi)                  :: j
     INTEGER(IntKi)                  :: temp_id
     INTEGER(IntKi)                  :: ErrStat2                     ! Temporary Error status
     CHARACTER(ErrMsgLen)            :: ErrMsg2                      ! Temporary Error message
     CHARACTER(*),          PARAMETER:: RoutineName = 'BD_GenerateDynamicElementGA2'
  
negative.code:    INTEGER(IntKi)                   :: nelem        ! number of elements
     INTEGER(IntKi)                   :: j            ! Index counter
     INTEGER(IntKi)                   :: temp_id      ! Index counter
     INTEGER(IntKi)                   :: temp_id2
     INTEGER(IntKi)                   :: ErrStat2     ! Temporary Error status
     CHARACTER(ErrMsgLen)             :: ErrMsg2      ! Temporary Error message
     CHARACTER(*), PARAMETER          :: RoutineName = 'BD_GenerateDynamicElementForce'
  