Searched refs:istart (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | bctint.f | 143 integer i0,ilen,i1,nper,istart,iend local
219 istart = iBfind(BCt(:,4),ntpts,tstart)
221 if (istart>1) istart=istart-1
226 ilen = iend-istart+1
228 BCtptr(ic)%p = BCt(istart:iend,:)
230 i0 = (ntpts-istart+1) ! first segment
233 BCtptr(ic)%p(1:i0,:) = BCt(istart:ntpts,:)
|