DEBUT()


mesh = LIRE_MAILLAGE(FORMAT='MED', UNITE=20)

model = AFFE_MODELE(
    AFFE=_F(MODELISATION=('3D', ), PHENOMENE='MECANIQUE', TOUT='OUI'),
    MAILLAGE=mesh
)

mater = DEFI_MATERIAU(ELAS=_F(E=2000.0, NU=0.3))

fieldmat = AFFE_MATERIAU(AFFE=_F(MATER=(mater, ), TOUT='OUI'), MODELE=model)

load = AFFE_CHAR_MECA(
    DDL_IMPO=_F(DX=0.0, DY=0.0, DZ=0.0, GROUP_MA=('kotei', )),
    FORCE_FACE=_F(FY=0.1, GROUP_MA=('saika', )),
    MODELE=model
)

reslin = MECA_STATIQUE(CHAM_MATER=fieldmat, EXCIT=_F(CHARGE=load), MODELE=model)

unnamed = CALC_CHAMP(
    CONTRAINTE=('SIGM_NOEU', ),
    CRITERES=('SIEQ_NOEU', ),
    DEFORMATION=('EPSI_NOEU', ),
    RESULTAT=reslin
)

IMPR_RESU(
    FORMAT='MED',
    RESU=(
        _F(NOM_CHAM=('EPSI_NOEU', 'SIEQ_NOEU', 'SIGM_NOEU'), RESULTAT=unnamed),
        _F(NOM_CHAM=('DEPL', ), RESULTAT=reslin)
    ),
    UNITE=80
)

FIN()