pure function minFunB_0_2(b) result(ret) real(dp), intent(in) :: b real(dp) :: ret ret = -funB(b, 0.0_dp, 2.0_dp) end function minFunB_0_2