pure function minFunA_2_1(b) result(ret) real(dp), intent(in) :: b real(dp) :: ret ret = -funA_2_1(b) end function minFunA_2_1