zeta Function

  1. korc_synthetic_camera.f90
  2. korc_synthetic_camera
  3. zeta

private function zeta(g, p, k, l)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: g
real(kind=rp), intent(in) :: p
real(kind=rp), intent(in) :: k
real(kind=rp), intent(in) :: l

Return Value real(kind=rp)


Contents

Source Code

zeta

Source Code

  FUNCTION zeta(g,p,k,l)
    IMPLICIT NONE
    REAL(rp) :: zeta
    REAL(rp), INTENT(IN) ::	g
    REAL(rp), INTENT(IN) :: p
    REAL(rp), INTENT(IN) :: k
    REAL(rp), INTENT(IN) :: l

    zeta = (2.0_rp*C_PI/(3.0_rp*l*k*g**3))*(1.0_rp + (g*p)**2)**1.5_rp
  END FUNCTION zeta