DEBUT();

ma=LIRE_MAILLAGE();

air=DEFI_MATERIAU();

champmat=AFFE_MATERIAU(MAILLAGE=ma,
                       AFFE=_F(TOUT='OUI',
                               MATER=air,),);

mo=AFFE_MODELE(MAILLAGE=ma,
               AFFE=_F(TOUT='OUI',
                       PHENOMENE='ACOUSTIQUE',
                       MODELISATION='3D',),);

characou=AFFE_CHAR_ACOU(MODELE=mo,
                        VITE_FACE=_F(GROUP_MA=('ENTREE','SORTIE','TOTO','TITI',),
                                     VNOR=('RI',0.014,0.0,),),);

MACRO_MATR_ASSE(MODELE=mo,
                NUME_DDL=CO('num'),
                MATR_ASSE=_F(MATRICE=CO('matasm'),
                             OPTION='MASS_ACOU',),);

vectelem=CALC_VECT_ELEM(OPTION='CHAR_ACOU',
                        CHAM_MATER=champmat,
                        CHARGE=characou,);

sansnom=ASSE_VECTEUR(VECT_ELEM=None,
                     NUME_DDL=num,);

sansnom=ASSE_VECTEUR(VECT_ELEM=vectelem,
                     NUME_DDL=num,);

ch=ASSE_VECTEUR(VECT_ELEM=vectelem,
                     NUME_DDL=num,);

sansnom=COMB_CHAM_NO(COMB_C=_F(CHAM_NO=None,),);

sansnom=COMB_CHAM_NO(COMB_C=_F(CHAM_NO=ch,
                            COEF_R=1,),);

chno=COMB_CHAM_NO(COMB_C=_F(CHAM_NO=ch,
                            COEF_R=1,),);

matasm=FACT_LDLT(reuse =matasm,
                 MATR_ASSE=matasm,);

sansnom=RESO_LDLT(MATR_FACT=matasm,
                  CHAM_NO=None,
                  );
sansnom=RESO_LDLT(MATR_FACT=matasm,
                  CHAM_NO=chno,
                  );
rr =RESO_LDLT(MATR_FACT=matasm,
                  CHAM_NO=chno,
                  );