fzero Function

  1. korc_spatial_distribution.f90
  2. korc_spatial_distribution
  3. fzero

private function fzero(r, a, ko, P) result(f)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: r
real(kind=rp), intent(in) :: a
real(kind=rp), intent(in) :: ko
real(kind=rp), intent(in) :: P

Return Value real(kind=rp)


Contents

Source Code

fzero

Source Code

FUNCTION fzero(r,a,ko,P) RESULT(f)
	REAL(rp) 				:: f
	REAL(rp), INTENT(IN) 	:: r
	REAL(rp), INTENT(IN) 	:: a
	REAL(rp), INTENT(IN) 	:: ko
	REAL(rp), INTENT(IN) 	:: P

	f = EXP(-ko*r)*(1.0_rp + r*ko) + ( 1.0_rp - EXP(-ko*a)*(1.0_rp + a*ko) )*P - 1.0_rp
END FUNCTION fzero