Tests/testcomm9/hsnv100h.comm

   1 # MODIF  DATE 23/10/2006   AUTEUR VABHHTS J.PELLET
   2 # TITRE THERMO-PLASTICITE EN TRACTION SIMPLE (MODELISATION:C_PLAN)
   3 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   4 # ======================================================================
   5 # COPYRIGHT (C) 1991 - 2006  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 DEBUT(CODE=_F( NOM = 'HSNV100H',NIV_PUB_WEB='INTRANET'),IMPR_MACRO='OUI',DEBUG=_F(SDVERI='OUI'))
  23
  24 #......................................................................
  25 # CAS TEST THERMOPLASTICITE ELEMENTAIRE
  26 #......................................................................
  27 # DEFINITION DES CARACTERISTIQUES DU MATERIAU
  28 #
  29
  30 MAIL=LIRE_MAILLAGE( )
  31
  32 INCLUDE_MATERIAU(TYPE_MODELE='REF',
  33                  TYPE_VALE='NOMI',
  34                  NOM_AFNOR='Z2CND1712',
  35                  VARIANTE='A',
  36                  NOM_MATER='MONMAT',
  37                  UNITE_LONGUEUR='MM'
  38                  )
  39
  40 CHMAT=AFFE_MATERIAU(  MAILLAGE=MAIL,AFFE=(
  41                        _F(  TOUT='OUI', MATER = MONMAT),
  42                ),)
  43
  44 #
  45
  46 FIN()