Home
last modified time | relevance | path

Searched refs:impistat (Results 1 – 11 of 11) sorted by relevance

/phasta/phSolver/common/
H A Dmpitools.f14 if(impistat.eq.1) then
16 elseif(impistat.eq.2) then
20 if(impistat.gt.0) rmpitmr = TMRC()
23 if(impistat.eq.1) then
25 elseif(impistat.eq.2) then
45 if(impistat.eq.1) then
47 elseif(impistat.eq.2) then
51 if(impistat.gt.0) rmpitmr = TMRC()
54 if(impistat.eq.1) then
56 elseif(impistat.eq.2) then
[all …]
H A Dcommu.f44 if(impistat.gt.0) rDelIRecv = zero
45 if(impistat.gt.0) rDelISend = zero
46 if(impistat.gt.0) rDelWaitAll = zero
153 if(impistat.eq.1) then
155 elseif(impistat.eq.2) then
158 if(impistat.gt.0) rmpitmr = TMRC()
161 if(impistat.gt.0) rDelISend = TMRC()-rmpitmr
162 if(impistat.eq.1) then
164 elseif(impistat.eq.2) then
172 if(impistat.eq.1) then
[all …]
H A Dcommon_c.h172 int impistat; member
H A Dcommon.h72 & impistat, impistat2, rmpitmr,
/phasta/M2N/src/
H A Dcommu.f44 if(impistat.eq.1) rDelIRecv = zero
45 if(impistat.eq.1) rDelISend = zero
46 if(impistat.eq.1) rDelWaitAll = zero
147 if(impistat.eq.1) iISend = iISend+1
148 if(impistat.eq.1) rmpitmr = TMRC()
151 if(impistat.eq.1) rDelISend = TMRC()-rmpitmr
152 if(impistat.eq.1) rISend = rISend+rDelISend
158 if(impistat.eq.1) iIRecv = iIRecv+1
159 if(impistat.eq.1) rmpitmr = TMRC()
162 if(impistat.eq.1) rDelIRecv = TMRC()-rmpitmr
[all …]
/phasta/M2NFixBnd/src/
H A DcommuMax.f44 if(impistat.eq.1) rDelIRecv = zero
45 if(impistat.eq.1) rDelISend = zero
46 if(impistat.eq.1) rDelWaitAll = zero
151 if(impistat.eq.1) iISend = iISend+1
152 if(impistat.eq.1) rmpitmr = TMRC()
155 if(impistat.eq.1) rDelISend = TMRC()-rmpitmr
156 if(impistat.eq.1) rISend = rISend+rDelISend
162 if(impistat.eq.1) iIRecv = iIRecv+1
163 if(impistat.eq.1) rmpitmr = TMRC()
166 if(impistat.eq.1) rDelIRecv = TMRC()-rmpitmr
[all …]
/phasta/AcuStat/src/
H A DcommuMax.f44 if(impistat.eq.1) rDelIRecv = zero
45 if(impistat.eq.1) rDelISend = zero
46 if(impistat.eq.1) rDelWaitAll = zero
150 if(impistat.eq.1) iISend = iISend+1
151 if(impistat.eq.1) rmpitmr = TMRC()
154 if(impistat.eq.1) rDelISend = TMRC()-rmpitmr
155 if(impistat.eq.1) rISend = rISend+rDelISend
161 if(impistat.eq.1) iIRecv = iIRecv+1
162 if(impistat.eq.1) rmpitmr = TMRC()
165 if(impistat.eq.1) rDelIRecv = TMRC()-rmpitmr
[all …]
/phasta/phSolver/incompressible/
H A Drstatic.f76 if(impistat.eq.1) then
78 elseif(impistat.eq.2) then
82 if(impistat.gt.0) rmpitmr = TMRC()
85 if(impistat.eq.1) then
87 elseif(impistat.eq.2) then
101 if(impistat.eq.1) then
103 elseif(impistat.eq.2) then
107 if(impistat.gt.0) rmpitmr = TMRC()
110 if(impistat.eq.1) then
112 elseif(impistat.eq.2) then
[all …]
H A Dsolfar.f142 impistat=1
152 impistat=0
218 impistat=1
328 impistat=0
435 impistat=2
445 impistat=0
489 impistat=2
513 impistat=0
H A Delmgmr.f634 if(impistat.eq.1) then
636 elseif(impistat.eq.2) then
640 if(impistat.gt.0) rmpitmr = TMRC()
643 if(impistat.eq.1) then
645 elseif(impistat.eq.2) then
H A Ditrdrv.f1339 impistat = 0