subroutine APSUP2(M)
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
c  but : lecture des donnees et appel du module COONOE  qui calcule les 
c  ooo   noeuds a ajouter au maillage.                
c 
c  parametre d'entree :
c  oooooooooooooooooooo 
c  M : super-tableau de travail
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
c  Programmeur : S. Balac - IRMAR - Juin 1995
c  Derniere modification: 30 octobre 1998
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      INTEGER M(*)

      COMMON /UNITES/ LECTEU,IMPRIM,FILUNI(30)
      COMMON/TRAVA1/NTITRE(20),NDAT(2),NOMCRE(6),LONREE,IMPRE,IMPLEC,
     +              IFILL(2)
      COMMON/TRAVAI/IM,LM,NOMTAB,NNN,N1020(1020)

      CHARACTER*72 NOMFIC
c variables servant a lire les references de la surface
      INTEGER maxref
      parameter(maxref=10)
      INTEGER nrefp1,nrefp2,refp1(maxref),refp2(maxref)
c
c     ------  creer les donnees  ------
c

 5890 FORMAT(/,' NOM DU FICHIER DE LA S.D.E. NOPO   (A)  NOM NOPO',/
     +,      ' NIVEAU DE CETTE S.D.E.               (I)  NINOPO')

 5891 FORMAT(/,' NOM DU FICHIER DE LA S.D.S. NOPO    (A)  NOM NOPO',/
     +,      ' NIVEAU DE CETTE S.D.S.                (I)  NINOPO',/
     +,      ' **  NINOPO EST EVIDEMMENT UNE VALEUR NON DEJA EMPLOYEE') 
 5895 FORMAT(' -- NOM_NOPO NINOPO ?')    

      WRITE (IMPRIM,5890)
      WRITE (IMPRIM,5895)
      READ(*,*) NOMFIC,NIVO1

      CALL TRUNIT(NF1)
      CALL OUVRIS(NF1,NOMFIC,'OLD,UNFORMATTED',0)

      WRITE (IMPRIM,5891)
      WRITE (IMPRIM,5895)
      READ(*,*) NOMFIC,NIVO2

      CALL TRUNIT(NF2)
      CALL OUVRIS(NF2,NOMFIC,'UNKNOWN,UNFORMATTED',0)

c
c lecture des references de la surface 
c
      write(*,*)' Numeros de référence de la surface :'
10    write(*,'(A,$)')' - Nombre de références pour les éléments'
      write(*,'(A,$)')' droits (I): '
      read(*,*,err=10)  nrefp1
      if (nrefp1.le.0) goto 20 
      write(*,'(A,$)')'   Ces références (*I):'
      read(*,*,err=10) (refp1(i),i=1,nrefp1)

20    write(*,'(A,$)')' - Nombre de références pour les éléments'
      write(*,'(A,$)')' courbes : '
      read(*,*,err=10)  nrefp2
      if (nrefp2.le.0) goto 30 
      write(*,'(A,$)')'   Ces références (*I):'
      read(*,*,err=10) (refp2(i),i=1,nrefp2)

30    CALL COONOE(M,M,NF1,NIVO1,NF2,NIVO2,NREFP1,REFP1,NREFP2,REFP2)

      WRITE(IMPRIM,2000) 
 2000 FORMAT (1X,78('*')/' FIN DU MODULE MONOP2',/,1X,78('*'))

	END