Lines Matching refs:one
309 fd=one-tanh((8.0000000000000000d0*rd)**3)
322 fv2 = one - chi/(one+chi*fv1)
343 fwog = ((one+saCw3**6)/(g**6+saCw3**6))**sixth
356 if(one.eq.zero) then
362 saCb1Scale = one
367 srcrat = saCb1Scale*saCb1*(one-ft2)*Stilde
370 srcrat=saCb1*(one-ft2)*Stilde
389 fv2p = (chi**2)*fv1p-(one/rnu)
390 fv2p = fv2p/(one+chi*fv1)**2
399 gp = one+saCw2*(6*r**5 - one)
405 & +saCb1*(one-ft2)*Stilde*sclrm
448 sign_levelset(ii) = - one
459 sign_levelset(ii) = one