Aster/Cata/cataSTA6/Macro/macro_miss_3d_ops.py

   1 # -*- coding: iso-8859-1 -*-
   2 #@ MODIF macro_miss_3d_ops Macro  DATE 07/10/2003   AUTEUR ACBHHCD G.DEVESA
   3 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   4 # ======================================================================
   5 # COPYRIGHT (C) 1991 - 2002  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 def macro_miss_3d_ops(self,UNITE_IMPR_ASTER,UNITE_OPTI_MISS,
  22                            UNITE_MODELE_SOL,UNITE_RESU_IMPE,
  23                            PROJET,REPERTOIRE,OPTION,**args):
  24   """
  25      Ecriture de la macro MACRO_MISS_3D
  26   """
  27   import types
  28   from Accas import _F
  29
  30   ier=0
  31   # On importe les definitions des commandes a utiliser dans la macro
  32   # Le nom de la variable doit etre obligatoirement le nom de la commande
  33   FERMER        =self.get_cmd('FERMER')
  34   EXEC_LOGICIEL =self.get_cmd('EXEC_LOGICIEL')
  35   # La macro compte pour 1 dans la numerotation des commandes
  36   self.icmd=1
  37
  38   FERMER(UNITE=UNITE_IMPR_ASTER)
  39
  40   import aster
  41   loc_fic=aster.repout()
  42   miss3d=loc_fic+'miss3d'
  43
  44   if OPTION['TOUT']!=None:
  45       MODUL2='COMPLET'
  46   elif OPTION['MODULE']=='MISS_IMPE':
  47       MODUL2='CALC_IMPE'
  48   elif OPTION['MODULE']=='MISS_EVOL':
  49       MODUL2='MISS_PTAS'
  50   elif OPTION['MODULE']=='PRE_MISS':
  51       MODUL2='GTASTER'
  52
  53   ETUDE = PROJET
  54   BASE  = REPERTOIRE
  55   paste = 'fort.'+str(UNITE_IMPR_ASTER)
  56   popti = 'fort.'+str(UNITE_OPTI_MISS)
  57   pdsol = 'fort.'+str(UNITE_MODELE_SOL)
  58   primp = 'fort.'+str(UNITE_RESU_IMPE)
  59
  60   EXEC_LOGICIEL(
  61                 LOGICIEL=miss3d,
  62                 ARGUMENT=(_F(NOM_PARA=MODUL2),
  63                           _F(NOM_PARA=ETUDE),
  64                           _F(NOM_PARA=BASE),
  65                           _F(NOM_PARA=paste),
  66                           _F(NOM_PARA=popti),
  67                           _F(NOM_PARA=pdsol),
  68                           _F(NOM_PARA=primp)    ),
  69                 )
  70
  71   return ier