Aster/Cata/cataSTA8/Macro/macr_fiab_impr_ops.py

   1 #@ MODIF macr_fiab_impr_ops Macro  DATE 24/01/2005   AUTEUR DURAND C.DURAND
   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 # RESPONSABLE GNICOLAS G.NICOLAS
  21 #
  22 def macr_fiab_impr_ops(self, INFO,
  23                        TABLE_CIBLE, NOM_PARA_CIBLE, GRADIENTS, **args):
  24 #
  25 #
  26 #  1. args est le dictionnaire des arguments
  27 #    args.keys() est la liste des mots-clés
  28 #    args.keys()[0] est la premiere valeur de cette liste
  29 #    args.keys()[1:] est la liste des valeurs suivantes dans cette liste
  30 #    args.keys(mot_cle) représente le contenu de la variable mot_cle dans la macro appelante.
  31 #
  32   """ Macro-commande réalisant l'impression des valeurs pour le logiciel de fiabilite. """
  33 #
  34 # On charge les modules nécessaires
  35   from Accas import _F
  36 #
  37 #____________________________________________________________________
  38 #
  39 # 1. Préalables
  40 #____________________________________________________________________
  41 #
  42   erreur = 0
  43 #
  44 # 1.1 ==> La macro compte pour 1 dans l'exécution des commandes
  45 #
  46   self.set_icmd(1)
  47 #
  48 # 1.2 ==> On importe les définitions des commandes Aster utilisées
  49 #         dans la macro
  50 #
  51   DEFI_FICHIER = self.get_cmd("DEFI_FICHIER")
  52   IMPR_TABLE   = self.get_cmd("IMPR_TABLE")
  53 #
  54 # 1.3. ==> Des constantes
  55 #          Atention : le numéro d'unité utilisé ici et celui
  56 #                     utlisé dans le python d'échange lance_aster_5
  57 #                     doivent correspondre.
  58 #
  59   Unite_Fichier_ASTER_vers_FIABILITE = 91
  60   Nom_Symbolique_Fichier_ASTER_vers_FIABILITE = "ASTER_vers_FIABILITE"
  61   FORMAT_R="1PE17.10"
  62 #____________________________________________________________________
  63 #
  64 # 2. Définition d'un fichier d'échange
  65 #____________________________________________________________________
  66 #
  67   DEFI_FICHIER ( ACTION= "ASSOCIER",
  68 #                FICHIER = Nom_Symbolique_Fichier_ASTER_vers_FIABILITE,
  69                  UNITE = Unite_Fichier_ASTER_vers_FIABILITE,
  70                  TYPE = "ASCII",
  71                  INFO = INFO )
  72 #____________________________________________________________________
  73 #
  74 # 4. Ecriture de la valeur cible
  75 #____________________________________________________________________
  76 #
  77   IMPR_TABLE ( TABLE = TABLE_CIBLE,
  78                NOM_PARA = NOM_PARA_CIBLE,
  79                UNITE = Unite_Fichier_ASTER_vers_FIABILITE,
  80                FORMAT_R = FORMAT_R,
  81                INFO = INFO )
  82 #____________________________________________________________________
  83 #
  84 # 5. Ecritures des gradients
  85 #____________________________________________________________________
  86 #
  87   if GRADIENTS is not None :
  88 #
  89     for val in GRADIENTS :
  90 #
  91       IMPR_TABLE ( TABLE = val["TABLE"],
  92                    SENSIBILITE = val["PARA_SENSI"],
  93                    NOM_PARA = (val["NOM_PARA"]),
  94                    UNITE = Unite_Fichier_ASTER_vers_FIABILITE,
  95                    FORMAT_R = FORMAT_R,
  96                    INFO = INFO )
  97 #____________________________________________________________________
  98 #
  99 # 6. Libération du fichier d'échange
 100 #____________________________________________________________________
 101 #
 102   DEFI_FICHIER ( ACTION= "LIBERER",
 103                  UNITE = Unite_Fichier_ASTER_vers_FIABILITE,
 104                  INFO = INFO )
 105 #
 106 #--------------------------------------------------------------------
 107 # 7. C'est fini !
 108 #--------------------------------------------------------------------
 109 #
 110   return erreur