Searched refs:ilen (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
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) =
[all …]
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_coarse.f | 467 subroutine ramg_initheap(heap,invMap,wght,nheaps,ilen) argument
469 integer :: nheaps,ilen local
470 integer,dimension(0:ilen-1),intent(inout) :: heap,invMap
471 real(kind=8),dimension(0:ilen-1),intent(in) :: wght
497 subroutine ramg_popheap(heap,invmap,wght,nheaps,popid,ilen) argument
500 integer,intent(in) :: popid,ilen local
501 real(kind=8),dimension(0:ilen-1),intent(in) :: wght
502 integer,dimension(0:ilen-1),intent(inout) :: heap,invmap
508 call ramg_adjheap(heap,invmap,wght,nheaps,popid,ilen)
512 subroutine ramg_adjheap(heap,invmap,wght,nheaps,popid,ilen) argument
[all …]
|