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
196 c
198 c
200 c
202 c
204 c
207 c
209 c
214 c
216 c
221 c
224 c
228 c
230 c
233 c
257 c
258 c----------------------------------------------------------------------
259 c
260 c.... element pointers
261 c
262 c mmat (MAXBLK) : pointer to interior element material number
263 c mmatb (MAXBLK) : pointer to boundary element material number
264 c mien (MAXBLK) : pointer to ien array
265 c mienb (MAXBLK) : pointer to ienb array
266 c miBCB (MAXBLK) : pointer to iBCB array
267 c mDt (MAXBLK) : pointer to Dt array
268 c mDC (MAXBLK) : pointer to DC array
269 c mBCB (MAXBLK) : pointer to BCB array
270 c mstiff (MAXBLK) : pointer to stiff array
271 c
272 c----------------------------------------------------------------------
273 c
274 c.... common /aerfrc/ : aerodynamic forces
275 c
276 c Force(3) : components of the aerodynamic forces
277 c HFlux : total heat flux
278 c
279 c----------------------------------------------------------------------
280 c
281 c.... common /astore/ : the dynamic memory allocation area
282 c
283 c a(...) : the blank array used for front-end data storage
284 c
285 c----------------------------------------------------------------------
286 c
287 c.... common /blkdat/ : blocking data
288 c
289 c lcblk (10,MAXBLK+1) : blocking data for the interior elements
290 c lcblkb (10,MAXBLK+1) : blocking data for the boundary elements
291 c
292 c----------------------------------------------------------------------
293 c
294 c.... common /bndnod/ : boundary nodes of boundary elements
295 c
296 c mnodeb (9,8,3) : boundary nodes of each element category and dimension
297 c
298 c----------------------------------------------------------------------
299 c
300 c.... common /conpar/ : input constants
301 c
302 c numnp : number of nodal points
303 c numel : number of elements
304 c numelb : number of boundary elements
305 c numpbc : number of nodes having a boundary condition
306 c nen : maximum number of element nodes
307 c nfaces : maximum number of element faces
308 c nsd : number of space dimensions
309 c numflx : number of flux boundary nodes
310 c ndof : number of degrees of freedom per node
311 c iALE : ALE formulation flag
312 c icoord : coordinate system flag
313 c navier : Navier-Stokes calculation flag
314 c irs : restart option
315 c iexec : execute flag
316 c necho : input echo parameter
317 c ichem : equilibrium chemistry flag (for outchem.step dump)
318 c iRK : Runge-Kutta flag
319 c nshg : global number of shape functions (degrees of freedom,
320 c or equations). Computed from the specified p-order,
321 c the number of edges, and the number of faces (in the
322 c entire mesh)
323 c
324 c----------------------------------------------------------------------
325 c
326 c.... common /datpnt/ : front-end data pointers
327 c
328 c mshp : pointer to shape-functions
329 c mshgl : pointer to local-grad-shape-functions
330 c mwght : pointer to quadrature weights
331 c mshpb : pointer to shape-functions of boundary elements
332 c mshglb : pointer to local-grad-shape-functions of bound. elem.
333 c mwghtb : pointer to quadrature weights of bound. elements
334 c mmut : pointer to table mu = mu (p,T)
335 c mrhot : pointer to table rho = rho (p,T)
336 c mxst : pointer to table xs = xs (p,T)
337 c
338 c----------------------------------------------------------------------
339 c
340 c.... common /elmcat/ : element category information
341 c
342 c mcsyst : maximum number of element coordinate system
343 c melCat : maximum number of element categories
344 c nenCat (8,3) : number of nodes for each category and dimension
345 c nfaCat (8,3) : number of faces for each category and dimension
346 c
347 c----------------------------------------------------------------------
348 c
349 c.... common /elmpar/ : element parameters
350 c
351 c lelCat : element category (P1, Q1, P2, Q2, etc.)
352 c lcsyst : element coordinate system
353 c iorder : element order (=k for Pk and Qk)
354 c nenb : number of element nodes per boundary sides
355 c maxsh : total number integration points
356 c maxshb : total number integration points of boundary elements
357 c nelblk : number of element blocks
358 c nelblb : number of boundary element blocks
359 c ndofl : number of degrees of freedom (for current block)
360 c nsymdl : number of d.o.f for symm. storage (for current block)
361 c nenl : number of element nodes (for current block)
362 c nfacel : number of element faces (for current block)
363 c nenbl : number of boundary element nodes
364 c intind : integration data index
365 c nintg : number of integration points
366 c mattyp : material type ( = 0 for fluid; = 1 for solid )
367 c
368 c----------------------------------------------------------------------
369 c
370 c.... common /genpar/ : control parameters
371 c
372 c E3nsd : NSD .eq. 3 flag; 0. for 2D, 1. for 3D
373 c I3nsd : NSD .eq. 3 flag; 0 for 2D, 1 for 3D
374 c nsymdf : number of d.o.f.'s in symm. storage (= ndof*(ndof+1)/2)
486 c myBrg : pointer to minimize solution matrix
487 c mRcos : pointer to Rotation Cosine of QR algorithm
488 c mRsin : pointer to Rotation Sine of QR algorithm
489 c
490 c----------------------------------------------------------------------
491 c
492 c.... common /matpar/ : material constants
493 c
494 c pr : Prandtl number
495 c Planck : Planck's constant
497 c Nh : Avogadro's number