Home
last modified time | relevance | path

Searched refs:MAXSURF (Results 1 – 17 of 17) sorted by relevance

/phasta/phSolver/compressible/
H A Drstat.f32 real*8 ftots(3,0:MAXSURF),ftot(3),spmasstot(0:MAXSURF),spmasss
45 call MPI_ALLREDUCE (flxID(3,:), Ftots(1,:),MAXSURF+1,
47 call MPI_ALLREDUCE (flxID(4,:), Ftots(2,:),MAXSURF+1,
49 call MPI_ALLREDUCE (flxID(5,:), Ftots(3,:),MAXSURF+1,
51 call MPI_ALLREDUCE (flxID(2,:), spmasstot(:),MAXSURF+1,
63 ftot(1)=sum(Ftots(1,0:MAXSURF))
64 ftot(2)=sum(Ftots(2,0:MAXSURF))
65 ftot(3)=sum(Ftots(3,0:MAXSURF))
282 real*8 ftots(3,0:MAXSURF),ftot(3),spmasstot(0:MAXSURF),spmasss
295 call MPI_ALLREDUCE (flxID(3,:), Ftots(1,:),MAXSURF+1,
[all …]
/phasta/phSolver/incompressible/
H A Dforces.f17 real*8 ftots(3,0:MAXSURF),ftot(3)
77 call MPI_ALLREDUCE (flxID(3,:), Ftots(1,:),MAXSURF+1,
80 call MPI_ALLREDUCE (flxID(4,:), Ftots(2,:),MAXSURF+1,
83 call MPI_ALLREDUCE (flxID(5,:), Ftots(3,:),MAXSURF+1,
92 ftot(1)=sum(Ftots(1,0:MAXSURF))
93 ftot(2)=sum(Ftots(2,0:MAXSURF))
94 ftot(3)=sum(Ftots(3,0:MAXSURF))
198 do isrf = 0,MAXSURF
236 do isrf = 0,MAXSURF
H A Ditrdrv.f813 do isrf = 0,MAXSURF
1071 integer nsrfIdList(0:MAXSURF), numSrfs
1076 real*8 NewQ(0:MAXSURF) !temporary unknown for the flow rate
1226 real*8 PdistCur(0:MAXSURF), timestepRCR
1243 integer srfIdList(0:MAXSURF), numSrfs, irankCoupled
1245 real*8 Qini(0:MAXSURF) !initial flow rate
1246 real*8 PdistIni(0:MAXSURF) !initial distal pressure
1247 real*8 Pini(0:MAXSURF),CoupleArea(0:MAXSURF) ! initial pressure
1250 allocate (RCRic(0:MAXSURF))
1279 integer srfIdList(0:MAXSURF), numSrfs, irankCoupled, i, k
[all …]
H A Delmgmr.f602 real*8 qsurf(0:MAXSURF),qsurfProc(0:MAXSURF)
603 integer numSrfs, irankCoupled, srfIdList(0:MAXSURF)
633 npars=MAXSURF+1
670 real*8 p(0:MAXSURF)
H A De3b.f146 if(iface>MAXSURF) then
147 write(*,*) 'iface>MAXSURF',iface,MAXSURF
/phasta/phSolver/common/
H A Dcommon_c.h59 #define MAXSURF 1000 macro
219 double flxID[MAXSURF+1][10] ;
222 int nsrflist[MAXSURF+1];
224 double flxIDsclr[MAXSURF][4];
225 int irankfilesforce[MAXSURF+1];
609 double ValueListResist[MAXSURF+1];
620 int nsrflistResist[MAXSURF+1];
622 int nsrflistImp[MAXSURF+1];
625 int nsrflistRCR[MAXSURF+1];
H A Dgenini.f103 allocate (poldImp(0:MAXSURF)) !for pressure part that depends on the history only
126 allocate (poldRCR(0:MAXSURF)) !for pressure part that depends on the history only
127 allocate (HopRCR(0:MAXSURF)) !for H operator contribution
H A Dcommon.h25 parameter ( MAXTOP = 6, MAXSURF=1000 )
46 common /nomodule/ bcttimescale,ValueListResist(0:MAXSURF),
48 & icardio, itvn, ipvsq, numResistSrfs, nsrflistResist(0:MAXSURF),
49 & numImpSrfs, nsrflistImp(0:MAXSURF),impfile,
50 & numRCRSrfs, nsrflistRCR(0:MAXSURF),ircrfile,
104 c nIDs currently set to MAXSURF, each surface has its own
106 common /aerfrc/ flxID(10,0:MAXSURF), Force(3),HFlux,
107 & nsrflist(0:MAXSURF), isrfIM,
108 & flxIDsclr(4,MAXSURF),
109 & irankfilesforce(0:MAXSURF)
H A Dinput_fform.cc320 for(i=0;i<MAXSURF+1; i++) aerfrc.nsrflist[i] = 0; in input_fform()
832 if ( nomodule.icardio > MAXSURF ) { in input_fform()
847 for(i=0;i<MAXSURF+1; i++) nomodule.nsrflistResist[i] = 0; in input_fform()
852 for(i =0; i< MAXSURF+1 ; i++) nomodule.ValueListResist[i] = 0; in input_fform()
858 for(i=0;i<MAXSURF+1; i++) nomodule.nsrflistImp[i] = 0; in input_fform()
867 for(i=0;i<MAXSURF+1; i++) nomodule.nsrflistRCR[i] = 0; in input_fform()
H A Dbctint.f490 real*8 Pdist(0:MAXSURF)
521 real*8 pressHist(0:MAXSURF)
H A Dinput.config351 List of Resistance Surfaces: NODEFAULT # nsrflistResist(j), j=0,MAXSURF
354 List of Impedance Surfaces: NODEFAULT # nsrflistImp(j), j=0,MAXSURF
357 List of RCR Surfaces: NODEFAULT # nsrflistRCR(j), j=0,MAXSURF
/phasta/AcuStat/include/
H A DcommonAcuStat_c.h57 #define MAXSURF 30 macro
176 double flxID[MAXSURF+1][10] ;
179 int nsrflist[MAXSURF+1];
181 double flxIDsclr[MAXSURF][4];
530 double ValueListResist[MAXSURF+1];
541 int nsrflistResist[MAXSURF+1];
543 int nsrflistImp[MAXSURF+1];
546 int nsrflistRCR[MAXSURF+1];
H A DcommonAcuStat.h25 parameter ( MAXTOP = 6, MAXSURF=30 )
45 common /nomodule/ bcttimescale,ValueListResist(0:MAXSURF),
47 & icardio, itvn, ipvsq, numResistSrfs, nsrflistResist(0:MAXSURF),
48 & numImpSrfs, nsrflistImp(0:MAXSURF),impfile,
49 & numRCRSrfs, nsrflistRCR(0:MAXSURF),ircrfile,
93 c nIDs currently set to MAXSURF, each surface has its own
95 common /aerfrc/ flxID(10,0:MAXSURF), Force(3),HFlux,
96 & nsrflist(0:MAXSURF), isrfIM,
97 & flxIDsclr(4,MAXSURF)
/phasta/M2N/include/
H A DcommonM2N_c.h57 #define MAXSURF 30 macro
176 double flxID[MAXSURF+1][10] ;
179 int nsrflist[MAXSURF+1];
181 double flxIDsclr[MAXSURF][4];
531 double ValueListResist[MAXSURF+1];
542 int nsrflistResist[MAXSURF+1];
544 int nsrflistImp[MAXSURF+1];
547 int nsrflistRCR[MAXSURF+1];
H A DcommonM2N.h25 parameter ( MAXTOP = 6, MAXSURF=30 )
45 common /nomodule/ bcttimescale,ValueListResist(0:MAXSURF),
47 & icardio, itvn, ipvsq, numResistSrfs, nsrflistResist(0:MAXSURF),
48 & numImpSrfs, nsrflistImp(0:MAXSURF),impfile,
49 & numRCRSrfs, nsrflistRCR(0:MAXSURF),ircrfile,
93 c nIDs currently set to MAXSURF, each surface has its own
95 common /aerfrc/ flxID(10,0:MAXSURF), Force(3),HFlux,
96 & nsrflist(0:MAXSURF), isrfIM,
97 & flxIDsclr(4,MAXSURF)
/phasta/M2NFixBnd/include/
H A DcommonM2NFixBnd_c.h57 #define MAXSURF 30 macro
176 double flxID[MAXSURF+1][10] ;
179 int nsrflist[MAXSURF+1];
181 double flxIDsclr[MAXSURF][4];
530 double ValueListResist[MAXSURF+1];
541 int nsrflistResist[MAXSURF+1];
543 int nsrflistImp[MAXSURF+1];
546 int nsrflistRCR[MAXSURF+1];
H A DcommonM2NFixBnd.h25 parameter ( MAXTOP = 6, MAXSURF=30 )
45 common /nomodule/ bcttimescale,ValueListResist(0:MAXSURF),
47 & icardio, itvn, ipvsq, numResistSrfs, nsrflistResist(0:MAXSURF),
48 & numImpSrfs, nsrflistImp(0:MAXSURF),impfile,
49 & numRCRSrfs, nsrflistRCR(0:MAXSURF),ircrfile,
93 c nIDs currently set to MAXSURF, each surface has its own
95 common /aerfrc/ flxID(10,0:MAXSURF), Force(3),HFlux,
96 & nsrflist(0:MAXSURF), isrfIM,
97 & flxIDsclr(4,MAXSURF)