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
85 c
86 c.... common blocks
87 c
89 c
90 c.... common blocks for hierarchic basis functions
91 c
98 c nsrflist is a binary switch that tells us if a given srfID should be
99 c included in the consistent flux calculation. It starts from zero
100 c since we need to be able to handle/ignore surfaces with no srfID attached
101 c
102 c flxID(numfluxes,nIDs+1)
103 c numfluxes = area, mass, fx, fy, fz, heat, scalar_flux_{1,2,3,4}
104 c nIDs currently set to MAXSURF, each surface has its own
105 c
110 c
112 c
114 c
126 c......................NASA Inlet Woolwine.................................
129 c..........................................................................
130 c...........................................................................
165 c...........................................................................
167 c
171 c
174 c
176 c
180 c
191 c
198 c
200 c
203 c
207 c
208 c /* common /andres/ fwr1,ngaussf,idim,nlist */
216 c
218 c
225 c
240 c
242 c
244 c
246 c
249 c
251 c
256 c
258 c
263 c
266 c
270 c
272 c
275 c
300 c
301 c----------------------------------------------------------------------
302 c
303 c.... element pointers
304 c
305 c mmat (MAXBLK) : pointer to interior element material number
306 c mmatb (MAXBLK) : pointer to boundary element material number
307 c mien (MAXBLK) : pointer to ien array
308 c mienb (MAXBLK) : pointer to ienb array
309 c miBCB (MAXBLK) : pointer to iBCB array
310 c mDt (MAXBLK) : pointer to Dt array
311 c mDC (MAXBLK) : pointer to DC array
312 c mBCB (MAXBLK) : pointer to BCB array
313 c mstiff (MAXBLK) : pointer to stiff array
314 c
315 c----------------------------------------------------------------------
316 c
317 c.... common /aerfrc/ : aerodynamic forces
318 c
319 c Force(3) : components of the aerodynamic forces
320 c HFlux : total heat flux
321 c
322 c.... common /blkdat/ : blocking data
323 c
324 c lcblk (10,MAXBLK+1) : blocking data for the interior elements
325 c lcblkb (10,MAXBLK+1) : blocking data for the boundary elements
326 c
327 c----------------------------------------------------------------------
328 c
329 c.... common /bndnod/ : boundary nodes of boundary elements
330 c
331 c mnodeb (9,8,3) : boundary nodes of each element category and dimension
332 c
333 c----------------------------------------------------------------------
334 c
335 c.... common /conpar/ : input constants
336 c
337 c numnp : number of nodal points
338 c numel : number of elements
339 c numelb : number of boundary elements
340 c numpbc : number of nodes having a boundary condition
341 c nen : maximum number of element nodes
342 c nfaces : maximum number of element faces
343 c nsd : number of space dimensions
344 c numflx : number of flux boundary nodes
345 c ndof : number of degrees of freedom per node
346 c iALE : ALE formulation flag
347 c icoord : coordinate system flag
348 c navier : Navier-Stokes calculation flag
349 c irs : restart option
350 c iexec : execute flag
351 c necho : input echo parameter
352 c ichem : equilibrium chemistry flag (for outchem.step dump)
353 c iRK : Runge-Kutta flag
354 c nshg : global number of shape functions (degrees of freedom,
355 c or equations). Computed from the specified p-order,
356 c the number of edges, and the number of faces (in the
357 c entire mesh)
358 c
359 c----------------------------------------------------------------------
360 c
361 c.... common /elmcat/ : element category information
362 c
363 c mcsyst : maximum number of element coordinate system
364 c melCat : maximum number of element categories
365 c nenCat (8,3) : number of nodes for each category and dimension
366 c nfaCat (8,3) : number of faces for each category and dimension
367 c
368 c----------------------------------------------------------------------
369 c
370 c.... common /elmpar/ : element parameters
371 c
372 c lelCat : element category (P1, Q1, P2, Q2, etc.)
373 c lcsyst : element coordinate system
374 c iorder : element order (=k for Pk and Qk)
375 c nenb : number of element nodes per boundary sides
376 c maxsh : total number integration points
377 c maxshb : total number integration points of boundary elements
378 c nelblk : number of element blocks
379 c nelblb : number of boundary element blocks
380 c ndofl : number of degrees of freedom (for current block)
381 c nsymdl : number of d.o.f for symm. storage (for current block)
382 c nenl : number of element nodes (for current block)
383 c nfacel : number of element faces (for current block)
384 c nenbl : number of boundary element nodes
385 c intind : integration data index
386 c nintg : number of integration points
387 c mattyp : material type ( = 0 for fluid; = 1 for solid )
388 c
389 c----------------------------------------------------------------------
390 c
391 c.... common /genpar/ : control parameters
392 c
393 c E3nsd : NSD .eq. 3 flag; 0. for 2D, 1. for 3D
394 c I3nsd : NSD .eq. 3 flag; 0 for 2D, 1 for 3D
395 c nsymdf : number of d.o.f.'s in symm. storage (= ndof*(ndof+1)/2)
509 c myBrg : pointer to minimize solution matrix
510 c mRcos : pointer to Rotation Cosine of QR algorithm
511 c mRsin : pointer to Rotation Sine of QR algorithm
512 c
513 c----------------------------------------------------------------------
514 c
515 c.... common /matpar/ : material constants
516 c
517 c pr : Prandtl number
518 c Planck : Planck's constant
520 c Nh : Avogadro's number