# MODIF  DATE 05/10/2004   AUTEUR CIBHHLV L.VIVAN 
# RESPONSABLE PABHHHH N.TARDIEU

# TITRE ENONCE TP POUTRE FORMATION POST TRAITEMENT
#            CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2002  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 = 'FORMA06A',NIV_PUB_WEB='INTERNET'));

PRE_GIBI();

MA=LIRE_MAILLAGE();

MO1=AFFE_MODELE(MAILLAGE=MA,
                AFFE=_F(TOUT='OUI',
                        PHENOMENE='MECANIQUE',
                        MODELISATION='POU_D_T',),);

ACIER=DEFI_MATERIAU(ELAS=_F(E=2.E11,
                            NU=0.0,
                            RHO=0.0,
                            ALPHA=0.0,),);

CHMAT=AFFE_MATERIAU(MAILLAGE=MA,
                    AFFE=_F(TOUT='OUI',
                            MATER=ACIER,),);

CAREL1=AFFE_CARA_ELEM(MODELE=MO1,
                      POUTRE=(_F(GROUP_MA='AB',
                                 SECTION='RECTANGLE',
                                 CARA='H',
                                 VALE=1.E-2,),
                              _F(GROUP_MA=('CA','GA','DG',),
                                 SECTION='RECTANGLE',
                                 CARA='H',
                                 VALE=1.E-2,),
                              _F(GROUP_MA='AE',
                                 SECTION='RECTANGLE', VARI_SECT = 'HOMOTHETIQUE',
                                 CARA=('H1','H2',),
                                 VALE=(0.01,0.01,),),),);

CH111=AFFE_CHAR_MECA(MODELE=MO1,
                     DDL_IMPO=(_F(TOUT='OUI',
                                  DZ=0.0,
                                  DRX=0.0,
                                  DRY=0.0,),
                               _F(GROUP_NO=('DD','BB','EE',),
                                  DX=0.0,
                                  DY=0.0,
                                  DRZ=0.0,),
                               _F(GROUP_NO='CC',
                                  DX=0.0,
                                  DY=0.0,),),);

CH121=AFFE_CHAR_MECA(MODELE=MO1,
                     FORCE_NODALE=_F(GROUP_NO='GG',
                                     FY=-1.0666666666659999E4,),
                     FORCE_POUTRE=_F(GROUP_MA='AB',
                                     FY=-1000.0,),);

MEST11=MECA_STATIQUE(MODELE=MO1,
                     CHAM_MATER=CHMAT,
                     CARA_ELEM=CAREL1,
                     EXCIT=(_F(CHARGE=CH111,),
                            _F(CHARGE=CH121,),),);


IMPR_RESU(MODELE=MO1,FORMAT='RESULTAT',
          RESU=_F(RESULTAT =MEST11));


TEST_RESU(RESU=(_F(RESULTAT=MEST11,
                   INST=0.0,
                   NOM_CHAM='DEPL',
                   NOM_CMP='DRZ',
                   GROUP_NO='GG',REFERENCE='NON_REGRESSION',
                   VALE=-3.32217E-04)));

FIN();