| /phasta/phSolver/common/ |
| H A D | getdmc.f | 21 dimension fres(nshg,24), fwr(nshg),
57 fres = zero
83 call asithf (y, x, strl(iel:inum,:), mien(iblk)%p, fres,
115 if(numpe>1) call commu (fres, ilwork, 24, 'in ')
123 fres(i,:) = fres(i,:) + fres(j,:) ! masters = masters + slaves
129 fres(j,:) = fres(i,:) !slaves get copy of the complete master
134 if(numpe>1) call commu (fres, ilwork, 24, 'out')
140 fres(:,23) = one / fres(:,23)
142 fres(:,j) = fres(:,j) * fres(:,23) !"solve"
151 & two * (fres(:,10)**2 + fres(:,11)**2 + fres(:,12)**2)
[all …]
|
| H A D | bardmc.f | 59 dimension fres(nshg,33), fwr(nshg),
90 fres = zero
250 & fres, hfres, shgl(lcsyst,:,1:nshl,:),
279 if(numpe>1) call commu (fres, ilwork, 33, 'in ')
286 fres(i,:) = fres(i,:) + fres(j,:)
287 fres(j,:) = fres(i,:)
292 fres = fres(iper,:)
293 if(numpe>1) call commu (fres, ilwork, 33, 'out')
299 fres(:,23) = one / fres(:,23)
301 fres(:,j) = fres(:,j) * fres(:,23)
[all …]
|
| H A D | aveprep.f | 108 subroutine getxnut (fres, xden, xnum, ien, shp) argument
112 dimension ien(npro,nshl), fres(nshg,22),
122 call local (fres, fresl, ien, 22, 'gather ')
289 dimension fres(nshg,24), fwr(nshg),
300 fres = zero
329 call asithf (yold, x, strl(iel:inum,:), mien(iblk)%p, fres,
336 if(numpe>1) call commu (fres, ilwork, 24, 'in ')
343 fres(i,:) = fres(i,:) + fres(j,:)
350 fres(j,:) = fres(i,:)
355 call commu (fres, ilwork, 24, 'out')
[all …]
|
| H A D | asithf.f | 1 subroutine asithf (y, x, strnrm, ien, fres, shgl, shp, Qwtf) argument
5 dimension y(nshg,ndof), fres(nshg,24)
188 fres(ien(nel,j),:) = fres(ien(nel,j),:) + fresl(nel,:)
|
| /phasta/phSolver/incompressible/ |
| H A D | advLES.f | 512 dimension fres(nshg,24), fwr(nshg),
545 fres = zero
578 call hfilterBB (yold, x, mien(iblk)%p, fres,
606 if(numpe>1) call commu (fres, ilwork, 24, 'in ')
613 fres(i,:) = fres(i,:) + fres(j,:)
620 fres(j,:) = zero
643 fres(isgbeg:isgend,:) = zero
660 call sparseCG (fres(:,i), pfres(:,i), lhsG,
669 fres(:,i) = pfres(:,i)
672 fres(:,22) = one
[all …]
|
| H A D | filters.f | 177 subroutine twohfilterB (y, x, strnrm, ien, fres, argument
182 dimension y(nshg,ndof), fres(nshg,33)
394 fres(ien(nel,j),:) = fres(ien(nel,j),:) + fresl(nel,:)
593 subroutine twohfilterBB (y, x, strnrm, ien, fres, argument
598 dimension y(nshg,ndof), fres(nshg,33)
771 fres(ien(nel,j),:) = fres(ien(nel,j),:) + fresl(nel,:)
1659 dimension fres(nshg,24), fwr(nshg),
1708 fres = zero
1743 call asithf (yold, x, strl(iel:inum,:), mien(iblk)%p, fres,
1779 if(numpe>1) call commu (fres, ilwork, 24, 'in ')
[all …]
|