SUBROUTINE TYPEL(NDSDE,nrefp1,refp1,nrefp2,refp2,NTYP)
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
c but : test si le numero de sous domaine NDSDE fait partie 
c        - des references du tableau refp1 (alors en sortie NTYP=1),
c        - des references du tableau refp2 (alors en sortie NTYP=2). 
c        - Si on n'a pas trouve le numero dans les tableaux NTYP=0.
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c  Programmeur :  S. Balac - IRMAR - Juin 1995
c  Derniere modification : S. Balac - 17 juin 1995	
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

      INTEGER NDSDE,NTYP,nrefp1,nrefp2,refp1(nrefp1),refp2(nrefp2),I

      NTYP=0
      DO 10 I=1,nrefp1
        IF (NDSDE.EQ.refp1(I)) THEN
          NTYP=1
          RETURN
        ENDIF 
10    CONTINUE
      DO 20 I=1,nrefp2
        IF (NDSDE.EQ.refp2(I)) THEN
          NTYP=2
          RETURN
        ENDIF 
20    CONTINUE

      END