DEBUT(LANG='EN')


mesh = LIRE_MAILLAGE(identifier='0:1',
                     UNITE=20)

mesh = MODI_MAILLAGE(identifier='1:1',
                     reuse=mesh,
                     MAILLAGE=mesh,
                     ORIE_PEAU_2D=_F(GROUP_MA=('load', )))

model0 = AFFE_MODELE(identifier='2:1',
                     AFFE=_F(MODELISATION=('C_PLAN', ),
                             PHENOMENE='MECANIQUE',
                             TOUT='OUI'),
                     MAILLAGE=mesh)

mater = DEFI_MATERIAU(identifier='3:1',
                      ELAS=_F(E=200000.0,
                              NU=0.3))

fieldma0 = AFFE_MATERIAU(identifier='4:1',
                         AFFE=_F(MATER=(mater, ),
                                 TOUT='OUI'),
                         MODELE=model0)

load = AFFE_CHAR_MECA(identifier='5:1',
                      DDL_IMPO=(_F(DX=0.0,
                                   GROUP_MA=('y_axis1', 'y_axis2')),
                                _F(DY=0.0,
                                   GROUP_MA=('x_axis1', 'x_axis2'))),
                      MODELE=model0,
                      PRES_REP=_F(GROUP_MA=('load', ),
                                  PRES=-100.0))

reslin = MECA_STATIQUE(identifier='6:1',
                       CHAM_MATER=fieldma0,
                       EXCIT=_F(CHARGE=load),
                       MODELE=model0)

unnamed = CALC_CHAMP(identifier='7:1',
                     CONTRAINTE=('SIEF_NOEU', ),
                     CRITERES=('SIEQ_NOEU', ),
                     RESULTAT=reslin)

IMPR_RESU(identifier='8:1',
          RESU=(_F(NOM_CHAM=('SIEF_NOEU', 'SIEQ_NOEU'),
                   RESULTAT=unnamed),
                _F(RESULTAT=reslin)),
          UNITE=2)

FIN()