Aster/Cata/cataSTA74/Macro/macr_fiab_impr_ops.py

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