Searched refs:Pdist (Results 1 – 1 of 1) sorted by relevance
483 subroutine RCRint(ctime,Pdist) argument490 real*8 Pdist(0:MAXSURF) local502 Pdist(k)= ValuePdist(j-1,2,k)*(one-wr)