Lines Matching refs:maxnev
45 if (maxnev.le.0) return
76 nev = maxnev
135 allocate(ramg_ggb_ev(asize,maxnev))
136 do i=1,maxnev
144 allocate(ramg_ggb_eA(maxnev,maxnev))
145 allocate(teA(asize,maxnev))
150 do i=1,maxnev
155 do i=1,maxnev
156 do j=1,maxnev
167 do i=1,maxnev
168 do j=1,maxnev
336 real(kind=8),dimension(maxnev) :: vR,rtemp
338 real(kind=8),dimension(maxnev,maxnev) :: mtxggbA
339 integer,dimension(maxnev) :: indx
343 if (maxnev.le.0) return
352 do i=1,maxnev
359 call MPI_Allreduce(vR,rtemp,maxnev,
367 call ludcmp(mtxggbA,maxnev,maxnev,indx,d)
368 call lubksb(mtxggbA,maxnev,maxnev,indx,vR)
372 do i=1,maxnev