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.
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.
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 # ======================================================================
23 from sd_mater import sd_mater
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.
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):
37 if not type(valpar) in (list, tuple):
39 if not type(nomres) in (list, tuple):
41 nompar = tuple(nompar)
42 valpar = tuple(valpar)
43 nomres = tuple(nomres)
44 if len(nompar) != len(valpar):
46 vk2=', '.join([repr(v) for v in valpar])
47 UTMESS('F','SDVERI_4',valk=[vk1,vk2])
49 UTMESS('F', 'SDVERI_5')
50 # appel à l'interface Python/C
51 return aster.rcvale(self.nom, phenomene, nompar, valpar, nomres, stop)