Lines Matching refs:ilen
143 integer i0,ilen,i1,nper,istart,iend local
211 ilen = ntpts
212 allocate(BCtptr(ic)%p(ilen,4))
213 BCtptr(ic)%p = BCt(1:ilen,:)
226 ilen = iend-istart+1
227 allocate(BCtptr(ic)%p(ilen,4))
231 ilen = iend + i0
232 allocate(BCtptr(ic)%p(ilen,4))
234 BCtptr(ic)%p(i0+1:ilen,:) = BCt(1:iend,:)
235 BCtptr(ic)%p(i0+1:ilen,4) =
236 & BCtptr(ic)%p(i0+1:ilen,4) + BCt(ntpts,4)
239 numBCt(ic) = ilen