Searched refs:BCt (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | bctint.f | 10 real*8, allocatable :: BCt(:,:), acs(:,:), spamp(:) variable
185 allocate (BCt(nptsmax,4))
203 read(567,*) (BCt(j,n),n=1,4)
208 if (tlen.ge.BCt(ntpts,4)) then
213 BCtptr(ic)%p = BCt(1:ilen,:)
215 nper = t0/BCt(ntpts,4)
216 tstart = t0-nper*BCt(ntpts,4)
217 nper = t1/BCt(ntpts,4)
218 tend = t1-nper*BCt(ntpts,4)
219 istart = iBfind(BCt(:,4),ntpts,tstart)
[all …]
|