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 dpmpar proc~dogleg dogleg proc~dogleg->proc~dpmpar proc~fdjac1 fdjac1 proc~fdjac1->proc~dpmpar proc~hybrd hybrd proc~hybrd->proc~dpmpar proc~hybrd->proc~dogleg proc~hybrd->proc~fdjac1 proc~qrfac qrfac proc~hybrd->proc~qrfac proc~r1updt r1updt proc~hybrd->proc~r1updt proc~hybrj 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 hybrd1 proc~hybrd1->proc~hybrd proc~hybrj1 hybrj1 proc~hybrj1->proc~hybrj proc~halo_to_rv_diffcorr 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