Searched defs:ramg_init_ilwork (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 646 subroutine ramg_init_ilwork(ilwork,BC,iBC,iper) subroutine
651 integer, intent(in), dimension(nlwork) :: ilwork
652 integer, intent(in),dimension(nshg) :: iBC,iper
653 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
655 integer :: lvl,i,j,iacc,iother,numseg,numtask,itkbeg,sigi,k
656 integer :: tasknnztot,itask,amgseg
657 integer,dimension(numpe) :: revp
658 integer,dimension(ilwork(1)) :: tasknnz,iotherl
659 type(i1d),dimension(ilwork(1)) :: taskfill
661 integer,dimension(nshg) :: lvlmap
[all …]
|