| /phasta/phSolver/compressible/ |
| H A D | itrdrv.f | 61 …real*8 rerr(nshg,10),ybar(nshg,ndof+8) ! 8 is for avg. of square as uu, vv, ww, pp, TT, uv, uw, an… local
196 rerr = zero
322 rerr=zero !extreme limit of 1 step window or error stats....later a variable
471 & rerr, fncorp )
487 & rerr)
505 & rerr)
524 & rerr)
737 errmax=maxval(rerr(:,6))
746 where(rerr(:,6).gt.errswitch)
747 rerr(:,6)=1.0
[all …]
|
| H A D | asimfg.f | 3 & res, rmes, BDiag, qres, rerr) argument
37 real*8 rerrl(npro,nshl,6), rerr(nshg,10) local
93 call local (rerr, rerrl, ien, 6, 'scatter ')
|
| H A D | asigmr.f | 4 & BDiag, qres, EGmass, rerr) argument
39 real*8 rerrl(npro,nshl,6), rerr(nshg,10) local
87 call local (rerr, rerrl, ien, 6, 'scatter ')
|
| H A D | elmmfg.f | 5 & iper, ilwork, rerr) argument
39 real*8 rerr(nshg,10) local
157 & qres, rerr )
|
| H A D | elmgmr.f | 5 & iper, ilwork, EGmass, rerr) argument
40 real*8 Bdiagvec(nshg,nflow), rerr(nshg,10) local
161 & rerr)
285 & col, row, rerr) argument
323 real*8 Bdiagvec(nshg,nflow), rerr(nshg,10) local
448 & rerr )
|
| H A D | solgmr.f | 6 & shglb, Dy, rerr)
62 real*8 rerr(nshg,10)
82 & ilwork, EGmass, rerr )
374 & shglb, Dy, rerr)
433 real*8 rerr(nshg,10)
455 & row, rerr )
|
| H A D | elmgmrpetsc.f | 11 & rerr, lhsP) argument
50 real*8 Bdiagvec(nshg,nflow), rerr(nshg,10) local
182 & rerr )
|
| H A D | solmfg.f | 7 & shpb, shglb, Dy, rerr) argument
77 & rerr)
|
| H A D | solgmrpetsc.c | 65 double* shglb, double* Dy, double* rerr, long long int* fncorp) in SolGMRp() argument
238 ilwork, rerr , &lhsP); in SolGMRp()
|
| /phasta/phSolver/incompressible/ |
| H A D | errsmooth.f | 1 subroutine errsmooth(rerr, x, iper, ilwork, argument
16 dimension rerrsm(nshg, 10), rerr(nshg,10), rmass(nshg)
56 call smooth (rerr, x,
104 rerr = rerrsm
109 subroutine smooth (rerr, x, shp, argument
134 dimension rerr(nshg,10), x(numnp,nsd),
161 call local(rerr, rerrl, ien, 10, 'gather ')
|
| H A D | asigmr.f | 4 & xKebe, xGoC, rerr, CFLworst) argument
47 real*8 rerrl(npro,nshl,6), rerr(nshg,10) local
103 call local (rerr, rerrl, ien, 6, 'scatter ')
|
| H A D | itrdrv.f | 96 real*8, allocatable, dimension(:,:) :: rerr local
161 allocate(rerr(nshg,numerr))
162 rerr = zero
397 & solinc, rerr, tcorecp,
632 & vorticity,yphbar,rerr,irank2ybar,irank2yphbar)
670 call errsmooth( rerr, x, iper, ilwork, shp, shgl, iBC )
676 call write_error(myrank, lstep, nshg, 10, rerr )
1842 & vorticity,yphbar,rerr,irank2ybar,irank2yphbar) argument
1846 real*8 wallssvec(nshg,3),wallssVecBar(nshg,3), rerr(nshg,numerr) local
2018 rerr(:, 7)=rerr(:, 7)+(yold(:,1)-ybar(:,1))**2
[all …]
|
| H A D | solfar.f | 8 & solinc, rerr, tcorecp, argument
108 real*8 rerr(nshg,10), rtmp(nshg,4),rtemp local
150 & lhsP, rerr, GradV )
|
| H A D | soldir.f | 56 & lhsP, rerr )
|
| H A D | elmgmr.f | 6 & lhsP, rerr, GradV) argument
52 real*8 rerr(nshg,10) local
176 & xGoC, rerr)
|
| /phasta/phSolver/common/ |
| H A D | errorsmooth.f | 1 subroutine errsmooth(rerr, x, iper, ilwork, argument
14 dimension rerrsm(nshg, 10), rerr(nshg,10), rmass(nshg),
55 call smooth (rerr, x,
103 rerr = rerrsm
108 subroutine smooth (rerr, x, shp, argument
133 dimension rerr(nshg,10), x(numnp,nsd),
160 call local(rerr, rerrl, ien, 10, 'gather ')
|