7. Description of the COMMONS specific to the CALCUL routine: ICOELXX#
7.1. COMMONS ICOEL1 and ICOEL2#
Summary description:
Information concerning the global field and the local field associated with the current parameter in the extraction loop.
COMMON/ICOEL1/IGD, NEC, NCMPMX,, IACHIN, IACHLO, IICHIN, IANUEQ, LPRNO
COMMON/ICOEL2/TYPEGD
CHARACTER *8 TYPEGD
C CES COMMONS SONT MIS A JOUR PAR EXTRAI.
C IGD: NUMERO FROM GRANDEUR ASSOCIEE TO CHAMP A EXTRAIRE
C NEC: NOMBRE FROM ENTIERS CODES FROM IGD
C NCMPMX: NOMBRE MAX FROM CMPS POUR IGD
C IACHIN: ADRESSE JEVEUX FROM CHIN. VALE
C IACHLO: ADRESSE JEVEUX FROM CHLOC. VALE (& CALCUL. NOMPAR)
C IICHIN: NUMERO FROM CHAMP CHIN DANS TO LISTE LCHIN.
C IANUEQ: ADRESSE OF THE OBJET. NUEQ FROM PROF_CHNO ASSOCIE EVENTUELLE
C - MENT TO CHAMP CHIN. (IF LPRNO =1).
C LPRNO: 1-> The OBJET. NUEQ EST A PRENDRE IN COMPTE
C (CHAM_NO to PROF_CHNO)
C 0-> The OBJET. NUEQ N” EST PAS A PRENDRE EN COMPTE
C (CHAM_NO A REPRESENTATION CONSTANTE OR AUTRE CHAMP)
C TYPEGD: TYPE SCALAIRE FROM THE GRANDEUR IGD: “R”, “I”, “K8”,…
7.2. COMMON ICOEL3, ICOELD, ICOELE, and ICOELH#
Summary description:
Information about converting a local field.
COMMON/ICOEL3/IAMOD1, IAMOD2,, IAORIG, IACONV
C CE COMMON EST MIS A JOUR PAR CONVER.
C IAMOD1: ADRESSE FROM MODE - LOCAL AVANT CONVERSION
C IAMOD2: ADRESSE FROM MODE - LOCAL APRES CONVERSION
C IAORIG: ADRESSE FROM CHAMP - LOCAL “& CALCUL. ORIGINAL. SCAL “
C IACONV: ADRESSE FROM CHAMP - LOCAL “& CALCUL. CONVERTI. SCAL “
COMMON/ICOELD/IACVRS
COMMON/ICOELE/IASCAL
C CES COMMONS SONT MIS A JOUR PAR ALCHLO.
C CES COMMONS SONT UTILISES PAR CONVER.
C IASCAL: ADRESSE OF “& CALCUL. SCALAIRE “V (K8)
C V (1),.. , V (N): TYPE_SCALAIRES POSSIBLES DES CHIN.
C IACVRS: ADRESSE OF “& CALCUL. IA_CONVERS “V (I)
C - DIM (V) = 2* DIM (”& CALCUL. SCALAIRE “) +1
C - V (1) = DIMENSION OF “& CALCUL. SCALAIRE “
C - POUR I =1, NB_SCALAIRE
C - V (1+ 2* (I-1) +1) = ADRESSE DANS ZR, OR ZC, OR ZI,…
C from “& CALCUL. ORIGINAL. SCAL (I) “
C - V (1+ 2* (I-1) +2) = ADRESSE DANS ZR, OR ZC, OR ZI,…
C from “& CALCUL. CONVERTI. SCAL (I) “
COMMON/ICOELH/PARAM
CHARACTER *8 PARAM
C CE COMMON EST MIS A JOUR PAR CONVER AND EST UTILISE DANS LES
C LES TE00IJ FROM CONVERSION.
C PARAM: NOM FROM PARAMETRE TO CONVERTIR
7.3. COMMON ICOEL4 and ICOEL7#
Summary description:
Information about objects in the finite element catalog « & CATA. XXX ».
COMMON/ICOEL4/IAOPTT, LGCO, IAOPMO,, ILOPMO, IAOPNO, ILOPNO, IAOPDS,
IAOPPA, LGOPPA, IAMLOC, ILMLOC,, IACOVE,, ILCOVE, IADSGD
C CE COMMON EST INITIALISE PAR DEBCAL
C CE COMMON EST UTILISE A PEU PARTOUT
C IAOPTT: ADRESSE FROM THE OBJET OF THE CATALOGUE: “& CATA .TE. OPTTE “
C LGCO: LONGUEUR D’UNE COLONNE FROM “& CATA .TE. OPTTE “
C (NOMBRE TOTAL FROM OPTIONS POSSIBLES FROM CATALOGUE)
C IAOPMO: ADRESSE FROM “& CATA .TE. OPTMOD “
C ILOPMO: ADRESSE OF THE PT_LONG OF “& CATA .TE. OPTMOD “
C IAOPNO: ADRESSE FROM “& CATA .TE. OPTNOM “
C ILOPNO: ADRESSE OF THE PT_LONG OF “& CATA .TE. OPTNOM “
C IAOPDS: ADRESSE FROM “& CATA .OP. DESCOPT (OPT) “
C IAOPPA: ADRESSE FROM “& CATA .OP. OPTPARA (OPT) “
C LGOPPA: LONGUEUR FROM “& CATA .OP. OPTPARA (OPT) “
C IAMLOC: ADRESSE FROM “& CATA .TE. MODELOC “
C ILMLOC: ADRESSE OF THE PT_LONG OF “& CATA .TE. MODELOC “
C IACOVE: ADRESSE FROM “& CATA .TE. CONVERS “
C ILCOVE: ADRESSE OF THE PT_LONG OF “& CATA .TE. CONVERS “
C IADSGD: ADRESSE FROM “& CATA .GD. DESCRIGD “
COMMON/ICOEL7/IADFNO, IADFCA,, LGCONO, LGCOCA
C CE COMMON EST MIS A JOUR PAR DEBCAL
C CE COMMON EST UTILISE DANS EXTRAI AND ALCHLO
C IADFNO: ADRESSE FROM “& CATA .TE. MODEFNO “
C IADFCA: ADRESSE FROM “& CATA .TE. MODEFCA “
C LGCONO: LONGUEUR OF 1 COLONNE OF MODEFNO.
C LGCOCA: LONGUEUR OF 1 COLONNE OF MODEFCA.
7.4. COMMON ICOEL5#
Summary description:
Information concerning the connectivity of meshes, meshes and late-meshes
COMMON/ICOEL5/IAMACO, ILMACO, IAMSCO,, ILMSCO, IALIEL, ILLIEL
C CE COMMON EST MIS A JOUR PAR DEBCAL (OR TERLIG)
C CE COMMON EST UTILISE DANS NUMAIL, EXCHNO,…
C IAMACO: ADRESSE OF THE CONNECTIVITE OF THE MAILLAGE
C ILMACO: ADRESSE OF POINTEUR OF LONGUEUR OF IAMACO
C IAMSCO: ADRESSE OF THE CONNECTIVITE DES MAILLES SUPPL. Of 1 LIGREL
C ILMSCO: ADRESSE OF POINTEUR OF LONGUEUR OF IAMSCO
C IALIEL: ADRESSE OF THE OBJET “. LIEL “FROM LIGREL.
C ILLIEL: ADRESSE OF THE POINTEUR OF LONGUEUR OF “. LIEL “.
7.5. COMMON ICOEL8#
Summary description:
Information about all global « in » fields.
COMMON/ICOEL8/IACHII, IACHIK, IACHIX
C CE COMMON EST MIS A JOUR PAR DEBCAL
C CE COMMON EST UTILISE DANS EXTRAI, EXCHNO, EXCART, EXRESL, EXCHML
C, DCHLMX
C IACHII: ADRESSE OF “& CALCUL. LCHIN_I “
C IACHIK: ADRESSE OF “& CALCUL. LCHIN_K8 “
C IACHIX: ADRESSE OF “& CALCUL. LCHIN_EXI “
C
C”& CALCUL. LCHIN_EXI “: := V (L) (DIM = NIN)
C V (1):. FALSE.: THE CHAMP PARAMETRE N’EXISTE PAS.
C
C”& CALCUL. LCHIN_K8 “: := V (K8) (DIM = NIN *2)
C V (1): TYPE_CHAMP: “CHNO”, “”, “CART”, “”, “CHML”, OR “RESL”.
C V (2): TYPE_GD: “C”, “R”, “R”, “I”, “K8”,…
C
C”& CALCUL. LCHIN_I “: := V (I) (DIM = NIN *11)
C V (1): IGD GRANDEUR ASSOCIEE A LCHIN (I)
C V (2): NEC NOMBRE D’ENTIERS CODES
C V (3): NCMPMX NOMBRE MAX FROM CMP POUR IGD
C V (4): IADESC ADRESSE OF. DESC
C V (5): IAVALE ADRESSE OF. VALE
C V (6): IAPTMA ADRESSE OF. PTMA (POUR 1 CARTE)
C V (7): IAPTMS ADRESSE OF. PTMS (POUR 1 CARTE)
C V (8): IAPRN1 ADRESSE FROM PRNO ($ MAILLA) (POUR 1 CHAM_NO)
C V (9): IAPRN2 ADRESSE FROM PRNO (LIGREL) (POUR 1 CHAM_NO)
C V (10): IANUEQ ADRESSE. NUEQ (POUR 1 CHAM_NO)
C V (11): LPRNO (DIT SI IANUEQ EST UTILISE POUR 1 CHAM_NO)
7.6. COMMON ICOEL9#
Summary description:
Information about the names of options and type_elements as well as the list of routine work objects CALCUL.
COMMON/ICOEL9/IANOOP, IANOTE, NBOBTR,, IAOBTR, NBOBMX
C CE COMMON EST MIS A JOUR PAR DEBCAL
C CE COMMON EST UTILISE DANS TE0000 POUR
C IANOOP: ADRESSE DANS ZK16 FROM “& CALCUL. NOMOP “V (K16)
C V (IOP) –> NOM FROM THE OPTION IOP
C IANOTE: ADRESSE DANS ZK16 FROM “& CALCUL. NOMTE “V (K16)
C V (ITE) –> NOM FROM TYPE_ELEMENT ITE
C CE COMMON EST UTILISE DANS ALCHLO, ALRSLT AND CALCUL POUR:
C NBOBTR: NOMBRE D’OBJETS OF TRAVAIL “& CALCUL… “ QUI
C DEVRONT ETRE DETRUITS TO THE FIN OF CALCUL.
C IAOBTR: ADRESSE DANS ZK24 FROM THE OBJET “& CALCUL. OBJETS_TRAV “
C NBOBMX: LONGUEUR OF THE OBJET “& CALCUL. OBJETS_TRAV “
7.7. COMMON ICOELA#
Summary description:
current GREL number, current element number (in GREL), characteristics of all local fields.
COMMON/ICOELA/IAWMOL, NPARIO, IAWLOC,, IAWTYP, NBELGR, IGR, IEL
C CE COMMON EST INITILISE PAR ALCHLO
C CE COMMON EST MODIFIE PAR MECOE1 (OBJET. IA_CHLOC)
C CE COMMON EST MODIFIE PAR EXTRAI, MONTEE, CALCUL, CONVER, ZECHLO
C (OBJET). MODELO)
C CE COMMON EST MODIFIE A PEU PARTOUT POUR NBELGR, IGR, IEL
C CE COMMON EST UTILISE DANS EXTRAI, MONTEE, CALCUL, CONVER,
C JEVECH, ZECHLO, TECACH
C
C IGR: NUMERO FROM GREL QUE TO ON TRAITE
C NBELGR: NOMBRE FROM ELEMENTS DANS THE GREL IGR
C (IGR AND NBELGR SONT MIS A JOUR PAR CALCUL)
C IEL: NUMERO OF THE ELEMENT (DANS THE GREL IGR)
C (IEL EST MIS A JOUR PAR EXTRAI, TE0000, CONVER, MONTEE,…)
C IAWMOL: ADRESSE DANS ZI FROM “& CALCUL. MODELO “V (I)
C V (IPAR) –> MODE LOCAL FROM PARAMETRE IPAR (OPT)
C NPARIO: LONGUEUR OF “& CALCUL. MODELO “(NUMBER OF PARAM IN/ OUT (OPT))
C
C IAWLOC: ADRESSE DANS ZI FROM “& CALCUL. IA_CHLOC “V (I)
C CET OBJET CONTIENT DES INFORMATIONS SUR LES CHAMP_LOCAUX
C V (7* (IPAR -1) +1) –> ADRESSE OF THE CHAMP_LOCAL “& CALCUL. //NOMPAR (IPAR)
C V (7* (IPAR -1) +2) –> LONGUEUR OF THE OBJET “& CALCUL. //NOMPAR (IPAR)
C L= MAX (TYPE_ELEM PRESENTS) * NBELGR
C V (7* (IPAR -1) +3) –> MODE LOCAL ATTENDU POUR THE PARAMETRE (IPAR)
C V (7* (IPAR -1) +4) –> LONGUEUR UTILE FROM CHAMP_LOCAL POUR 1 ELEMENT
C FROM TYPE_ELEM ASSOCIE TO GREL IGR: NCMPEL (MODE)
C CETTE LONGUEUR TIENT COMPTE OF A EVENTUEL ICOEF
C =/ 1 (CF V (7* (IPAR -1) +7).
C V (7* (IPAR -1) +5) –> TYPE FROM CHAMP_LOCAL:
C 1: CARTE
C 2: CHAM_NO
C3: CHAM_ELEM
C 4: VECTEUR 2ND MEMBRE
C 5: MATRICE
C V (7* (IPAR -1) +6) –> NOMBRE OF POINTS OF DISCRETISATION OF THE CHAMP_LOC
C (0 IF MATRICE)
C V (7* (IPAR -1) +7) –> VALEUR FROM COEFFICIENT MULTIPLICATEUR POUR LES
C MODES LOCAUX FROM CHAM_ELEM « ZXXXX « (ICOEF).
C
C IAWTYP: ADRESSE DANS ZK8 FROM “& CALCUL. TYPE_SCA “V (K8)
C V (IPAR) –> TYPE_SCALAIRE FROM CHAMP_LOCAL
7.8. COMMON ICOELC#
Summary description:
Information about all global « out » fields.
COMMON/ICOELC/IACHOI, IACHOK
C CE COMMON EST MIS A JOUR PAR ALRSLT
C CE COMMON EST UTILISE DANS MONTEE, DCHLMX
C IACHOI: ADRESSE OF “& CALCUL. LCHOU_I “
C IACHOK: ADRESSE OF “& CALCUL. LCHOU_K8 “
C
C”& CALCUL. LCHOU_K8 “: := V (K8) (DIM = NIN *2)
C V (1): TYPE_CHAMP: “CHML” OR “RESL”.
CV (2): TYPE_GD: “C”, “R”
C
C”& CALCUL. LCHOU_I “: := V (I) (DIM = NOUT *2)
C V (1): ADRESSE OF L_ CHOUT (I). DESC
C V (2): ADRESSE OF L_ CHOUT (I). VALE (IF CHAM_ELEM)
C
7.9. COMMON ICOELF#
Summary description:
Information concerning all the objects related to the initialization of type_elements: « & INEL. XXX »
COMMON/ICOELF/NBOBJ, IAINEL, ININEL
C NBOBJ: NOMBRE D’OBJETS “& INEL. XXXX “CREE PAR The INITIALISATION
C OF TYPE_ELEM
C ININEL: ADRESSE DANS ZK24 FROM THE OBJET “& CALCUL. NOM_ & INEL “
C QUI CONTIENT LES NOMS DES OBJETS “& INEL. XXXX “
C IAINEL: ADRESSE DANS ZI FROM OBJET “& CALCUL. IAD_ & INEL “
C QUI CONTIENT LES ADRESSES DES OBJETS “& INEL. XXXX “
C CE COMMON EST INITIALISE PAR DEBCAL
C CE COMMON EST UTILISE PAR CALCUL AND JEVETE
7.10. COMMON ICOELG#
Summary description:
Information concerning the mesh underlying the current element
COMMON/ICOELG/ICAELI, ICAELK
C CE COMMON EST CREE PAR DEBCAL.
C IL EST UTILISE PAR TECAEL
C ICAELK EST THE ADRESSE OF A VECTEUR OF K24 CONTENANT:
C V (1): NOM FROM MAILLAGE (K8)
C V (2): NOM FROM LIGREL (K19)
C V (3): NOM FROM MAILLE (K8)
C V (3+ 1): NOM OF THE 1ST NOEUD OF THE MAILLE
C V (3+ 1): NOM FROM DER NOEUD FROM MAILLE
C ICAELI EST THE ADRESSE OF A VECTEUR OF IS CONTENANT:
C V (1): NUMERO FROM MAILLE
C V (2): NOMBRE OF NOEUDS OF THE MAILLE (NBNO)
C V (2+ 1): NUMERO OF THE 1ST NOEUD OF THE MAILLE
C V (2+ NBNO): NUMERO OF THE DER NOEUD OF THE MAILLE
C V (2+ NBNO +1): NUMERO FROM GREL
C V (2+ NBNO +2): NUMERO FROM THE ELEMENT DANS THE GREL