anchor.diff:     CHARACTER(*),                 INTENT(  OUT)  :: ErrMsg      ! Error message if ErrStat /= ErrID_None
   
      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'
  
positive.code:       end if
     p%beta(:)  = 0.0D0
     p%beta(:)  = InputFileData%InpBl%beta(:)
  
     IF( ErrStat >= AbortErrLev ) RETURN
  
     WRITE(*,*) "Finished Read Input"
  
negative.code:    INTEGER(IntKi)                             :: temp_id
     REAL(ReKi)                                 :: temp3(3)
     REAL(ReKi)                                 :: temp_p0(3)
     REAL(ReKi)                                 :: temp_glb(3)
     TYPE(BD_InputType)                         :: u_tmp
     INTEGER(IntKi)                             :: ErrStat2                     ! Temporary Error status
     CHARACTER(ErrMsgLen)                       :: ErrMsg2                      ! Temporary Error message
  