DEBUT(LANG='FR')

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

table = MACR_CARA_POUTRE(GROUP_MA_BORD=('sen', ),
                         GROUP_NO=('1', '2', '3', '4'),
                         MAILLAGE=mesh)

IMPR_RESU(FORMAT='RESULTAT',
          UNITE=2)

FIN()
