DEBUT(identifier=u'0:1',
      LANG='EN')

mesh0 = LIRE_MAILLAGE(identifier=u'1:1',
                      FORMAT='MED',
                      UNITE=2)

mesh0 = MODI_MAILLAGE(identifier=u'2:1',
                      reuse=mesh0,
                      MAILLAGE=mesh0,
                      ORIE_PEAU_2D=_F(GROUP_MA=('load', )))

model = AFFE_MODELE(identifier=u'3:1',
                    AFFE=_F(MODELISATION=('C_PLAN', ),
                            PHENOMENE='MECANIQUE',
                            TOUT='OUI'),
                    MAILLAGE=mesh0)

Steel = DEFI_MATERIAU(identifier=u'4:1',
                      ELAS=_F(E=200000.0,
                              NU=0.3))

fieldmat = AFFE_MATERIAU(identifier=u'5:1',
                         AFFE=_F(MATER=(Steel, ),
                                 TOUT='OUI'),
                         MODELE=model)

load = AFFE_CHAR_MECA(identifier=u'6:1',
                      DDL_IMPO=(_F(DX=0.0,
                                   GROUP_MA=('left', )),
                                _F(DY=0.0,
                                   GROUP_MA=('Bottom', ))),
                      MODELE=model,
                      PRES_REP=_F(GROUP_MA=('load', ),
                                  PRES=-100.0))

RESU = MECA_STATIQUE(identifier=u'7:1',
                     CHAM_MATER=fieldmat,
                     EXCIT=_F(CHARGE=load),
                     MODELE=model)

unnamed = CALC_CHAMP(identifier=u'8:1',
                     CONTRAINTE=('SIEF_NOEU', ),
                     CRITERES=('SIEQ_NOEU', ),
                     MODELE=model,
                     RESULTAT=RESU)

IMPR_RESU(identifier=u'9:1',
          FORMAT='MED',
          RESU=_F(RESULTAT=unnamed),
          UNITE=3)

FIN(identifier=u'10:1',
    )
