Po Function

  1. korc_synthetic_camera.f90
  2. korc_synthetic_camera
  3. Po

private function Po(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

Po

Source Code

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

    Po = -(C_C*C_E**2/(SQRT(3.0_rp)*C_E0*k*(l*g)**4))*(1.0_rp + (g*p)**2)**2
  END FUNCTION Po