Aster/Cata/cataSTA74/Macro/macro_miss_3d_ops.py

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