psifun Function

private pure function psifun(rp)

Calculates the normalised radial coordinate

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: rp

Return Value real


Contents

Source Code

psifun

Source Code

  pure real function psifun (rp)
    implicit none
    real, intent (in) :: rp
    psifun = min(1.0, max(0.0, (rp - rpmin) / (rpmax - rpmin)))
  end function psifun