Home
last modified time | relevance | path

Searched refs:is (Results 1 – 25 of 46) sorted by relevance

12

/phasta/phSolver/AMG/
H A Damgread.txt4 This document is a README file for coding parallel AMG for Pressure
9 This document is intended to serve as extra comments for the source, not
13 you continue. row-wise sparse storage is used everywhere in this
27 smartAMG, which is never used.
32 to do the actual preconditioning. This is the interface between our AMG
43 We have to start from this file. This is a module file containing
49 dimentions. This is used, as shown in this file later, in submatrices
55 amg_ppeDiag is important diagonal scaling matrices for different levels.
60 The purpose of this file is: 1) CF-spliting, 2) setup interpolation
63 CF-spliting is done in a seperate function ramg_CFsplit. Other than the
[all …]
/phasta/shapeFunction/src/
H A DuniformP.c11 int NS,is,i,j,ip,nshp=0,(*fpdrv)[2]; in TetShapeAndDrv() local
68 for(is=0; is < NS; is++) { in TetShapeAndDrv()
69 mode = F_modeShapeTri(ip,is,Lf); in TetShapeAndDrv()
71 F_modeShapeTriDrv(ip,is,Lf,mfdrv); in TetShapeAndDrv()
94 for(is=0; is < NS; is++) { in TetShapeAndDrv()
95 mode = R_modeShapeTet(ip,is,L); in TetShapeAndDrv()
97 R_modeShapeTetDrv(ip, is, L, mdrv); in TetShapeAndDrv()
/phasta/phSolver/incompressible/
H A DitrPC.f156 is=5+isclr
157 y(:,is) = y(:,is) + fct1 * solinc(:)
158 ac(:,is) = ac(:,is) + solinc(:)
188 is=5+isclr
195 posinc = max(updFct*updFct2*solinc,c1*y(:,is))
196 y(:,is) = y(:,is) + fct1 * posinc(:)
197 ac(:,is) = ac(:,is) + posinc(:)
H A Dbc3per.f50 do is = 1,numseg
51 isgbeg = ilwork (itkbeg + 3 + 2*is)
52 lenseg = ilwork (itkbeg + 4 + 2*is)
/phasta/M2NFixBnd/src/
H A Dctypes.f56 do is = 1,numseg
60 isbegin (is) = ilwork (itkbeg + 3 + 2*is)
64 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
68 lfront = lfront + lenseg(is)
74 if (iacc .eq. 0) nshg0 = nshg0 - lenseg(is)
H A DcommuMax.f180 do is = 1,numseg
181 lenseg = ilwork (itkbeg + 4 + 2*is)
240 do is = 1,numseg
241 isgbeg = ilwork (itkbeg + 3 + 2*is)
242 lenseg = ilwork (itkbeg + 4 + 2*is)
/phasta/AcuStat/src/
H A Dctypes.f56 do is = 1,numseg
60 isbegin (is) = ilwork (itkbeg + 3 + 2*is)
64 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
68 lfront = lfront + lenseg(is)
74 if (iacc .eq. 0) nshg0 = nshg0 - lenseg(is)
H A DcommuMax.f179 do is = 1,numseg
180 lenseg = ilwork (itkbeg + 4 + 2*is)
239 do is = 1,numseg
240 isgbeg = ilwork (itkbeg + 3 + 2*is)
241 lenseg = ilwork (itkbeg + 4 + 2*is)
/phasta/M2N/src/
H A Dctypes.f55 do is = 1,numseg
59 isbegin (is) = ilwork (itkbeg + 3 + 2*is)
63 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
67 lfront = lfront + lenseg(is)
73 if (iacc .eq. 0) nshg0 = nshg0 - lenseg(is)
H A Dcommu.f176 do is = 1,numseg
177 lenseg = ilwork (itkbeg + 4 + 2*is)
236 do is = 1,numseg
237 isgbeg = ilwork (itkbeg + 3 + 2*is)
238 lenseg = ilwork (itkbeg + 4 + 2*is)
/phasta/phSolver/common/
H A Dctypes.f54 do is = 1,numseg
58 isbegin (is) = ilwork (itkbeg + 3 + 2*is)
62 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
66 lfront = lfront + lenseg(is)
72 if (iacc .eq. 0) nshg0 = nshg0 - lenseg(is)
H A DcommuInt.f137 do is = 1,numseg
138 lenseg = ilwork (itkbeg + 4 + 2*is)
184 do is = 1,numseg
185 isgbeg = ilwork (itkbeg + 3 + 2*is)
186 lenseg = ilwork (itkbeg + 4 + 2*is)
H A Dcommu.f198 do is = 1,numseg
199 lenseg = ilwork (itkbeg + 4 + 2*is)
283 do is = 1,numseg
284 isgbeg = ilwork (itkbeg + 3 + 2*is)
285 lenseg = ilwork (itkbeg + 4 + 2*is)
H A Dgetvel.f56 do is = 1,numseg
57 isgbeg = ilwork (itkbeg + 3 + 2*is)
58 lenseg = ilwork (itkbeg + 4 + 2*is)
/phasta/phSolver/testIC-DSIM/
H A Dsolver.inp3 # Basic format is
10 # find the default values for everything that is allowed to have a
17 # parameter change. If it is a new parameter, you must
24 # In case it is not clear by now, # allows you to comment either from the
64 { # lines below are only read if ||| is true
78 #This last one is brand new. It allows you to construct your step
79 #from elementary operations. It works under the premise that a step is
98 # Step Construction : 0 1 0 1 # this is the standard two iteration
100 Step Construction : 0 1 # this is the standard one iteration
103 # This one is one Tony might like where the solver would solve the flow with
[all …]
/phasta/phSolver/Test_IC/
H A Dsolver.inp3 # Basic format is
10 # find the default values for everything that is allowed to have a
17 # parameter change. If it is a new parameter, you must
24 # In case it is not clear by now, # allows you to comment either from the
64 { # lines below are only read if ||| is true
78 #This last one is brand new. It allows you to construct your step
79 #from elementary operations. It works under the premise that a step is
98 # Step Construction : 0 1 0 1 # this is the standard two iteration
100 Step Construction : 0 1 # this is the standard one iteration
103 # This one is one Tony might like where the solver would solve the flow with
[all …]
/phasta/converterIO/
H A DREADME.md9 The original Posix format is characterized by 1 geombc and 1 restart file per mesh part, whereas Sy…
14 Note that the phastaIO library is also required to compile this library
21 …er the Posix format (one single geombc and restart file per part), where # is the number of parts …
22 Let us also assume that we want @ SyncIO files, where "@" is an integer.
23 The first requirement is that mod(#,@)=0 so that we end up #/@ parts per SyncIO file.
46 No worry, there is a bash script which can generate automatically this input file, which is provide…
47 The script's name is create_IO_O2N_input.sh. Run this script a first time without any argument to l…
53 Indeed, for mixed topology meshes, there is no garantee that a single geombc file will contain all …
54 Therefore, it is strongly advised to run this script on a limited part count mesh (up to a few thou…
67 Although there is a serial reader for SyncIO file that is used in Paraview for instance, converterN…
[all …]
/phasta/phSolver/compressible/
H A Dau1gmr.f90 do is = 1,numseg
91 isgbeg = ilwork (itkbeg + 3 + 2*is)
92 lenseg = ilwork (itkbeg + 4 + 2*is)
186 do is = 1,numseg
187 isgbeg = ilwork (itkbeg + 3 + 2*is)
188 lenseg = ilwork (itkbeg + 4 + 2*is)
H A DitrPC.f162 is=5+isclr
163 y(:,is) = y(:,is) - Dyt(:)
167 ac(:,is)= acold(:,is)*fct1+(y(:,is)-yold(:,is))*fct2
H A Dbc3res.f186 do is = 1,numseg
187 isgbeg = ilwork (itkbeg + 3 + 2*is)
188 lenseg = ilwork (itkbeg + 4 + 2*is)
277 do is = 1,numseg
278 isgbeg = ilwork (itkbeg + 3 + 2*is)
279 lenseg = ilwork (itkbeg + 4 + 2*is)
/phasta/M2N/
H A DM2N_input.dat10 ### What follows is a short manual and is not read by M2N ###
11 This Script is used to reduce different fields from M parts to N parts, using the mapping fields (p…
/phasta/phSolver/
H A DCHANGES2 the usual command line is
4 ARCHOS needs to be specified when ever the build target is different from the native
10 VERSION needs to be specified if the source base is in the dirtory structure
16 if PARALLEL=mpich2 is specified, we also need to specify a MPICOMM type ch_shmem or
26 …been made are those contained within the download instructions. Note there is also now a directory…
32 …at it gets the MKL libraries properly under their current placement. This is a temporary fix that…
74 ybar(:,1) - ybar(:,3) is average velocity components
75 ybar(:,4) is average pressure
76 ybar(:,5) is average speed
94 wall shear stress print out into restart (via tag 'wall shear stresses' ) is
[all …]
/phasta/AcuStat/
H A DAcuStat_input.dat12 ### What follows is a short manual and is not read by AcuStat ###
13 This Script is primary used to accumulate the statistics from the ybar field and write the solution…
/phasta/phSolver/common/test/
H A DphIOreadIlwork.cc119 for(int is=1;is<=numseg;is++) { in main() local
120 int lenseg = ilwork [itkbeg + 4 + 2*is]; in main()
/phasta/svLS/
H A Dlicense.txt7 ! This software is Copyright ©2012 The Regents of the University of
12 ! and without a written agreement is hereby granted, provided that
27 ! documentation are supplied "as is", without any accompanying
31 ! purposes and is advised not to rely exclusively on the program for

12