Searched refs:Fn_Val (Results 1 – 2 of 2) sorted by relevance
821 DBL Norm_Len, Fn_Val; in Mechsim_Impact_Collide_Environment() local834 Fn_Val = POVFPU_Run(*Env->Function); in Mechsim_Impact_Collide_Environment()836 if (Fn_Val < MechsimOptions.Data.Masses[Index].Radius) in Mechsim_Impact_Collide_Environment()930 DBL Potential, Fn_Val; in Mechsim_Gradient_Collide_Environment() local943 Fn_Val = POVFPU_Run(*Env->Function); in Mechsim_Gradient_Collide_Environment()945 if (Fn_Val < MechsimOptions.Data.Masses[Index].Radius) in Mechsim_Gradient_Collide_Environment()1067 DBL Potential, Force, Fn_Val, Len; in Mechsim_Force_Collide_Environment() local1081 Fn_Val = POVFPU_Run(*Env->Function); in Mechsim_Force_Collide_Environment()1713 DBL Fn_Val, Ratio; in Mechsim_Collide_Mass_Face() local1724 VLength(Fn_Val, Grad); in Mechsim_Collide_Mass_Face()[all …]
1481 Elemental Function Erf(X) Result(Fn_Val)2186 Function Euclidean_Norm(n,x) Result(Fn_Val)2190 Real (Kind=cp) :: Fn_Val local2236 Fn_Val = x1max*Sqrt(s1 + (s2/x1max)/x1max)2241 If (s2 >= x3max) Fn_Val = Sqrt(s2*(one + (x3max/s2)*(x3max*s3)))2242 If (s2 < x3max) Fn_Val = Sqrt(x3max*((s2/x3max) + (x3max*s3)))2246 Fn_Val = x3max*Sqrt(s3)