| /phasta/phSolver/incompressible/ |
| H A D | getfld.f | 40 if (matflg(2,1) .eq. 0) then
55 if (matflg(3,1) .eq. 0) then
|
| H A D | e3ivar.f | 92 if(matflg(5,1).eq.2) then ! boussinesq body force
98 if(matflg(5,1).eq.3.or.matflg(6,1).eq.1) then
408 if(matflg(5,1).eq.2) then ! boussinesq body force
414 if(matflg(5,1).eq.3.or.matflg(6,1).eq.1) then
|
| H A D | forces.f | 102 if((spmasss.ne.0) .and. (matflg(5,1).ne.0))then ! we are doing
106 select case ( matflg(5,1) )
|
| H A D | e3res.f | 84 if(matflg(6,1).eq.1) then ! rotation
376 if(matflg(5,1) .ge. 1) then
381 select case ( matflg(5,1) )
396 if(matflg(6,1).eq.1) then
|
| /phasta/phSolver/compressible/ |
| H A D | getdiff.f | 62 if (matflg(2,1) .eq. 0) then
163 if (matflg(3,1) .eq. 0) then
316 if (matflg(2,1) .eq. 0) then
338 if (matflg(3,1) .eq. 0) then
|
| H A D | e3source.f | 49 if(matflg(5,1).eq.1) then ! usual case
55 else if(matflg(5,1).eq.3) then ! user supplied white noise
78 else if(matflg(5,1).ge.4) then
|
| H A D | asigmr.f | 57 if(matflg(5,1).ge.4 )
|
| H A D | getthm.f | 66 ipress = matflg(1,1)
|
| H A D | e3wmlt.f | 127 if(matflg(5,1).ge.1) then
|
| /phasta/phSolver/common/ |
| H A D | input_fform.cc | 203 if((string)inp.GetValue("Equation of State") == "Incompressible") matdat.matflg[0][0] =-1 ; in input_fform()
204 if((string)inp.GetValue("Equation of State") == "Compressible") matdat.matflg[0][0] =0; in input_fform()
387 for(i=0; i < levlset.iLSet+1; i++) matdat.matflg[i][1] = 0; in input_fform()
390 for(i=0; i < levlset.iLSet+1; i++) matdat.matflg[i][2] = 0; in input_fform()
395 for(i=0; i < levlset.iLSet+1; i++) matdat.matflg[i][3] = 0; in input_fform()
433 for( i=0; i< levlset.iLSet +1 ; i++) matdat.matflg[i][4] = 0; in input_fform()
436 for( i=0; i< levlset.iLSet +1 ; i++) matdat.matflg[i][4] = 1; in input_fform()
439 for( i=0; i< levlset.iLSet +1 ; i++) matdat.matflg[i][4] = 3; in input_fform()
442 for(i=0; i< levlset.iLSet +1 ; i++) matdat.matflg[i][4] = 2; in input_fform()
445 for(i=0; i< levlset.iLSet +1 ; i++) matdat.matflg[i][4] = 4; in input_fform()
[all …]
|
| H A D | asithf.f | 22 if(matflg(1,1).eq.0) then ! compressible
87 if(matflg(1,1).eq.0) then ! compressible
|
| H A D | readnblk.f | 162 if(matflg(1,1).lt.0) then
518 if (matflg(1,1).eq.0) then ! compressible
526 if (matflg(1,1).eq.0) then ! compressible
|
| H A D | genini.f | 59 if(matflg(1,1).eq.0)then ! compressible code
|
| H A D | proces.f | 100 if(matflg(5,1).ge.4) then ! cool case (sponge)
|
| H A D | getstrl.f | 19 if(matflg(1,1).eq.0) then ! compressible
|
| H A D | bardmc.f | 97 if(matflg(1,1).eq.0) then ! compressible
318 if(matflg(1,1).eq.0) then ! compressible
693 if(matflg(1,1).eq.0) then ! compressible
848 if(matflg(1,1).eq.0) then ! compressible
|
| H A D | getdmc.f | 162 if(matflg(1,1).eq.0) then ! compressible
|
| H A D | input.f | 282 write (23,*) datmat(3,5,mxats), matflg(5,mxats),
|
| H A D | common_c.h | 461 int matflg[MAXTS][6]; member
|
| H A D | bctint.f | 74 if(matflg(5,1).eq.5) then
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 257 if(matflg(1,1).lt.0) then
350 if (matflg(1,1).eq.0) then ! compressible
358 if (matflg(1,1).eq.0) then ! compressible
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 276 if(matflg(1,1).lt.0) then
362 if (matflg(1,1).eq.0) then ! compressible
371 if (matflg(1,1).eq.0) then ! compressible
|
| /phasta/M2N/include/ |
| H A D | commonM2N_c.h | 385 int matflg[MAXTS][6]; member
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat_c.h | 385 int matflg[MAXTS][6]; member
|
| /phasta/M2NFixBnd/include/ |
| H A D | commonM2NFixBnd_c.h | 385 int matflg[MAXTS][6]; member
|