Searched refs:ftot (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | rstat.f | 32 real*8 ftots(3,0:MAXSURF),ftot(3),spmasstot(0:MAXSURF),spmasss local
63 ftot(1)=sum(Ftots(1,0:MAXSURF))
64 ftot(2)=sum(Ftots(2,0:MAXSURF))
65 ftot(3)=sum(Ftots(3,0:MAXSURF))
85 & spmasss,(ftot(i),i=1,nsd)
282 real*8 ftots(3,0:MAXSURF),ftot(3),spmasstot(0:MAXSURF),spmasss local
309 ftot(1)=sum(Ftots(1,0:MAXSURF))
310 ftot(2)=sum(Ftots(2,0:MAXSURF))
311 ftot(3)=sum(Ftots(3,0:MAXSURF))
331 & spmasss,(ftot(i),i=1,nsd)
|
| /phasta/phSolver/incompressible/ |
| H A D | forces.f | 17 real*8 ftots(3,0:MAXSURF),ftot(3) local
92 ftot(1)=sum(Ftots(1,0:MAXSURF))
93 ftot(2)=sum(Ftots(2,0:MAXSURF))
94 ftot(3)=sum(Ftots(3,0:MAXSURF))
98 & HFlux,spmasss,(ftot(i),i=1,nsd)
|