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.
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.
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 # ======================================================================
21 ########################################################################
22 def macr_ecla_pg_ops(self,RESULTAT,MAILLAGE,RESU_INIT,MODELE_INIT,
23 TOUT, GROUP_MA, MAILLE,
25 NOM_CHAM, TOUT_ORDRE, NUME_ORDRE, LIST_ORDRE, INST, LIST_INST, PRECISION, CRITERE,
28 Ecriture de la macro macr_ecla_pg
32 from Noyau.N_utils import AsType
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')
40 # La macro compte pour 1 dans la numerotation des commandes
44 # Appel à CREA_MAILLAGE :
46 if TOUT : motscles['TOUT'] =TOUT
47 if GROUP_MA : motscles['GROUP_MA'] =GROUP_MA
48 if MAILLE : motscles['MAILLE'] =MAILLE
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 ));
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
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 ));
70 ############################################################################################