FUNC Function

function FUNC(x, Capac_term, Nmin1, Mplus1, alpha, gen_n, surface_tension_water)

!!! func= -(( -(sat_water_cont - res_water_cont) * alpha * &
!!!& ( (ax)(gen_n - 1.d0) ) * & !!!& ( ( 1.d0 + axn )(gen_m - 1.d0) ) & !!!& gen_mgen_n ) / & !!!& (((( axn ) + 1.d0 )gen_m)2) ) / & !!!& (pi4(((surface_tension_water2)/(x2)))) ! func= -( -(sat_water_cont - res_water_cont) * alpha * &
!& ( (ax)(gen_n - 1.d0) ) * & !& ( ( 1.d0 + axn )(-gen_m - 1.d0) ) & !& gen_mgen_n ) / & !& (pi4(((surface_tension_water2)/(x2))))

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	Capac_term
real(kind=8)				::	Nmin1
real(kind=8)				::	Mplus1
real(kind=8)				::	alpha
real(kind=8)				::	gen_n
real(kind=8)				::	surface_tension_water

Return Value real(kind=8)