Home
last modified time | relevance | path

Searched refs:code (Results 1 – 25 of 26) sorted by relevance

12

/phasta/phSolver/common/
H A Dlocal.f1 subroutine local (global, rlocal, ientmp, n, code) argument
26 character*8 code local
39 if (code .eq. 'gather ') then
63 if (code .eq. 'scatter ') then
89 if (code .eq. 'globaliz') then
108 call error ('local ', code, 0)
114 subroutine localx (global, rlocal, ien, n, code) argument
139 character*8 code local
143 if (code .eq. 'gather ') then
166 if (code .eq. 'scatter ') then
[all …]
H A DcommuInt.f1 subroutine commuInt (global, ilwork, n, code) argument
40 character*3 code local
43 if (code .ne. 'in ' .and. code .ne. 'out')
113 if (code .eq. 'in ') then
120 if (code .eq. 'out') then
131 if (code .eq. 'in ') then
148 if (code .eq. 'out') then
166 if(code .eq. 'in ') then
H A Dlocaly.f1 subroutine localy (global, rlocal, ientmp, n, code) argument
26 character*8 code local
39 if (code .eq. 'gather ') then
87 if (code .eq. 'scatter ') then
93 if (code .eq. 'globaliz') then
99 call error ('local ', code, 0)
H A Drestar.f1 subroutine restar (code, q, ac) argument
22 character*4 code local
34 if (code .eq. 'in ') then
54 if (code .eq. 'out ') then
114 call error ('restar ',code//' ',0)
H A Dcommu.f1 subroutine commu (global, ilwork, n, code) argument
41 character*3 code local
48 if (code .ne. 'in ' .and. code .ne. 'out') then
51 write(*,*) 'ERROR code =''', code,''''
152 if (code .eq. 'in ') then
171 if (code .eq. 'out') then
192 if (code .eq. 'in ') then
221 if (code .eq. 'out') then
265 if(code .eq. 'in ') then
H A Drotabc.f1 subroutine rotabc (global, iBC, code) argument
23 character*3 code local
25 if (code .eq. 'in ') then
31 else if (code .eq. 'out') then
H A Drwvelb.f1 subroutine rwvelb (code, q, ifail) argument
8 character*4 code local
22 if (code .eq. 'in ') then
74 if (code .eq. 'out ') then
111 call error ('velb ',code//' ',0)
H A Dgen_ncorp.c14 void commu_int(int* global, int* ilwork, int* n, char* code);
H A Dinput.config12 # common.h (to carry new parameter through code)
113 Prandtl Number: 0.72 # Compressible code sets diffusivity with this
301 # negative values to the two previous entries make their value ISTEP in code
305 # with a zero here the code disables
409 #AMG PARAMETERS < Note: you will need to compile the code with AMG=1 as an exported environment v…
/phasta/phSolver/compressible/
H A Dlocalt.f1 subroutine localt (global, rlocal, ien, n, code) argument
28 character*8 code local
32 if (code .eq. 'gather ') then
63 if (code .eq. 'scatter ') then
98 if (code .eq. 'globaliz') then
118 call error ('local ', code, 0)
126 subroutine localtSclr (global, rlocal, ien, code) argument
153 character*8 code local
157 if (code .eq. 'gather ') then
186 if (code .eq. 'scatter ') then
[all …]
H A Ditrpr1.f1 subroutine itrPr1 (ien, Binv, uBrg, uBtmp, code) argument
27 character*8 code local
31 if (code .eq. 'R_Pcond ') then
51 if (code .eq. 'L_Pcond ') then
71 call error ('itrPr1 ', code, iGMRES)
H A Di3ldu.f1 subroutine i3LDU (Diag, r, code) argument
46 character*8 code local
50 if (code .eq. 'LDU_Fact') then
103 if (code .eq. 'forward ') then
130 if (code .eq. 'backward') then
157 if (code .eq. 'product ') then
176 call error ('i3LDU ', code, 0)
H A Dshuffle.f1 subroutine yshuffle(restmp, code) argument
12 character*8 code local
14 if (code .eq. 'old2new ') then
21 if( code .eq. 'new2old ') then
H A Di3pcond.f1 subroutine i3Pcond ( Binv, uBrg, ilwork, code ) argument
28 character*8 code local
44 if (code .eq. 'R_Pcond ') then
59 if (code .eq. 'L_Pcond ') then
H A Di3lu.f1 subroutine i3LU (Diag, r, code) argument
36 character*8 code local
41 if (code .eq. 'LU_Fact ') then
102 if (code .eq. 'forward ') then
125 if (code .eq. 'backward') then
152 if (code .eq. 'product ') then
174 call error ('i3LU ', code, 0)
/phasta/M2N/src/
H A Dcommu.f1 subroutine commu (global, ilwork, n, code) argument
41 character*3 code local
48 if (code .ne. 'in ' .and. code .ne. 'out')
146 if (code .eq. 'in ') then
157 if (code .eq. 'out') then
170 if (code .eq. 'in ') then
191 if (code .eq. 'out') then
218 if(code .eq. 'in ') then
/phasta/M2NFixBnd/src/
H A DcommuMax.f1 subroutine commuMax (global, ilwork, n, code) argument
41 character*3 code local
49 if (code .ne. 'in ' .and. code .ne. 'out')
150 if (code .eq. 'in ') then
161 if (code .eq. 'out') then
174 if (code .eq. 'in ') then
195 if (code .eq. 'out') then
222 if(code .eq. 'in ') then
/phasta/AcuStat/src/
H A DcommuMax.f1 subroutine commuMax (global, ilwork, n, code) argument
41 character*3 code local
49 if (code .ne. 'in ' .and. code .ne. 'out')
149 if (code .eq. 'in ') then
160 if (code .eq. 'out') then
173 if (code .eq. 'in ') then
194 if (code .eq. 'out') then
221 if(code .eq. 'in ') then
/phasta/phSolver/
H A DCHANGES26 …code. Note if you include you have to either compile your own PARPACK libraries or link to those …
31 Fixed several places that compressible code was broken in the 3 previous commits.
313 Prandtl Number: 0.72 # Compressible code sets diffusivity with this
327 5) Changes to io interface ANIL DESCRIBE ( Anil: no changes, memory leaks fixed , code
363 In the incompressible code, temperature is also afforded the same type of descriptors
367 … ilhs back into the scalar routines. This was "cleaned up" throughout the code with iprec and ilhs…
369 Returned the option to use pressure outflow boundary condition for the compressible code in the "en…
389 Fixed solver tolerance error problem that was present when the incompressible code solved temperatu…
440 added. Basically the code solves both RANS (Spalart-Allmaras) and any
453 and is now correctly dimensioned throughout code (along with strl)
[all …]
/phasta/
H A DLicense.txt6 1. Redistributions of source code must retain the above copyright notice, this list of conditions a…
H A DCMakeLists.txt94 option(PHASTA_SKIP_MPI_CHECK "Bypass CMake MPI code. Don't use this" OFF)
/phasta/phSolver/Test_IC/
H A Dsolver.inp20 # common.h (to carry new parameter through code)
72 # negative values to the two previous entries make their value ISTEP in code
/phasta/phSolver/testIC-DSIM/
H A Dsolver.inp20 # common.h (to carry new parameter through code)
72 # negative values to the two previous entries make their value ISTEP in code
/phasta/phSolver/AMG/
H A Damgread.txt6 functionality or simply want to understand the code, please use this
183 Note in the code we use "I" instead of "Q".
197 of the code that do the so called "post-smoothing", but they are never
235 of the code (if (numpe.lt.2) then) because that's for reduced serial,
/phasta/phSolver/Test_C/
H A Dsolver.inp20 # common.h (to carry new parameter through code)

12