dpmpar Function

public function dpmpar(i)

Replacement for the original Minpack routine.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i

Return Value real(kind=wp)


Called by

proc~~dpmpar~~CalledByGraph proc~dpmpar minpack_module::dpmpar proc~dogleg minpack_module::dogleg proc~dogleg->proc~dpmpar proc~fdjac1 minpack_module::fdjac1 proc~fdjac1->proc~dpmpar proc~hybrd minpack_module::hybrd proc~hybrd->proc~dpmpar proc~hybrd->proc~dogleg proc~hybrd->proc~fdjac1 proc~qrfac minpack_module::qrfac proc~hybrd->proc~qrfac proc~r1updt minpack_module::r1updt proc~hybrd->proc~r1updt proc~hybrj minpack_module::hybrj proc~hybrj->proc~dpmpar proc~hybrj->proc~dogleg proc~hybrj->proc~qrfac proc~hybrj->proc~r1updt proc~qrfac->proc~dpmpar proc~r1updt->proc~dpmpar proc~hybrd1 minpack_module::hybrd1 proc~hybrd1->proc~hybrd proc~hybrj1 minpack_module::hybrj1 proc~hybrj1->proc~hybrj proc~halo_to_rv_diffcorr halo_orbit_module::halo_to_rv_diffcorr proc~halo_to_rv_diffcorr->proc~hybrd1

Source Code

    real(wp) function dpmpar(i)
    implicit none

    integer,intent(in) :: i

    real(wp),dimension(3),parameter :: dmach = [epsilon(1.0_wp),&
                                                  tiny(1.0_wp),&
                                                  huge(1.0_wp)]

    dpmpar = dmach(i)

    end function dpmpar