Searched refs:rerrsm (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | errorsmooth.f | 14 dimension rerrsm(nshg, 10), rerr(nshg,10), rmass(nshg),
26 rerrsm = zero
59 & rerrsm,
67 call commu (rerrsm , ilwork, 10 , 'in ')
77 rerrsm(i,:) = rerrsm(i,:) + rerrsm(j,:)
85 rerrsm(j,:) = rerrsm(i,:)
94 rerrsm(:,i) = rmass*rerrsm(:,i)
97 call commu (rerrsm, ilwork, 10, 'out')
103 rerr = rerrsm
110 & rerrsm, rmass ) argument
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | errsmooth.f | 16 dimension rerrsm(nshg, 10), rerr(nshg,10), rmass(nshg)
27 rerrsm = zero
60 & rerrsm,
68 call commu (rerrsm , ilwork, 10 , 'in ')
78 rerrsm(i,:) = rerrsm(i,:) + rerrsm(j,:)
86 rerrsm(j,:) = rerrsm(i,:)
95 rerrsm(:,i) = rmass*rerrsm(:,i)
98 call commu (rerrsm, ilwork, 10, 'out')
104 rerr = rerrsm
111 & rerrsm, rmass ) argument
[all …]
|