arg Function

  1. korc_synthetic_camera.f90
  2. korc_synthetic_camera
  3. arg

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

arg

Source Code

  FUNCTION arg(g,p,k,l,x)
    IMPLICIT NONE
    REAL(rp) :: arg
    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
    REAL(rp) :: A

    A = fx(g,p,x)
    arg = 1.5_rp*zeta(g,p,k,l)*(A + (A**3)/3.0_rp)
  END FUNCTION arg