Aster/Cata/cataSTA9/SD/co_mater.py

   1 #@ MODIF co_mater SD  DATE 16/10/2007   AUTEUR REZETTE C.REZETTE
   2 # -*- coding: iso-8859-1 -*-
   3 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   4 # ======================================================================
   5 # COPYRIGHT (C) 1991 - 2007  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 import Accas
  22 from SD import *
  23 from sd_mater import sd_mater
  24
  25 # -----------------------------------------------------------------------------
  26 class mater_sdaster(ASSD, sd_mater):
  27    def RCVALE(self, phenomene, nompar=(), valpar=(), nomres=(), stop='F'):
  28       """Appel à la routine fortran RCVALE pour récupérer les valeurs des
  29       propriétés du matériau.
  30       """
  31       if self.par_lot() :
  32          raise Accas.AsException("Erreur dans mater.RCVALE en PAR_LOT='OUI'")
  33       from Utilitai.Utmess import UTMESS
  34       # vérification des arguments
  35       if not type(nompar) in (list, tuple):
  36          nompar = [nompar,]
  37       if not type(valpar) in (list, tuple):
  38          valpar = [valpar,]
  39       if not type(nomres) in (list, tuple):
  40          nomres = [nomres,]
  41       nompar = tuple(nompar)
  42       valpar = tuple(valpar)
  43       nomres = tuple(nomres)
  44       if len(nompar) != len(valpar):
  45          vk1=', '.join(nompar)
  46          vk2=', '.join([repr(v) for v in valpar])
  47          UTMESS('F','SDVERI_4',valk=[vk1,vk2])
  48       if len(nomres) < 1:
  49          UTMESS('F', 'SDVERI_5')
  50       # appel à l'interface Python/C
  51       return aster.rcvale(self.nom, phenomene, nompar, valpar, nomres, stop)
  52
  53