Suiv.: Le préprocesseur MA23XX Sup.: Méthode d'extrusion (topologie cylindrique) Préc.: Définitions des données Index Table des matières

3.3.4 Appel du module MA2D3E

L'appel direct du module MA2D3E  (voir aussi le préprocesseur MA23XX) se fait en écrivant un programme principal comme suit:

• dimensionner le tableau M (dans le common blanc)
• déclarer le tableau réel ZINT(0:NBSEC) où NBSEC est le nombre total de sections (ce tableau pourra être utilisé totalement ou partiellement)
• déclarer le tableau entier DESREF(1:5,1:NBDES) où NBDES est le nombre de transfert d'attributs physiques à effectuer
• déclarer le tableau entier NUCOU(1:3,1:NBFONC) où NBFONC est le nombre de transformations géométriques à effectuer
• déclarer le tableau réel MAT(1:4,1:4,1:NBFONC) des matrices de transformations (ce tableau pourra être utilisé totalement ou partiellement)
• déclarer les logiques BFONC, COLLER et RAPIDE
• déclarer les externals XYZ23 et XYZ33
• appeler INITI

appel du module

CALL MA2D3E (M,M,NFNOPE,NINOPE,NFNOPS,NINOPS,
. NBCOU,EPS,NBFONC,NUCOU,MAT,COLLER,RAPIDE,
. DESREF,NBDES,ZINT,BFONC,XYZ23,XYZ33)

avec :

• M : le super-tableau
• NF(NI)NOPE : le numéro de support de la S.D.E. NOPO 2D et son niveau
• NF(NI)NOPS : le numéro de support de la S.D.S. NOPO 3D et son niveau
• NBCOU : le nombre de couches du maillage (i.e le nombre de sections - 1 )
• EPS : le seuil de dégénérescence (en pourcentage) pour la vérification des volumes (cf. RAPIDE)
• NBFONC : le nombre de transformations géométriques à décrire
• NUCOU(1:3,1:NBFONC) : la description des transformations:
  • NUCOU(1,I) : le numéro de la section de départ
  • NUCOU(2,I) : le numéro de la section d'arrivée
  • NUCOU(3,I) : le code de la transformation ou TTYPE avec (cf. ci-dessus):
    • -1 : i-1 i via MAT
    • -2 : 2D p à q via XYZ23
    • -3 : i-1 i via XYZ33
    • -4 : p p+1 à q via ZINT(p+1,..,q)
    • -5 : p et q (XYZ23) p+1 à q via un pas constant déterminé automatiquement
    • -6 : p et q'(XYZ23) p+1 à q via des pas fournis dans // ZINT(p+1,..,q)
• MAT(1:4,1:4,1:NBFONC) : si NUCOU(3,I) = -1, on donne la matrice MAT(4,4,I) définissant la transformation
• COLLER : .TRUE. si la section 0 et la section NBCOU+1 sont identiques et à recoller, .FALSE. sinon
• RAPIDE : .FALSE. si on demande de vérifier les volumes à EPS pour cent près, .TRUE. si on demande de vérifier la longueur des arêtes verticales avec le même type de tolérance
• NBDES : le nombre de transfert d'attributs physiques à effectuer
• DESREF(1:5,1:NBDES) : la description de ces transfert (cf. ci-dessus)
• ZINT(.) : le tableau des cotes des sections utile pour ZINT(0) si BFONC = .FALSE. (pour la base) et/ou si TTYPE = -4 ou -6 (pour une section quelconque).
• BFONC : .TRUE. si la base est définie par la fonction XYZ23, .FALSE. si elle est identique au maillage 2D et a pour cote ZINT(0)
• XYZ23  et XYZ33  : deux sous-programmes utilisés selon les cas (cf. BFONC ou TTYPE de NUCOU), à écrire de la façon suivante:

   
         SUBROUTINE XYZ23(ISEC,NUMPOIN,NREF,x,y,z,X,Y,Z)
  

  avec
  • ISEC: l'indice de la section à construire
  • NUMPOIN: le numéro du point 2D générique m
  • NREF: sa référence
  • x, y et z: ses coordonnées (z est sans effet dans le cas d'une donnée purement 2D)
  • X, Y et Z: les coordonnées calculées à partir des données précédentes
  et

   
         SUBROUTINE XYZ33(ISEC,NUMPOIN,NREF,x,y,z,X,Y,Z)
  

  avec
  • ISEC: l'indice de la section à construire
  • NUMPOIN: le numéro du point 2D générique m
  • NREF: sa référence
  • x, y et z: les coordonnées du point 3D de la section ISEC-1 associé au point générique ci-dessus
  • X, Y et Z: les coordonnées calculées à partir des données précédentes (i.e celles du point de la section ISEC)