minpack_dpmpar Function

  1. minpack_capi.f90
  2. minpack_capi
  3. minpack_dpmpar

public function minpack_dpmpar(i) result(par) bind(c)

Arguments

TypeIntentOptionalAttributesName
integer(kind=c_int), value:: i

Return Value real(kind=c_double)


Contents

Source Code

minpack_dpmpar

Source Code

    function minpack_dpmpar(i) result(par) bind(c)
        integer(c_int), value :: i
        real(c_double) :: par
        if (i > 0_c_int .and. i <= 3_c_int) then
            par = dpmpar(i)
        end if
    end function minpack_dpmpar