Psyn Function

  1. korc_synthetic_camera.f90
  2. korc_synthetic_camera
  3. Psyn

private function Psyn(g, p, k, l, x)

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
real(kind=rp), intent(in) :: x

Return Value real(kind=rp)


Contents

Source Code

Psyn

Source Code

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

    Psyn = Po(g,p,k,l)*P1(g,p,k,l,x)
  END FUNCTION Psyn