| /phasta/phSolver/AMG/ |
| H A D | ramg_extract.f | 46 real(kind=8) :: rtemp,rt,rtp,rtn
273 rtemp = 0
298 rtemp = rtemp
308 amg_A_lhs(1)%p(m,1)=rtemp
385 rtemp=amg_A_lhs(1)%p(amg_A_colm(1)%p(i),1)
389 rtemp = rtemp + amg_A_lhs(1)%p(j,1)
401 & i,' ',rtp,' ',rtn,' ',rtemp
|
| H A D | ramg_ggb.f | 36 real(kind=8) :: rtemp,tnorm,tnorm1 local
169 call MPI_Allreduce(ramg_ggb_eA(j,i),rtemp,1,
171 ramg_ggb_eA(j,i) = rtemp
336 real(kind=8),dimension(maxnev) :: vR,rtemp local
357 rtemp = 0
359 call MPI_Allreduce(vR,rtemp,maxnev,
362 vR = rtemp
|
| H A D | ramg_ITAI.f | 89 real(kind=8) :: rtemp local
98 rtemp = a_mtx(k)
101 c_mtx(itemp(q)) = c_mtx(itemp(q)) + rtemp*b_mtx(p)
|
| H A D | ramg_mls.f | 53 real(kind=8) :: res_i,res_o,rtemp,tnorm,tnorm1 local
233 real(kind=8) :: res_i,res_o,rtemp,tnorm,tnorm1 local
|
| /phasta/phSolver/common/ |
| H A D | commuInt.f | 37 & rtemp(maxfront*n,maxtask) local
145 call MPI_IRECV(rtemp(1,idl), lfront*n, MPI_INTEGER,
189 & + rtemp (itemp:itemp+lenseg-1,jdl)
|
| H A D | commu.f | 38 & rtemp(maxfront*n,maxtask),
212 call MPI_IRECV(rtemp(1,idl), lfront*n, MPI_DOUBLE_PRECISION,
288 & + rtemp (itemp:itemp+lenseg-1,jdl)
|
| /phasta/AcuStat/src/ |
| H A D | commuMax.f | 38 & rtemp(maxfront*n,maxtask),
189 call MPI_IRECV(rtemp(1,idl), lfront*n, MPI_DOUBLE_PRECISION,
246 global(k,idof) = max(global(k,idof),rtemp (itemp,jdl))
|
| /phasta/M2NFixBnd/src/ |
| H A D | commuMax.f | 38 & rtemp(maxfront*n,maxtask),
190 call MPI_IRECV(rtemp(1,idl), lfront*n, MPI_DOUBLE_PRECISION,
247 global(k,idof) = max(global(k,idof),rtemp (itemp,jdl))
|
| /phasta/M2N/src/ |
| H A D | commu.f | 38 & rtemp(maxfront*n,maxtask),
186 call MPI_IRECV(rtemp(1,idl), lfront*n, MPI_DOUBLE_PRECISION,
244 & rtemp (itemp,jdl))
|
| /phasta/phSolver/incompressible/ |
| H A D | solfar.f | 108 real*8 rerr(nshg,10), rtmp(nshg,4),rtemp local
|