Searched refs:ValueImpt (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | bctint.f | 33 real*8, allocatable :: QHistImp(:,:), ValueImpt(:,:,:) variable
359 allocate (ValueImpt(nptsImpmax,2,numImpSrfs))
360 ValueImpt=0
365 read(817,*) (ValueImpt(j,n,k),n=1,2) ! n=1 time, 2 value
372 ValueListImp(ntimeptpT+1,:) = ValueImpt(1,2,:) !Z(time=0), last entry
373 ValueListImp(1,:) = ValueImpt(1,2,:) !Z(time=0)=Z(time=T)
390 nper=ctime/ValueImpt(nlast,1,k)!number of periods completed to shift off
391 ptime = ctime-nper*ValueImpt(nlast,1,k) ! now time in periodic domain
395 if(ValueImpt(j,1,k).gt.ptime) then ! this is upper bound, j-1 is lower
396 wr=(ptime-ValueImpt(j-1,1,k))
[all …]
|