Lines Matching refs:rmass
18 dimension gradu(nshg,9), rmass(nshg),
25 rmass = zero
46 & rmass )
51 call reconstruct( rmass, gradu, iBC, iper, ilwork, 9 )
54 rmass = zero
76 & rmass )
80 call reconstruct( rmass, uhess, iBC, iper, ilwork, 27 )
88 & ien, gradu, rmass ) argument
96 & gradul(npro,9) , rmass( nshg )
152 call local (rmass, rmassl, ien, 1, 'scatter ')
163 & ien, uhess, rmass ) argument
171 & uhessl(npro,27), rmass( nshg )
226 call local (rmass, rmassl, ien, 1, 'scatter ')
235 subroutine reconstruct( rmass, qres, iBC, iper, ilwork, vsize ) argument
240 dimension rmass(nshg), qres( nshg, vsize),
248 call commu ( rmass , ilwork, 1 , 'in ')
256 rmass(i) = rmass(i) + rmass(j)
264 rmass(j) = rmass(i)
271 rmass = one/rmass
274 qres(:,i) = rmass*qres(:,i)