Lines Matching refs:EGmass
5 & iper, ilwork, EGmass, rerr) argument
29 & iper(nshg), EGmass(numel,nedof,nedof)
119 if (lhs. eq. 1) EGmass = zero
160 & qres, EGmass(iel:inum,:,:),
166 & EGmass(iel:inum,:,:) )
327 real*8, allocatable :: EGmass(:,:,:) local
430 allocate (EGmass(npro,nedof,nedof))
431 EGmass = zero
433 allocate (EGmass(1,1,1))
447 & qres, EGmass,
454 & EGmass )
459 call fillsparseC( mien(iblk)%p, EGmass,
463 deallocate ( EGmass )
509 allocate (EGmass(npro,nshl,nshl))
510 EGmass = zero
512 allocate (EGmass(1,1,1))
523 & EGmass)
525 call fillSparseC_BC(mienb(iblk)%p, EGmass,
529 deallocate (EGmass)