From ac5e3012c40c776d57ff69ce8dfb038d975adbb4 Mon Sep 17 00:00:00 2001
From: Christian Caremoli <>
Date: Fri, 2 Jun 2006 11:08:19 +0000
Subject: [PATCH] CCAR:ajout fichiers de test

---
 Tests/testcomm/cabri02a.comm | 78 ++++++++++++++++++++++++++++++++++++
 Tests/testcomm/param1.comm   | 36 +++++++++++++++++
 Tests/testcomm/pars1.comm    |  3 ++
 3 files changed, 117 insertions(+)
 create mode 100755 Tests/testcomm/cabri02a.comm
 create mode 100644 Tests/testcomm/param1.comm
 create mode 100644 Tests/testcomm/pars1.comm

diff --git a/Tests/testcomm/cabri02a.comm b/Tests/testcomm/cabri02a.comm
new file mode 100755
index 00000000..4c858c6f
--- /dev/null
+++ b/Tests/testcomm/cabri02a.comm
@@ -0,0 +1,78 @@
+# MODIF  DATE 07/03/2005   AUTEUR CIBHHLV L.VIVAN 
+# RESPONSABLE MABBAS M.ABBAS
+#
+# TITRE TEST DE REFERENCE POUR LA MACRO DE CALCUL DE BRIDES CABRI
+#            CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2003  EDF R&D                  WWW.CODE-ASTER.ORG
+# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
+# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
+#
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+#
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# ======================================================================
+
+DEBUT(CODE=_F(  NOM = 'CABRI02A',NIV_PUB_WEB='INTRANET'));
+
+# DEFINITION DES DONNEES MATERIAUX
+
+# Temperature initiale, assemblage libre de contraintes
+TEMP_INI=25.0;
+
+# Temperature moyenne du transitoire pour calcul de lambda et rhoCp
+TEMP_MOY = 170.0;
+
+INCLUDE_MATERIAU(NOM_AFNOR='Z2CN1810',
+                 TYPE_MODELE='REF',
+                 VARIANTE='A',
+                 TYPE_VALE='NOMI',
+                 NOM_MATER='MA_BRI',
+                 EXTRACTION=_F(COMPOR='THER',
+                               TEMP_EVAL= TEMP_MOY,),
+                 UNITE_LONGUEUR='MM');
+
+INCLUDE_MATERIAU(NOM_AFNOR='Z12CN13',
+                 TYPE_MODELE='REF',
+                 VARIANTE='A',
+                 TYPE_VALE='NOMI',
+                 NOM_MATER='MA_ECR',
+                 EXTRACTION=_F(COMPOR='THER',
+                               TEMP_EVAL= TEMP_MOY,),
+                 UNITE_LONGUEUR='MM',);
+
+INCLUDE_MATERIAU(NOM_AFNOR='Z12CN13',
+                 TYPE_MODELE='REF',
+                 VARIANTE='A',
+                 TYPE_VALE='NOMI',
+                 NOM_MATER='MA_RON',
+                 EXTRACTION=_F(COMPOR='THER',
+                               TEMP_EVAL= TEMP_MOY,),
+                 UNITE_LONGUEUR='MM',);
+
+INCLUDE_MATERIAU(NOM_AFNOR='Z2CN1810',
+                 TYPE_MODELE='REF',
+                 VARIANTE='A',
+                 TYPE_VALE='NOMI',
+                 NOM_MATER='MA_GOU',
+                 EXTRACTION=_F(COMPOR='THER',
+                               TEMP_EVAL= TEMP_MOY,),
+                 UNITE_LONGUEUR='MM',);
+
+INCLUDE_MATERIAU(NOM_AFNOR='Z6CND1712',
+                 TYPE_MODELE='REF',
+                 VARIANTE='A',
+                 TYPE_VALE='NOMI',
+                 NOM_MATER='MA_LIM',
+                 EXTRACTION=_F(COMPOR='THER',
+                               TEMP_EVAL= TEMP_MOY,),
+                 UNITE_LONGUEUR='MM',);
+
+FIN();
diff --git a/Tests/testcomm/param1.comm b/Tests/testcomm/param1.comm
new file mode 100644
index 00000000..79172614
--- /dev/null
+++ b/Tests/testcomm/param1.comm
@@ -0,0 +1,36 @@
+
+DEBUT()
+TEMP_MOY=50.
+coef0 = 1.E-3
+
+A0=DEFI_FONCTION(      NOM_PARA='TEMP',
+                            PROL_DROITE='EXCLU',
+                            PROL_GAUCHE='EXCLU',
+                                   VALE=(
+          20.            ,14.7            *coef0,
+          50.            ,15.2            *coef0,
+          100.           ,15.8            *coef0,
+          150.           ,16.7            *coef0,
+          200.           ,17.2            *coef0,
+          250.           ,18.             *coef0,
+          300.           ,18.6            *coef0,
+          350.           ,19.3            *coef0,
+          400.           ,20.             *coef0,
+          450.           ,20.5            *coef0,
+          500.           ,21.1            *coef0,
+          550.           ,21.7            *coef0,
+          600.           ,22.2            *coef0,
+          650.           ,22.7            *coef0,
+          700.           ,23.2            *coef0,
+          750.           ,23.7            *coef0,
+          800.           ,24.1            *coef0,
+          950.           ,26.67           *coef0,
+          1150.          ,29.24           *coef0,
+          1370.          ,32.06           *coef0,
+          ))
+
+DEFI_MATERIAU(  ELAS=_F( RHO = 1.E08,  
+                         NU = 0.3,  
+                         E = A0(TEMP_MOY)))
+
+FIN()
diff --git a/Tests/testcomm/pars1.comm b/Tests/testcomm/pars1.comm
new file mode 100644
index 00000000..410fcd81
--- /dev/null
+++ b/Tests/testcomm/pars1.comm
@@ -0,0 +1,3 @@
+DEBUT()
+a=1 # comment
+FIN()
-- 
2.39.2