Searched refs:samplej (Results 1 – 1 of 1) sorted by relevance
392 real(kind=8) :: gridStep,coord,samplej local463 samplej=1.0-omloc(1)*coord465 samplej=samplej*(1.0-omloc(i)*coord)467 samplej=samplej*(samplej*coord)468 if (samplej.gt.rho2) rho2=samplej