Searched refs:test_it (Results 1 – 3 of 3) sorted by relevance
49 real*8 prop_blend(npro),test_it(npro) local70 test_it = 0.5*(one + Sclr/epsilon_ls +73 prop_blend = max( min(test_it(:), one ), zero )
60 real*8 prop_blend(npro),test_it(npro) local
16 & h_param, prop_blend(npro),test_it(npro)