Searched refs:coord (Results 1 – 1 of 1) sorted by relevance
392 real(kind=8) :: gridStep,coord,samplej local462 coord=j*gridStep463 samplej=1.0-omloc(1)*coord465 samplej=samplej*(1.0-omloc(i)*coord)467 samplej=samplej*(samplej*coord)