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

mesh = LIRE_MAILLAGE(identifier='1:1',
                     FORMAT='MED',
                     UNITE=3)

model = AFFE_MODELE(identifier='2:1',
                    AFFE=_F(MODELISATION=('AXIS', ),
                            PHENOMENE='THERMIQUE',
                            TOUT='OUI'),
                    MAILLAGE=mesh)

mater0 = DEFI_MATERIAU(identifier='3:1',
                       THER=_F(LAMBDA=0.016))

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

temp = AFFE_CHAR_THER(identifier='5:1',
                      MODELE=model,
                      TEMP_IMPO=_F(TEMP=100.0,
                                   TOUT='OUI'))

thload = THER_LINEAIRE(identifier='6:1',
                       CHAM_MATER=fieldma0,
                       EXCIT=_F(CHARGE=temp),
                       MODELE=model)

IMPR_RESU(identifier='7:1',
          FORMAT='MED',
          RESU=_F(RESULTAT=thload),
          UNITE=4)

FIN(identifier='8:1',
    )
