! [File: Notation.F] ! ! MODEL_F90, Standard Variable and Array Usage ! Copyright J. E. Akin, 2003, 2004, 2005. All rights reserved. ! ! NOTE: Many variables and arrays are accessable as globals by their ! inclusion in selected F90 "Modules". Items available through such ! modules are preceeded with the following symbols: ! !_p = Sys_Prop_Data, !_s = System_Constants, ! !_t = Elem_Type_Data, !_g = Geometric_Properties ! ! Array sizes follow in parentheses, and are also given in the file ! named array_sizes.txt. ! ! Also see Keyword_Control_Input.txt for keywords that can be used ! to set some of these variables. ! ...................... VARIABLE NOTATION ...................... ! AJ = JACOBIAN MATRIX:: (N_SPACE, N_SPACE) ! AJ_INV = INVERSE JACOBIAN MATRIX: (N_SPACE, N_SPACE) ! AVE = AVERAGE QUANTITIES AT NODES: (N_R_B + 2, MAX_NP) ! AVE_H_WT = SCALE NEW MESH WITH 1-OLD AVE, 0-OLD MIN SIZE [1.] ! AVE_2ND_DERIVS = SECOND CROSS DERIVATIVES AVERAGES: (N_2_DER) ! AXISYMMETRIC = .FALSE., UNLESS XYZ(1)=R IS RADIUS, XYZ(2) IS AXIAL ! B = GRADIENT VERSUS DOF MATRIX: (N_R_B, LT_FREE) ! BODY = BODY FORCE VECTOR: (N_SPACE) !_t C = ELEMENT COLUMN MATRIX: (LT_FREE) ! CC = COLUMN MATRIX OF SYSTEM EQUATIONS: (N_D_FRE) ! CC_IN = INITIAL INPUT COLUMN MATRIX OF SYSTEM EQS: (N_D_FRE) !_g CENTROID = SYSTEM GEOMETRIC PROPERTY: (N_SPACE) !_g CG_SECOND_MOM = SYSTEM GEOMETRIC PROPERTY: (N_SPACE, N_SPACE) ! COEF_C_EQ = (I,J) COEFF TERM I+1 OF CONSTRAINT EQ J: (MAX_ACT, N_CEQ) !-s CONSTANT_J = TRUE IF CONSTANT JACOBIAN IN EACH ELEMENT [F] !_s CONVECTION = TRUE IF CONSTANT CONVECTION ON ALL MIXED SEGMENTS [F] !_s CONVECT_1_SEG= CONVECTION COEFF ON ALL MIXED SEGMENTS, ROBIN_1_SEG !_s CONVECT_2_SEG= CONVECTION TEMPERATURE ON ALL MIXED SEGMENTS ! COORD = COORDINATES OF ALL NODES ON ELEMENT: (LT_N, N_SPACE) !_s CUT_OFF = TOLERANCE FOR CUTTING OFF ITERATIONS ! C_B = BOUNDARY SEGMENT COLUMN MATRIX ! C_P = PENALTY CONSTRAINT COLUMN MATRIX, IF ANY !_t D = NODAL PARAMETERS ASSOCIATED WITH AN ELEMENT: (LT_FREE) ! DD = SYSTEM LIST OF NODAL PARAMETERS: (N_D_FRE) ! DD_OLD = SYSTEM LIST OF NODAL DOF FROM LAST ITERATION: (N_D_FRE) ! DEFINE_TERMS = TRUE TO LIST ERROR TERM DEFINITIONS !_s DEG_HOMO = 1, IF ELEMENT POLYNOMIAL DEGREES ARE HOMOGENEOUS !_t DELETED = TRUE IF ELEMENT HAS BEEN DELETED FROM MESH: (L_S_TOT) ! DERIV_2_SQ = SYMMETRIC SECOND DERIVATIVES ARRAY: (N_R_B, N_R_B) ! DERIV2_AVE = SECOND DERIVATIVES, CROSS AVERAGED (N_2_DER, NOD_PER_EL) ! DERIV2_LT = SECOND DERIVATIVES, NOT AVERAGED. (HIGHER, NOD_PER_EL) ! DGH = GLOBAL DERIVS OF SCALAR FUNCTIONS H: (N_SPACE, LT_N) ! DGV = GLOBAL DERIVS OF VECTOR FUNCTIONS V: (N_SPACE, LT_FREE) !_t DIAG = DIAGONALIZED ELEMENT MASS MATRIX: (LT_FREE) !_t DLG = LOCAL DERIVS OF GEOMETRY FUNCTIONS G: (LT_PARM, LT_GEOM) !_t DLG_QP = LOCAL DERIVS OF G AT GAUSS PT: (LT_PARM, LT_GEOM, LT_QP) !_t DLH = LOCAL DERIVATIVES OF SCALAR FUNCTIONS H: (LT_PARM, LT_N) !_t DLH_QP = LOCAL DERIVS OF H AT GAUSS PT: (LT_PARM, LT_N, LT_QP) !_t DLV = LOCAL DERIVATIVES OF VECTOR V: (LT_PARM, LT_FREE) !_t DLV_QP = LOCAL DERIVS OF V AT GAUSS PT: (LT_PARM, LT_FREE, LT_QP) !_s DOF_NAME = NAMES GIVEN TO NODAL DEGREES OF FREEDOM: (N_G_DOF) !_s DOF_PT = NUMBER OF DOF AT EACH NODE: (0:MAX_NP) !_s DOF_PT_SUM = TOTAL NUMBER OF DOF, INCLUDING THIS NODE: (-1:MAX_NP) !_s DOF_VARY = TRUE IFF DOF_PT IS ACTIVE AND /= N_G_DOF EVERYWHERE !_s DP = PROCESSOR KIND NUMBER DENOTING DOUBLE PRECISION !_s DYNAMIC = TRUE IF SECOND ORDER IN TIME ! E = CONSTITUTIVE MATRIX: (N_R_B, N_R_B) ! EB = STRESS VERSUS DOF MATRIX, E * B: (N_R_B, LT_FREE) !_s EIGEN_POST = Number of eigenvectors for element postprocessing EIGEN_ORDER = SORT LIST, LO TO HI, EBC LAST: (N_D_FRE) EIGEN_SCALE = Normalized value of each eigenvector: (N_D_FRE) !_s EIGEN_SHOW = Number of eigen values & vectors to list EIGEN_VAL = Eigenvalues of system: (N_D_FRE) EIGEN_VEC = EIGENVECTORS BY COLUMNS: (N_D_FRE, EIGEN_SHOW) !_g ELEM_CENTROID = SYSTEM GEOMETRIC PROPERTY: (N_SPACE) ! ELEM_ERROR_ENERGY = ESTIMATED ELEM ERROR, % OF ENERGY NORM: (N_ELEMS) !_g ELEM_FIRST_MOM = SYSTEM GEOMETRIC PROPERTY: (N_SPACE) !_t ELEM_NODES = THE ELEMENT INCIDENCES OF THE ELEMENT: (LT_N) !_g ELEM_SEC_MOM = SYSTEM GEOMETRIC PROPERTY: (N_SPACE, N_SPACE) !_g ELEM_VOL = SYSTEM AND/OR ELEMENT GEOMERTIC PROPERTY !_t EL_M = ELEMENT MASS MATRIX: (LT_FREE, LT_FREE) ! EQ_IJ = EQUATION NUMBER: DOF_PT_SUM (I-1) + J, J <= DOF_PT(I), I > 0 ! ERR_MAX = MAX ALLOWED ERROR IN ENERGY NORM ! EL_PROP = ELEMENT ARRAY OF FLOATING POINT PROPERTIES: (N_LP_FLO) !_s EXACT_INT = NUMBER OF INTEGER PROPERTIES FOR EXACT SOLUTION !_s EXACT_NAME = NAMES OF EXACT RECOVERED FLUX COMPONENTS: (N_R_B + 2) !_s EXACT_REALS = NUMBER OF REAL PROPERTIES FOR EXACT SOLUTION ! EXACT_SOL = USER SUPPLIED SOLUTION AT A POINT: (N_G_DOF) !_s EXAMPLE = CASE NUMBER OF TABULATED EXAMPLE SOURCE FILES SET ! FIRST_MOMENTS = SYSTEM GEOMETRIC PROPERTY: (N_SPACE) !_p FLT_EL = ARRAY OF REAL ELEMENT PROP: (L_S_TOT, N_LP_FLO) !_p FLT_MAT = REAL PROPERTIES OF SYSTEM MATERIALS: (N_MAT, MAT_FLO) !_p FLT_MISC = ARRAY OF FLOATING PT MISC. PROP: (MISC_FL) !_p FLT_MX = ARRAY OF REAL MIXED_BC PROPERTIES: (N_MIXED, N_MX_FLO) !_p FLT_NP = ARRAY OF FLOATING PT NODAL PROP: (MAX_NP, N_NP_FLO) !_p FLT_SP = ARRAY OF FLOATING PT SEGMENT PROP: (N_SEG, N_BS_FLO) ! FLUX = COMPONENTS OF GIVEN BOUNDARY FLUX: (L_B_N, N_G_FLUX) ! FLUX_LT = FLUX AT ELEMENT NODES FROM A SCP: (SCP_FIT, LT_N) !_s FLUX_NAME = NAMES OF FEA RECOVERED FLUX COMPONENTS: (N_R_B + 2) !_s FLUX_NORMAL = TRUE IF CONSTANT NORMAL FLUX ON ALL FLUX SEGMENTS [F] !_t G = INTERPOLATION FUNCTIONS FOR GEOMETRY: (LT_GEOM) !_t GEOMETRY = COORDINATES OF ELEM GEOMETRIC NODES: (LT_GEOM, N_SPACE) !_s GET_DELETED_EL = TRUE, READ LIST OF DELETED ELEMENTS [F] !_s GET_2ND_DERIV = TRUE IF 2ND DERIVATIVE OF H IS REQUIRED [F] ! GLOBAL = GLOBAL DERIV'S OF SCALAR INTERPOLATION FUNCTIONS H !_t G_QP = INTERPOLATION FOR G AT QUADRATURE PT: (LT_GEOM, LT_QP) !_t H = INTERPOLATION FUNCTIONS FOR AN ELEMENT SCALAR: (LT_N) ! HIGHER = N_R_B * N_SPACE, NUMBER OF UNAVERAGED 2-ND DERIVATIVES ! H_INTG = INTEGRAL OF SCALAR INTERPOLATION FUNCTIONS: (LT_N) !_t H_QP = INTERPOLATION FOR H AT QUADRATURE POINT: (LT_N, LT_QP) ! IE = CURRENT ELEMENT NUMBER !_t INDEX = SYSTEM DEGREE OF FREEDOM NUMBERS ARRAY: (LT_FREE) !_s IN_RHS = 1, IF INITIAL SOURCE VECTOR (RHS) IS INPUT, USUALLY 0 ! IP_TEST > 0, IF SOME PROPERTIES ARE DEFINED ! IQ = CURRENT QUADRATURE POINT NUMBER !_s IS_ELEMENT = TRUE, IF IT IS A STANDARD ELEMENT !_s IS_MIXED_BC = TRUE, IF IT IS A MIXED BC SEGMENT ELEMENT [F] !_s IS_FLUX_SEG = TRUE, IF IT IS A FLUX SEGMENT ELEMENT [F] ! I_ADD = NUMBER OF CONTRIBUTIONS TO AVERAGES AT NODES: (MAX_NP) ! I_BC = NODAL BOUNDARY RESTRAINT INDICATOR ARRAY: (MAX_NP) !_s I_BUG > 0 TURNS ON DEBUG PRINTS ! I_DIAG = DIAGONAL LOCATION IN SKYLINE VECTOR: (N_D_FRE) ! I_DOF_HI = SKYLINE COLUMN HEIGHTS: (N_D_FRE) !_s I_SAY = NUMBER OF USER REMARKS TO BE I/O ! I_WARN = 1, WARN IF NODE OR ELEMENT HAS NO NEIGHBORS, ELSE NO ! KODES = LIST OF DOF RESTRAINT INDICATORS AT A NODE: (N_G_DOF) !_t LAST_LT = LAST ELEMENT TYPE CREATED !_s LEM_WRT = 1, LIST NODAL PARAMETERS BY ELEMENTS, USUALLY 0 !_s LIST_LR = 1, LIST REACTIONS ON EACH ELEMENT, USUALLY 0 !_p LP_FIX = INTEGER ELEMENT PROPERTIES ARRAY: (L_S_TOT, N_LP_FIX) !_s LP_TEST > 0, IF ELEMENT PROPERTIES ARE DEFINED !_t LT = ELEMENT TYPE NUMBER !_t LT_DATA = TYPE CONSTANTS: (MAX_DAT, N_L_TYPE) = LT_N, LT_QP, ! LT_DATA LT_GEOM, LT_PARM, LT_SHAP, LT_FACES, LT_SONS, LT_USER !_t LT_FACES = NUMBER OF ELEMENT (FACING) NEIGHBORS !_t LT_FREE = NUMBER OF DEGREES OF FREEDOM PER ELEMENT !_t LT_GEOM = NUMBER OF GEOMETRIC NODES PER ELEMENT !_t LT_N = MAXIMUM NUMBER OF NODES FOR ELEMENT TYPE !_t LT_PARM = DIMENSION OF PARAMETRIC SPACE FOR ELEMENT TYPE !_t LT_QP = NUMBER OF QUADRATURE POINTS FOR ELEMENT TYPE !_t LT_SHAP = ELEMENT TYPE SHAPE FLAG NUMBER !_t LT_SONS = NUMBER OF SONS FOR H_ADAPTIVITY !_t LT_USER = OPTIONAL USER CODE ASSOCIATED WITH TYPE !_s L_CLASS = ELEMENT CLASS: ELEMENT=1, MIXED_BC_SEG=2, FLUX_SEG=3 !_s L_B_N = MAXIMUM NODES ON AN ELEMENT BOUNDARY SEGMENT ! L_B_T = NUMBER OF NODES ON AN ELEMENT BOUNDARY SEGMENT TYPE ! L_FIRST(I) = ELEMENT OF FIRST APPEARANCE OF NODE I: (MAX_NP) !_s L_HOMO = 1, IF ELEMENT PROPERTIES ARE HOMOGENEOUS ! L_IN_PATCH = NUMBER OF ELEMENTS IN CURRENT SCP ! L_LAST(I) = ELEMENT OF LAST APPEARANCE OF NODE I: (MAX_NP) ! L_PROP = ELEMENT INTEGER PROPERTIES: (N_LP_FIX) ! L_PT_PROP = INTEGER PROPERTIES AT EACH ELEMENT NODE !_s L_REACT = SCRATCH UNIT FOR ELEM REACTION & ENERGY DATA !_s L_SHAPE = ELEM SHAPE, 1=LINE 2=TRI 3=QUAD 4=HEX 5=TET 6=WEDGE !_s L_S_TOT = N_ELEMS + N_MIXED + N_SEG, TOTAL GENERALIZED ELEMENTS ! L_TO_L_NEIGH = ELEMENTS ADJACENT TO ELEMENTS: (NEIGH_L, N_ELEMS) ! L_TO_L_SUM = NUMBER OF ELEM NEIGHBORS OF ELEMENT I: (N_ELEMS) ! L_TO_N_NEIGH = ELEMENTS ADJACENT TO THE NODES: (NEIGH_N, MAX_NP) ! L_TO_N_SUM = NUMBER OF ELEM NEIGHBORS OF NODE I: (MAX_NP) !_t L_TYPE = ELEMENT TYPE NUMBER: (L_S_TOT) !_p MAT_FLO = NUMBER OF REAL MATERIAL PROPERTIES !_s MAX_ACT = NUMBER OF ACTIVE CONSTRAINT TYPES (< =MAX_TYP) !_s MAX_DAT = NUMBER OF ITEMS IN AN ELEMENT TYPE DEFINITION ( =8) !_s MAX_NP = NUMBER OF SYSTEM NODES !_s MAX_TYP = MAX NODAL CONSTRAINT TYPE ( =3 NOW) ! MEMBERS = ELEMENT NUMBERS MACKING UP A SCP: (L_IN_PATCH) !_p MISC_FIX = SYSTEM ARRAY OF MISC. INTEGER PROPERTIES: (MISC_FX) !_s MISC_FL = NUMBER OF MISC. FLOATING POINT SYSTEM PROPERTIES !_s MISC_FX = NUMBER OF MISC. FIXED POINT SYSTEM PROPERTIES ! MIX_PROP = INTEGER PROPERTIES ON A MIXED BC SEGMENT: (N_MX_FIX) !_s MODE = STORAGE FLAG, 0=SYMMETRIC, OR 1=UNSYMMETRIC SKYLINE !_p MX_FIX = INTEGER MIXED_SEG PROPERTIES ARRAY: (N_MIXED, N_MX_FIX) !_s M_B_N = MAXIMUM NUMBER OF NODES ON A MIXED BC SEGMENT ! M_B_T = NUMBER OF NODES ON A MIXED BC SEGMENT TYPE !_s M_COEFF = NUMBER OF TERMS IN SYSTEM MASS MATRIX, N_COEFF OR N_D_FRE ! M_FULL = SYSTEM EQUATIONS FULL MASS MATRIX !_t M_SKY = SYSTEM MASS MATRIX, SKY OR DIAGONAL FORM: (M_COEFF) ! NDEX_C_EQ = DOF NUMBER OF TERM I OF CONSTRAINT J: (MAX_ACT, N_CEQ) ! NEEDS = NUMBER OF SHARED NODES TO BECOME A NEIGHBOR, > = 1 !_s NEIGH_L = MAXIMUM NUMBER OF ELEMENT NEIGHBORS AT ANY ELEMENT !_s NEIGH_N = MAXIMUM NUMBER OF ELEMENT NEIGHBORS AT ANY NODE !_s NEIGH_P = MAXIMUM NUMBER OF NEIGHBORS IN A PATCH, NEIGH_L OR NEIGH_N ! NODES = NODE INCIDENCES OF ALL ELEMENTS: (L_S_TOT, NOD_PER_EL) !_s NOD_PER_EL = MAXIMUM NUMBER OF NODES PER ELEMENT !_s NOT_SYM = NUMBER OF COEFF IN LOWER SYSTEM SQ MATRIX !_s NPT_WRT = 1, LIST NODAL PARAMETERS BY NODES !_p NP_FIX = INTEGER PROPERTIES AT ALL NODES: (MAX_NP, N_NP_FIX) ! N_RANGE = NODE NUMBERS OF MAX_MIN DOF VALUES: (N_G_DOF, 2) ! N_RES_EQ = NUMBER OF LINEAR CONSTRAINT EQS OF TYPE I: (MAX_TYP) !_s NUL_COL = 1, IF ELEMENT COLUMN MATRIX IS ALWAYS ZERO, USUALLY 0 !_s N_BS_FIX = NUMBER OF BOUNDARY SEGMENT INTEGER PROPERTIES !_s N_BS_FLO = NUMBER OF BOUNDARY SEGMENT REAL PROPERTIES !_s N_CEQ = NUMBER OF CONSTRAINT EQS !_s N_COEFF = NUMBER OF COEFF IN UPPER SYSTEM SQ MATRIX !_s N_CORNER = NUMBER OF CORNERS ON AN ELEMENT (INACTIVE) !_s N_CRD = STANDARD INPUT UNIT !_s N_D_FLUX = MAXIMUM NUMBER OF FLUX SEGMENT DOF, = L_B_N * N_G_DOF !_s N_D_FRE = TOTAL NUMBER OF SYSTEM DEGREES OF FREEDOM !_s N_D_MIX = MAXIMUM NUMBER OF MIXED BC DOF, = M_B_N * N_G_DOF !_s N_ELEMS = NUMBER OF ELEMENTS IN SYSTEM !_s N_EL_FRE = NUMBER OF DEGREES OF FREEDOM PER ELEMENT !_s N_GEOM = NUMBER OF GEOMETRY NODES !_s N_G_DOF = NUMBER OF GENERALIZED PARAMETERS (DOF) PER NODE !_s N_G_FLUX = NUMBER OF FLUX COMPONENTS PER SEGMENT NODE !_s N_HOMO = 1, IF NODAL SYSTEM PROPERTIES ARE HOMOGENEOUS !_s N_ITER = NUMBER OF ITERATIONS (NEGATIVE TURNS ON I_BUG) !_s N_LP_FIX = NUMBER OF INTEGER ELEMENT PROPERTIES !_s N_LP_FLO = NUMBER OF FLOATING POINT ELEMENT PROPERTIES !_s N_L_DEL = NUMBER OF DELETED ELEMENTS = COUNT(DELETED) !_s N_L_TYPE = NUMBER OF DIFFERENT ELEMENT TYPES USED !_s N_MAT = NUMBER OF MATERIAL TYPES !_s N_MIXED = NUMBER OF SEGMENTS WITH MIXED BOUNDARY CONDITIONS !_s N_MX_FIX = NUMBER OF FIXED POINT MIXED_SEGMENT PROPERTIES !_s N_MX_FLO = NUMBER OF FLOATING POINT MIXED_SEGMENT PROPERTIES !_s N_NP_FIX = NUMBER OF FIXED POINT NODAL PROPERTIES !_s N_NP_FLO = NUMBER OF FLOATING POINT NODAL PROPERTIES !_s N_PARM = DIMENSION OF PARAMETRIC SPACE !_s N_PATCH = NUMBER OF SCP PATCHES, MAX_NP OR N_ELEMS !_s N_PRT = STANDARD OUTPUT UNIT !_s N_QP = MAXIMUM NUMBER OF QUADRATURE POINTS !_s N_REACT = UNIT FOR SCRATCH REACTION DATA = 20 !_s N_RES_EQ = NUMBER OF CONSTRAINT FLAGS OF EACH TYPE !_s N_R_B = NUMBER OF ROWS IN B AND E MATRICES !_s N_SEG = NO OF ELEM BOUNDARY SEGMENTS WITH GIVEN FLUX !_s N_SPACE = DIMENSION OF SPACE !_s N_STORE = TOTAL SQUARE MATRIX STORAGE !_s N_FILE1 = UNIT FOR POST SOLUTION MATRICES STORAGE !_s N_FILE2 = UNIT FOR POST SOLUTION MATRICES STORAGE !_s N_FILE3-5 = OPTIONAL UNITS FOR USER (USED WHEN > 0) !_s N_T_SUM > 0 FOR POST_PROCESSING, = N_FILE1 + N_FILE2 !_s N_WARN = CURRENT NUMBER OF WARNING MESSAGES ISSUED !_s N_2_DER = NUMBER OF SECOND DERIVATIVES, 1, 3, OR 6 !_t ON_BOUNDARY = TRUE IF ELEMENT HAS A FACE ON THE BOUNDARY [F] !_s ONE_PI = PARAMETER PI ! PATCH_FIT = LOCAL PATCH FLUX VALUES AT ITS NODES: (SCP_N, SCP_FIT) ! PECLET = PECLET VALUES AT EACH NODE: (LT_N), INACTIVE ! PERCENT_ERR_MAX = ALLOWED ERROR IN THE ENERGY NORM, IN % !_s PI = PARAMETER PI = 3.1415... !_s PI_SQ = PARAMETER PI SQUARED ! POINT = A POINT IN A SCP: (N_SPACE) !_s POLAR_COORD = .TRUE., IF COORD ARE RADIUS & THREE DIRECTION ANGLES [F] ! PROP_MIXED = REAL PROPERTIES ON A MIXED_SEGMENT: (N_MX_FLO) ! PRT_L_PT = REAL PROP ARRAY OF ELEMENT'S NODES: (LT_N, N_NP_FLO) ! PRT_MAT = REAL PROPERTIES OF A MATERIAL NUMBER: (MAT_FLO) !_t PT = QUADRATURE COORDINATES: (LT_PARM, LT_QP) !_s PT_EL_SUMS = TRUE TO LIST NUMBER OF ELEMENTS AT EACH NODE !_s PT_EL_LIST = TRUE TO LIST ALL THE ELEMENTS AT EACH NODE [F] !_s Q_NORMAL_SEG = CONSTANT NORMAL FLUX VALUE ON ALL FLUX SEGMENTS ! RANGE = 1-MAXIMUM VALUE, 2-MINIMUM VALUE OF DOF: (N_G_DOF, 2) !_s ROBIN_1_SEG = ROBIN BC: K_n * U,n + ROBIN_1_SEG * U + ROBIN_2_SEG = 0 !_s ROBIN_2_SEG = ROBIN BC: K_n * U,n + ROBIN_1_SEG * U + ROBIN_2_SEG = 0 !_t S = ELEMENT SQUARE MATRIX: (LT_FREE, LT_FREE) ! SCP_AVERAGES = AVERAGED FLUX ITEMS AT ALL NODES: (MAX_NP, SCP_FIT) ! SCP_COUNTS = THE NUMBER OF PATCHES USED IN A NODAL AVERAGE: (MAX_NP) !_s SCP_DEG = PATCH POLYNOMIAL DEGREE, INACTIVE !_s SCP_INC = INCREASE PATCH POLYNOMIAL DEGREE BY THIS (1 or 2) !_s SCP_FIT = NUMBER OF TERMS BEING FIT, = N_R_B USUALLY ! SCP_GEOM = NUMBER OF PATCH GEOMERTY NODES ! SCP_H = INTERPOLATION FUNCTIONS FOR PATCH, USUALLY IS H (SCP_N) ! SCP_LT = PATCH TYPE NUMBER ! SCP_N = NUMBER OF NODES PER PATCH !_s SCP_NEIGH_EL = TRUE, PATCH IS ALL ELEMENTS ADJACENT TO ELEMENT !_s SCP_NEIGH_FACE = TRUE, PATCH IS ALL FACING ELEMENTS AT AN ELEMENT [F] !_s SCP_NEIGH_PT = TRUE, PATCH IS ALL ELEMENTS ADJACENT TO NODE POINT [F] !_s SCP_ONLY_ONCE = TRUE, USES "CENTRAL" ELEMENT OR POINT VALUES ONLY !_s SCP_PAD = RECORD LENGTH PAD, FOR EFFICIENCY = 0, INACTIVE ! SCP_PARM = NUMBER OF PARAMETRIC SPACES FOR PATCH ! SCP_QP = NUMBER OF QUADRATURE POINTS NEEDED IN A SCP !_s SCP_RECL = RECORD LENGTH FOR SAVING ELEMENT GAUSS PT DATA ! SCP_RECORD_NUMBER = SCP DIRECT ACCESS RECORD LOCATOR: (N_ELEMS, N_QP) ! SCP_SHAP = PATCH SHAPE FLAG NUMBER !_g SECOND_MOMENTS = SYSTEM GEOMETRIC PROPERTY: (N_SPACE, N_SPACE) ! SIGMA_HAT = FLUX COMPONENTS AT PT FROM ORIGINAL ELEMENT: (SCP_FIT) ! SIGMA_SCP = FLUX COMPONENTS AT PT FROM SMOOTHED SCP: (SCP_FIT) !_s SP = PROCESSOR KIND NUMBER DENOTING SINGLE PRECISION !_s SPACE_TIME = TRUE IF MESH IS A SPACE-TIME SLAB [F] !_p SP_FIX = INTEGER SEGMENT PROPERTY ARRAY: (N_SEG, N_BS_FIX) ! SS = 'SQUARE' MATRIX OF SYSTEM EQUATIONS !_s START_TIME = STARTING TIME FOR A TRANSIENT OR DYNAMIC SOLUTION !_s START_VALUE = STARTING VALUE OF SCALAR IN ITERATIVE OR TIME SOLUTION ! STRAIN = STRAIN OR GRADIENT VECTOR: (N_R_B + 2) ! STRAIN_0 = INITIAL STRAIN OR GRADIENT VECTOR, IF ANY: (N_R_B) ! STRESS = STRESS VECTOR: (N_R_B + 2) !_s SYMMETRIC = TRUE IF EQUATIONS ARE SYMMETRIC ! S_B = BOUNDARY SEGMENT SQUARE MATRIX, IF ANY !_p S_FLUX = FLUX COMPONENTS AT SEG NODES: (L_B_N, N_G_FLUX, N_SEG) ! S_FULL = SYSTEM EQUATIONS FULL STIFFNESS MATRIX ! S_P = PENALTY SQUARE MATRIX, IF ANY ! S_SKY = UPPER HALF OF SS MATRIX IN SKYLINE MODE: (N_COEFF) ! S_SKY_LOWER = LOWER HALF OF SS, IF NOT SYMMETRIC: (NOT_SYM) !_s THIS_EL = CURRENT ELEMENT NUMBER !_s THIS_ITER = CURRENT ITERATION NUMBER !_s THIS_LT = CURRENT ELEMENT TYPE !_s THIS_SCALE = Current eigenvector normalization scale !_s THIS_STEP = CURRENT TIME STEP NUMBER !_s TIME = CURRENT TIME VALUE !_s TIME_METHOD = FOR INTEGRATION, 1=EULER 2=C-N 3=Galerkin 4=LSQ ETC !_s TIME_STEP = TIME INCREMENT IN USE ! TITLE = PROBLEM TITLE !_s TWO_PI = TWICE PARAMETER PI !_s TRANSIENT = TRUE IF FIRST ORDER IN TIME !_s TYPE_FACES = LIST OF FACES FOR EACH ELEMENT TYPE: (N_L_TYPE) !_s TYPE_GAUSS = LIST OF QP_PT FOR EACH ELEMENT TYPE: (N_L_TYPE) !_s TYPE_GEOM = LIST OF _GEOM FOR EACH ELEMENT TYPE: (N_L_TYPE) !_s TYPE_NODES = LIST OF NODES FOR EACH ELEMENT TYPE: (N_L_TYPE) !_s TYPE_PARM = LIST OF _PARM FOR EACH ELEMENT TYPE: (N_L_TYPE) !_s TYPE_SHAPE = LIST OF SHAPE FOR EACH ELEMENT TYPE: (N_L_TYPE) !_s TYPE_SONS = LIST OF SONS FOR EACH ELEMENT TYPE: (N_L_TYPE) !_s TYPE_USER = LIST OF USER FOR EACH ELEMENT TYPE: (N_L_TYPE) !_s T_STEPS = NUMBER OF TIME STEPS TO TAKE AT SIZE TIME_STEP ! USER_EL = USER ARRAY FOR AN ELEMENT: (N_G_DOF, LT_N) ! USER_PT = USER ARRAY FOR A NODE: (N_G_DOF) !_s U_FLUX = BINARY UNIT TO STORE GRADIENTS OR FLUXES !_s U_NEW_H = UNIT TO RECEIVE ELEMENT SIZES AFTER ERROR ESTIMATE !_s U_NEW_S = UNIT TO RECEIVE ELEMENT SCALES AFTER ERROR ESTIMATE !_s U_PLT1 = UNIT TO OUTPUT NODE COORDINATES FOR PLOTS !_s U_PLT2 = UNIT TO OUTPUT ELEMENT CONNECTIVITY FOR PLOTS !_s U_PLT3 = UNIT TO OUTPUT NODAL SOLUTION VALUES FOR PLOTS !_s U_PLT4 = UNIT TO OUTPUT ELEMENT GRADIENTS FOR PLOTS !_s U_PLT5 = UNIT TO OUTPUT NODAL GRADIENTS FOR PLOTS, IF U_SCPR>0 !_s U_PLT6 = UNIT TO OUTPUT ELEMENT ERRORS FOR PLOTS, IF U_SCPR>0 !_s U_PLT7 = UNIT FOR ELEM ERRORS_AVER_AT_NODES PLOT, IF U_SCPR>0 !_s U_SCPR = BINARY UNIT FOR SUPER_CONVERGENT PATCH RECOVERY, IF > 0 !_t V = INTERPOLATION FUNCTIONS FOR VECTORS: (LT_FREE) !_t V_QP = INTERPOLATION FOR V AT QUADRATURE PT: (LT_FREE, LT_QP) ! VALUES = LOCAL VALUES OF PROPERTIES, AT XYZ: (N_NP_FLO) !_t WT = QUADRATURE WEIGHTS: (LT_QP) ! X = COORDINATES OF ALL SYSTEM NODES: (MAX_NP, N_SPACE) ! XYZ = SPACE COORDINATES AT A POINT: (N_SPACE) ! XYZ_MAX = UPPER BOUNDS FOR SCP GEOMETRY: (N_SPACE) ! XYZ_MIN = LOWER BOUNDS FOR SCP GEOMETRY: (N_SPACE) !_s XYZ_NAME = NAMES OF SPACIAL COORDINATES: (N_SPACE) ! ............................................................ ! [End Notation.F]