deg2rad Function

  1. korc_simple_equilibrium_pdf.f90
  2. korc_simple_equilibrium_pdf
  3. deg2rad

private function deg2rad(x)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: x

Return Value real(kind=rp)


Called by

proc~~deg2rad~2~~CalledByGraph proc~deg2rad~2 deg2rad proc~pr PR proc~pr->proc~deg2rad~2 proc~fre~2 fRE proc~fre~2->proc~deg2rad~2 proc~sample_distribution sample_distribution proc~sample_distribution->proc~fre~2 proc~get_equilibrium_distribution get_equilibrium_distribution proc~get_equilibrium_distribution->proc~sample_distribution

Contents

Source Code

deg2rad

Source Code

  FUNCTION deg2rad(x)
    REAL(rp), INTENT(IN) :: x
    REAL(rp) :: deg2rad

    deg2rad = C_PI*x/180.0_rp
  END FUNCTION deg2rad