Lines Matching refs:c
1 c----------------------------------------------------------------------
2 c
3 c This file contains the common blocks and the data declaration needed
4 c for the routines.
5 c
6 c Input variables that have been previously declared in common_c.h have to be
7 c re-declared here, in a consistant block.
8 c
9 c Zdenek Johan, Winter 1991. (Fortran 90)
10 c----------------------------------------------------------------------
13 c
14 c.... parameters IF YOU CHANGE THES YOU HAVE TO CHANGE THEM IN
15 c common_c.h ALSO
16 c
19 c
20 c The five types of region topology are 1= Tet, 2=Hex, 3= Wedge (tri-start),
21 c 4= Wedge (quad-first) 5=pyramid
22 c
23 c The two types of face topology are 1= tri, 2=quad
24 c
27 c the common block nomodule holds all the things which have been removed
28 c from different modules
74 c
75 c.... common blocks
76 c
78 c
79 c.... common blocks for hierarchic basis functions
80 c
87 c nsrflist is a binary switch that tells us if a given srfID should be
88 c included in the consistent flux calculation. It starts from zero
89 c since we need to be able to handle/ignore surfaces with no srfID attached
90 c
91 c flxID(numfluxes,nIDs+1)
92 c numfluxes = area, mass, fx, fy, fz, heat, scalar_flux_{1,2,3,4}
93 c nIDs currently set to MAXSURF, each surface has its own
94 c
98 c
100 c
102 c
104 c
110 c...........................................................................
117 c...........................................................................
119 c
123 c
126 c
129 c
131 c
135 c
146 c
151 c
153 c
156 c
160 c
161 c /* common /andres/ fwr1,ngaussf,idim,nlist */
169 c
171 c
173 c
180 c
184 c
186 c common /outpar/ ro, vel, temper, press, entrop, ntout,
187 c & ioform, iowflux, iofieldv, iotype, ioybar,
188 c & nstepsincycle, nphasesincycle, ncycles_startphaseavg
197 c
199 c
201 c
203 c
205 c
208 c
210 c
215 c
217 c
222 c
225 c
229 c
231 c
234 c
258 c
259 c----------------------------------------------------------------------
260 c
261 c.... element pointers
262 c
263 c mmat (MAXBLK) : pointer to interior element material number
264 c mmatb (MAXBLK) : pointer to boundary element material number
265 c mien (MAXBLK) : pointer to ien array
266 c mienb (MAXBLK) : pointer to ienb array
267 c miBCB (MAXBLK) : pointer to iBCB array
268 c mDt (MAXBLK) : pointer to Dt array
269 c mDC (MAXBLK) : pointer to DC array
270 c mBCB (MAXBLK) : pointer to BCB array
271 c mstiff (MAXBLK) : pointer to stiff array
272 c
273 c----------------------------------------------------------------------
274 c
275 c.... common /aerfrc/ : aerodynamic forces
276 c
277 c Force(3) : components of the aerodynamic forces
278 c HFlux : total heat flux
279 c
280 c----------------------------------------------------------------------
281 c
282 c.... common /astore/ : the dynamic memory allocation area
283 c
284 c a(...) : the blank array used for front-end data storage
285 c
286 c----------------------------------------------------------------------
287 c
288 c.... common /blkdat/ : blocking data
289 c
290 c lcblk (10,MAXBLK+1) : blocking data for the interior elements
291 c lcblkb (10,MAXBLK+1) : blocking data for the boundary elements
292 c
293 c----------------------------------------------------------------------
294 c
295 c.... common /bndnod/ : boundary nodes of boundary elements
296 c
297 c mnodeb (9,8,3) : boundary nodes of each element category and dimension
298 c
299 c----------------------------------------------------------------------
300 c
301 c.... common /conpar/ : input constants
302 c
303 c numnp : number of nodal points
304 c numel : number of elements
305 c numelb : number of boundary elements
306 c numpbc : number of nodes having a boundary condition
307 c nen : maximum number of element nodes
308 c nfaces : maximum number of element faces
309 c nsd : number of space dimensions
310 c numflx : number of flux boundary nodes
311 c ndof : number of degrees of freedom per node
312 c iALE : ALE formulation flag
313 c icoord : coordinate system flag
314 c navier : Navier-Stokes calculation flag
315 c irs : restart option
316 c iexec : execute flag
317 c necho : input echo parameter
318 c ichem : equilibrium chemistry flag (for outchem.step dump)
319 c iRK : Runge-Kutta flag
320 c nshg : global number of shape functions (degrees of freedom,
321 c or equations). Computed from the specified p-order,
322 c the number of edges, and the number of faces (in the
323 c entire mesh)
324 c
325 c----------------------------------------------------------------------
326 c
327 c.... common /datpnt/ : front-end data pointers
328 c
329 c mshp : pointer to shape-functions
330 c mshgl : pointer to local-grad-shape-functions
331 c mwght : pointer to quadrature weights
332 c mshpb : pointer to shape-functions of boundary elements
333 c mshglb : pointer to local-grad-shape-functions of bound. elem.
334 c mwghtb : pointer to quadrature weights of bound. elements
335 c mmut : pointer to table mu = mu (p,T)
336 c mrhot : pointer to table rho = rho (p,T)
337 c mxst : pointer to table xs = xs (p,T)
338 c
339 c----------------------------------------------------------------------
340 c
341 c.... common /elmcat/ : element category information
342 c
343 c mcsyst : maximum number of element coordinate system
344 c melCat : maximum number of element categories
345 c nenCat (8,3) : number of nodes for each category and dimension
346 c nfaCat (8,3) : number of faces for each category and dimension
347 c
348 c----------------------------------------------------------------------
349 c
350 c.... common /elmpar/ : element parameters
351 c
352 c lelCat : element category (P1, Q1, P2, Q2, etc.)
353 c lcsyst : element coordinate system
354 c iorder : element order (=k for Pk and Qk)
355 c nenb : number of element nodes per boundary sides
356 c maxsh : total number integration points
357 c maxshb : total number integration points of boundary elements
358 c nelblk : number of element blocks
359 c nelblb : number of boundary element blocks
360 c ndofl : number of degrees of freedom (for current block)
361 c nsymdl : number of d.o.f for symm. storage (for current block)
362 c nenl : number of element nodes (for current block)
363 c nfacel : number of element faces (for current block)
364 c nenbl : number of boundary element nodes
365 c intind : integration data index
366 c nintg : number of integration points
367 c mattyp : material type ( = 0 for fluid; = 1 for solid )
368 c
369 c----------------------------------------------------------------------
370 c
371 c.... common /genpar/ : control parameters
372 c
373 c E3nsd : NSD .eq. 3 flag; 0. for 2D, 1. for 3D
374 c I3nsd : NSD .eq. 3 flag; 0 for 2D, 1 for 3D
375 c nsymdf : number of d.o.f.'s in symm. storage (= ndof*(ndof+1)/2)
487 c myBrg : pointer to minimize solution matrix
488 c mRcos : pointer to Rotation Cosine of QR algorithm
489 c mRsin : pointer to Rotation Sine of QR algorithm
490 c
491 c----------------------------------------------------------------------
492 c
493 c.... common /matpar/ : material constants
494 c
495 c pr : Prandtl number
496 c Planck : Planck's constant
498 c Nh : Avogadro's number