Searched refs:iend (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | bctint.f | 143 integer i0,ilen,i1,nper,istart,iend local
220 iend = iBfind(BCt(:,4),ntpts,tend)
222 if (iend<ntpts) iend=iend+1
226 ilen = iend-istart+1
228 BCtptr(ic)%p = BCt(istart:iend,:)
231 ilen = iend + i0
234 BCtptr(ic)%p(i0+1:ilen,:) = BCt(1:iend,:)
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_smoother.f | 190 integer :: istr,iend,iint
202 iend = anshg
206 iend = 1
218 do i=istr,iend,iint
|