DEBUT();

maillage=LIRE_MAILLAGE();

modele=AFFE_MODELE(MAILLAGE=maillage,
                   AFFE=_F(TOUT='OUI',
                           PHENOMENE='MECANIQUE',
                           MODELISATION='BARRE',),);
P1 = 3;


Affe=AFFE_CARA_ELEM(MODELE=modele,
                    BARRE=_F(GROUP_MA='element1D',
                             SECTION='CERCLE',
                             CARA='R',
                             VALE=3.0,),);

FIN();