anchor.diff:     INTEGER(IntKi)                                     :: ErrStat2   ! Temporary Error status
      CHARACTER(ErrMsgLen)                               :: ErrMsg2    ! Temporary Error message
      CHARACTER(*), PARAMETER                            :: RoutineName = 'BD_GA2'
  +   INTEGER(IntKi)                                     :: i
   
      ! Initialize ErrStat
   
  
positive.code: 
     REAL(ReKi)                                   :: temp_cc(3)
     REAL(ReKi)                                   :: temp_glb(3)
     INTEGER(IntKi)                               :: ErrStat2                     ! Temporary Error status
     CHARACTER(ErrMsgLen)                         :: ErrMsg2                      ! Temporary Error message
     CHARACTER(*), PARAMETER                      :: RoutineName = 'BD_BoundaryGA2'
  
negative.code:    INTEGER(IntKi)                             :: temp_id
     REAL(ReKi)                                 :: temp3(3)
     REAL(ReKi)                                 :: temp_p0(3)
     REAL(ReKi)                                 :: temp_ref(3)
     REAL(ReKi)                                 :: temp_root(3)
     REAL(ReKi)                                 :: temp_glb(3)
     TYPE(BD_InputType)                         :: u_tmp
     INTEGER(IntKi)                             :: ErrStat2                     ! Temporary Error status
  