Aster/Cata/cataSTA74/Macro/macr_ecla_pg_ops.py

   1 #@ MODIF macr_ecla_pg_ops Macro  DATE 09/11/2004   AUTEUR VABHHTS J.PELLET
   2 # -*- coding: iso-8859-1 -*-
   3 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   4 # ======================================================================
   5 # COPYRIGHT (C) 1991 - 2004  EDF R&D                  WWW.CODE-ASTER.ORG
   6 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
   7 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
   8 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
   9 # (AT YOUR OPTION) ANY LATER VERSION.
  10 #
  11 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
  12 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
  13 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
  14 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
  15 #
  16 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
  17 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
  18 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
  19 # ======================================================================
  20
  21 ########################################################################
  22 def macr_ecla_pg_ops(self,RESULTAT,MAILLAGE,RESU_INIT,MODELE_INIT,
  23                      TOUT, GROUP_MA, MAILLE,
  24                      SHRINK, TAILLE_MIN,
  25                      NOM_CHAM, TOUT_ORDRE, NUME_ORDRE, LIST_ORDRE, INST, LIST_INST, PRECISION, CRITERE,
  26                      **args):
  27     """
  28        Ecriture de la macro macr_ecla_pg
  29     """
  30     import os, string
  31     from Accas import _F
  32     from Noyau.N_utils import AsType
  33     ier=0
  34
  35     # On importe les definitions des commandes a utiliser dans la macro
  36     CREA_MAILLAGE  =self.get_cmd('CREA_MAILLAGE')
  37     CREA_RESU      =self.get_cmd('CREA_RESU')
  38
  39
  40     # La macro compte pour 1 dans la numerotation des commandes
  41     self.set_icmd(1)
  42
  43
  44     # Appel à CREA_MAILLAGE :
  45     motscles={}
  46     if   TOUT      : motscles['TOUT']       =TOUT
  47     if   GROUP_MA  : motscles['GROUP_MA']   =GROUP_MA
  48     if   MAILLE    : motscles['MAILLE']     =MAILLE
  49
  50     self.DeclareOut('ma2',MAILLAGE)
  51     ma2=CREA_MAILLAGE(ECLA_PG=_F( MODELE = MODELE_INIT,  NOM_CHAM=NOM_CHAM,
  52                                   SHRINK = SHRINK, TAILLE_MIN=TAILLE_MIN, **motscles ));
  53
  54
  55
  56     # Appel à CREA_RESU :
  57     typ2=AsType(RESU_INIT).__name__
  58     if   TOUT_ORDRE    : motscles['TOUT_ORDRE']     =TOUT_ORDRE
  59     if   NUME_ORDRE    : motscles['NUME_ORDRE']     =NUME_ORDRE
  60     if   LIST_ORDRE    : motscles['LIST_ORDRE']     =LIST_ORDRE
  61     if   LIST_INST     : motscles['LIST_INST']      =LIST_INST
  62     if   INST          : motscles['INST']           =INST
  63     if   TOUT_ORDRE    : motscles['TOUT_ORDRE']     =TOUT_ORDRE
  64
  65     self.DeclareOut('resu2',RESULTAT)
  66     resu2=CREA_RESU( OPERATION='ECLA_PG', TYPE_RESU=string.upper(typ2),
  67                     ECLA_PG=_F( MODELE_INIT= MODELE_INIT, RESU_INIT=RESU_INIT, NOM_CHAM=NOM_CHAM,
  68                                 MAILLAGE= ma2, **motscles ));
  69     return ier
  70 ############################################################################################
  71