| /phasta/phSolver/compressible/ |
| H A D | e3massl.f | 81 & EGmasst,srcp) argument
101 & WdetJ(npro), EGmasst(npro,nshape,nshape)
119 EGmasst(:,i,j) = EGmasst(:,i,j) + fact * A0t(:)
120 EGmasst(:,i,j) = EGmasst(:,i,j)
|
| H A D | asigmr.f | 127 & qrest, EGmasst, Diag) argument
156 dimension EGmasst(npro,nshape, nshape)
185 & qtl, EGmasst )
|
| H A D | e3.f | 316 & qtl, EGmasst) argument
366 & EGmasst(npro,nshape,nshape),
472 & rti, rmti, EGmasst,
499 & EGmasst, stifft, WdetJ,
523 call e3masslSclr (shape, WdetJ, A0t, EGmasst,srcp)
533 & rtl, stifft, EGmasst)
|
| H A D | au1gmr.f | 110 subroutine Au1GMRSclr (EGmasst, uBrg, ilwork, iper ) argument
131 dimension EGmasst(numel,nshape,nshape),uBrg(nshg),
|
| H A D | e3wmlt.f | 240 & stifft, EGmasst ) argument
292 & EGmasst(npro,nshape,nshape)
384 EGmasst(:,i,j) = EGmasst(:,i,j)
|
| H A D | bc3lhs.f | 297 subroutine bc3LHSSclr (iBC, iens, EGmasst ) argument
321 & EGmasst(npro,nshape,nshape)
351 EGmasst(iel,i,inod) = zero
352 EGmasst(iel,inod,i) = zero
354 EGmasst(iel,inod,inod) = one
|
| H A D | e3conv.f | 360 & rti, rmti, EGmasst, argument
407 & rmti(npro,nsd+1), EGmasst(npro,nshape,nshape),
476 EGmasst(:,i,j) = EGmasst(:,i,j) + shape(:,i) * AitNbi(:)
|
| H A D | elmgmrpetsc.f | 408 & qrest, EGmasst,
417 call bc3LHSSclr (iBC, mien(iblk)%p, EGmasst )
422 call fillsparsecpetscs( mieng(iblk)%p, EGmasst, lhsPs)
424 if(lhs.eq.1) deallocate ( EGmasst )
|
| H A D | elmgmr.f | 622 & iper, ilwork, EGmasst) argument
645 & iper(nshg), EGmasst(numel,nshape,nshape)
744 if (lhs .eq. 1) EGmasst = zero
783 & qrest, EGmasst(iel:inum,:,:),
789 call bc3LHSSclr (iBC, mien(iblk)%p, EGmasst(iel:inum,:,:) )
|
| H A D | solgmr.f | 747 & acold, EGmasst,
800 & iper(nshg), EGmasst(numel,nshape,nshape)
824 & ilwork, EGmasst)
887 call Au1GMRSclr (EGmasst, tempt, ilwork, iper)
929 call Au1GMRSclr ( EGmasst, uBrgt(:,iKss+1), ilwork, iper )
|
| H A D | e3ls.f | 782 & EGmasst, stifft, WdetJ, argument
840 & EGmasst(npro,nshape,nshape),
1056 EGmasst(:,ia,jb) = EGmasst(:,ia,jb) + fact * Ataut(:)
|
| H A D | itrdrv.f | 89 real*8, allocatable, dimension(:,:) :: EGmasst local
271 if(nsclrsol.gt.0)allocate (EGmasst(numel*nshape*nshape
576 & acold, EGmasst(1,isclr),
|