Lines Matching refs:ValuePdist
52 real*8, allocatable :: ValueListRCR(:,:), ValuePdist(:,:,:) !inputs variable
461 allocate (ValuePdist(nptsRCRmax,2,numRCRSrfs))
463 ValuePdist=0
472 read(818,*) (ValuePdist(j,n,k),n=1,2) ! n=1 time, 2 value
494 nper=ctime/ValuePdist(nlast,1,k)!number of periods completed to shift off
495 ptime = ctime-nper*ValuePdist(nlast,1,k) ! now time in periodic domain
499 if(ValuePdist(j,1,k).gt.ptime) then ! this is upper bound, j-1 is lower
500 wr=(ptime-ValuePdist(j-1,1,k))
501 & / ( ValuePdist(j,1,k)-ValuePdist(j-1,1,k) )
502 Pdist(k)= ValuePdist(j-1,2,k)*(one-wr)
503 & + ValuePdist(j,2,k)*wr