interface_stbtel.f

Go to the documentation of this file.

!                   ***********************
                    MODULE interface_stbtel
!                   ***********************
!
!
!***********************************************************************
! TELEMAC2D 7.2
!***********************************************************************
!
!
!-----------------------------------------------------------------------
!
!     DEFINITION OF INTERFACES
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE refine_mesh
     &(rlevels,meshinit,nnelmax,nptfrmax,ntrac,extend_lim,
     & corresp,lihbor,liubor,livbor,litbor,hbor,ubor,vbor,
     & chbord,tbor,atbor,btbor,zf)
        USE bief
        USE declarations_telemac
        USE declarations_stbtel
        USE declarations_special
        IMPLICIT NONE
        TYPE(bief_mesh), INTENT(INOUT) :: MESHINIT
        INTEGER        , INTENT(IN)    :: RLEVELS
        INTEGER        , INTENT(IN)    :: NNELMAX
        INTEGER        , INTENT(IN)    :: NPTFRMAX
        INTEGER        , INTENT(IN)    :: NTRAC
        LOGICAL        , INTENT(IN)    :: EXTEND_LIM
        INTEGER,INTENT(INOUT), OPTIONAL :: CORRESP(nnelmax,rlevels)
        INTEGER,INTENT(INOUT), OPTIONAL :: LIHBOR(nptfrmax)
        INTEGER,INTENT(INOUT), OPTIONAL :: LIUBOR(nptfrmax)
        INTEGER,INTENT(INOUT), OPTIONAL :: LIVBOR(nptfrmax)
        TYPE(bief_obj),INTENT(INOUT), OPTIONAL :: LITBOR
        DOUBLE PRECISION,INTENT(INOUT),OPTIONAL:: UBOR(nptfrmax,2)
        DOUBLE PRECISION,INTENT(INOUT),OPTIONAL:: VBOR(nptfrmax,2)
        DOUBLE PRECISION,INTENT(INOUT),OPTIONAL:: HBOR(nptfrmax)
        DOUBLE PRECISION,INTENT(INOUT),OPTIONAL:: CHBORD(nptfrmax)
        TYPE(bief_obj),INTENT(INOUT),OPTIONAL:: ZF
        TYPE(bief_obj),INTENT(INOUT),OPTIONAL:: TBOR, ATBOR
        TYPE(bief_obj),INTENT(INOUT),OPTIONAL:: BTBOR
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE divise
     &(x,y,ikle,ncolor,npoin,nelem,nelmax,nsom2,som2,indicp,indice,
     & shp,elt,npmax,corr,level)
      IMPLICIT NONE
      INTEGER, INTENT(IN) :: NSOM2,NELMAX,NPMAX
      INTEGER, INTENT(INOUT) :: ELT(npmax)
      INTEGER, INTENT(INOUT) :: NPOIN,NELEM
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,*),INDICP(*),INDICE(*)
      INTEGER, INTENT(INOUT) :: NCOLOR(*)
      DOUBLE PRECISION, INTENT(IN) :: SOM2(10,2)
      DOUBLE PRECISION, INTENT(INOUT) :: X(*),Y(*),SHP(npmax,3)
      INTEGER, INTENT(INOUT), OPTIONAL :: CORR(nelmax,*)
      INTEGER, INTENT(IN), OPTIONAL :: LEVEL
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE fill_lim
     & (nptfr,nptfrx,ntrac,lihbor,liubor,livbor,litbor,
     &  hbor,ubor,vbor,chbord,tbor,atbor,btbor,nbor,old_nbor)
!
        USE bief
        USE declarations_special
        IMPLICIT NONE
        INTEGER, INTENT(IN)    :: NPTFR,NPTFRX,NTRAC
        INTEGER,INTENT(INOUT) :: LIHBOR(nptfrx),LIUBOR(nptfrx)
        INTEGER,INTENT(INOUT) :: LIVBOR(nptfrx)
        TYPE(bief_obj)  , INTENT(INOUT) :: LITBOR
        DOUBLE PRECISION, INTENT(INOUT) :: UBOR(nptfrx,2),VBOR(nptfrx,2)
        DOUBLE PRECISION, INTENT(INOUT) :: HBOR(nptfrx)
        DOUBLE PRECISION, INTENT(INOUT) :: CHBORD(nptfrx)
        TYPE(bief_obj)  , INTENT(INOUT) :: TBOR, ATBOR, BTBOR
        INTEGER, INTENT(IN) :: OLD_NBOR(nptfrx), NBOR(nptfrx)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE ranbo
     &(nbor,kp1bor,ifabor,ikle,ncolor,trav1,nptfr,x,y,ncolfr,
     & ndp,npoin,nelem,nelmax,mesh)
      IMPLICIT NONE
      INTEGER, INTENT(IN)    :: NDP,NELMAX,MESH,NELEM,NPOIN
      INTEGER, INTENT(INOUT) :: NPTFR
      INTEGER, INTENT(INOUT) :: NBOR(*),KP1BOR(*),NCOLFR(*)
      INTEGER, INTENT(INOUT) :: TRAV1(npoin,2)
      INTEGER, INTENT(IN)    :: IFABOR(nelmax,*),IKLE(nelmax,3)
      INTEGER, INTENT(IN)    :: NCOLOR(*)
      DOUBLE PRECISION, INTENT(IN) :: X(npoin),Y(npoin)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE circul
     &(ikle,itest1 ,ielem,i1,i2,i3,x,y,nnelmax)
      IMPLICIT NONE
      INTEGER, INTENT(IN) :: NNELMAX
      INTEGER, INTENT(IN) :: IELEM
      INTEGER, INTENT(INOUT) :: IKLE(nnelmax,4)
      INTEGER, INTENT(IN) :: I1 , I2 , I3
      INTEGER, INTENT(INOUT) :: ITEST1
      DOUBLE PRECISION, INTENT(IN) :: X(*),Y(*)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE converter
     &(loc_inpfile,loc_bndfile,
     & loc_outfile,loc_outbndfile)
          USE declarations_stbtel
      IMPLICIT NONE
      CHARACTER(LEN=MAXLENFILE), INTENT(IN) :: LOC_INPFILE
      CHARACTER(LEN=MAXLENFILE), INTENT(IN) :: LOC_BNDFILE
      CHARACTER(LEN=MAXLENFILE), INTENT(IN) :: LOC_OUTFILE
      CHARACTER(LEN=MAXLENFILE), INTENT(IN) :: LOC_OUTBNDFILE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE cordep
     &(ikle,lgvec)
      USE declarations_stbtel, ONLY: nelmax
      IMPLICIT NONE
!
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4)
      INTEGER, INTENT(IN) :: LGVEC
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE decoup
     &(isurc,x,y,ikle,ncolor,ifabor, nelem2,npoin2,color)
      USE declarations_stbtel, ONLY: nelmax
      IMPLICIT NONE
!
      DOUBLE PRECISION, INTENT(INOUT) :: X(*) , Y(*)
      INTEGER, INTENT(IN) :: ISURC
      INTEGER, INTENT(INOUT) :: NELEM2 , NPOIN2
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4) , NCOLOR(*)
      INTEGER, INTENT(INOUT) :: IFABOR(nelmax,*)
      LOGICAL, INTENT(INOUT) :: COLOR
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE deparr
     &(ikle,ndepar,lgvec)
      USE declarations_stbtel, ONLY: nelmax
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: LGVEC
      INTEGER, INTENT(INOUT) :: NDEPAR
      INTEGER, INTENT(IN) :: IKLE(nelmax,4)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE dynami
     &(nptfr,nbor,lihbor,liubor,livbor,litbor,ncolfr,maille,nlim)
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: NPTFR, NLIM
      INTEGER, INTENT(IN) :: NBOR(*) , NCOLFR(*)
      INTEGER, INTENT(INOUT) :: LIHBOR(*) , LIUBOR(*)
      INTEGER, INTENT(INOUT) :: LIVBOR(*) ,LITBOR(*)
      CHARACTER(LEN=9), INTENT(IN) :: MAILLE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE ecrsel
     &(vainit,ikinit,npinit,neinit,shp,elt,npoin,npoin1,npmax,w,
     & x,zf,nsfond,ncolor,color,var,nvarin,nvarou,nvar2,std,fusion,
     & nres,ngeo,nfo1,maille,texte)
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: NPINIT,NEINIT,NPOIN,NPMAX
      INTEGER, INTENT(IN) :: NPOIN1,NVAR2
      DOUBLE PRECISION, INTENT(INOUT) :: VAINIT(npinit)
      DOUBLE PRECISION, INTENT(IN) :: SHP(npmax,3)
      INTEGER, INTENT(IN) :: IKINIT(neinit,3),ELT(npoin)
      REAL, INTENT(INOUT) :: W(*)
      DOUBLE PRECISION, INTENT(INOUT) :: X(npoin)
      DOUBLE PRECISION, INTENT(IN) :: ZF(npoin)
      INTEGER, INTENT(IN) :: NSFOND
      INTEGER, INTENT(IN) :: NCOLOR(npoin)
      LOGICAL, INTENT(IN) :: COLOR,FUSION
      DOUBLE PRECISION, INTENT(INOUT) :: VAR(npoin)
      INTEGER, INTENT(IN) :: NVARIN,NVAROU
      CHARACTER(LEN=3), INTENT(IN) :: STD
      INTEGER, INTENT(IN) :: NGEO,NRES,NFO1
      CHARACTER(LEN=9), INTENT(IN) :: MAILLE
      CHARACTER(LEN=32), INTENT(IN) ::TEXTE(nvarin)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE elmpb
     &(nbpb,numpb,x,y,ikle,ncolor,isdry,new)
      USE declarations_stbtel, ONLY: nelmax,npmax
      IMPLICIT NONE
!
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4), ISDRY(npmax), NEW(npmax)
      INTEGER, INTENT(INOUT) :: NCOLOR(npmax)
      INTEGER,INTENT(IN) :: NBPB, NUMPB(100)
      DOUBLE PRECISION, INTENT(INOUT) :: X(npmax) , Y(npmax)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE elmsec
     &( elpsec, seusec, tpsfin, x, y, ikle, ncolor, isdry,
     &  ihaut, nvar, h, work, new, std, ngeo, texte )
      USE declarations_stbtel, ONLY: nelmax,npmax
      IMPLICIT NONE
!
      LOGICAL, INTENT(IN) :: ELPSEC
      DOUBLE PRECISION, INTENT(IN) :: SEUSEC
      DOUBLE PRECISION, INTENT(INOUT) :: X(npmax),Y(npmax)
      DOUBLE PRECISION, INTENT(INOUT) :: H(npmax),TPSFIN(1)
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4), ISDRY(npmax), NEW(npmax)
      INTEGER, INTENT(INOUT) :: NCOLOR(npmax)
      INTEGER, INTENT(IN) :: IHAUT, NVAR
      REAL, INTENT(INOUT) :: WORK(*)
      INTEGER, INTENT(IN) :: NGEO
      CHARACTER(LEN=3), INTENT(IN) :: STD
      CHARACTER(LEN=32), INTENT(IN) :: TEXTE(nvar)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE extrac
     &(x,y,som,ikle,indic,nelem,nelmax,npoin,nsom,projec)
      IMPLICIT NONE
!
      INTEGER, INTENT(INOUT) :: NELEM
      INTEGER, INTENT(IN) :: NELMAX,NPOIN,NSOM
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,3),INDIC(npoin)
      DOUBLE PRECISION, INTENT(INOUT) :: X(npoin),Y(npoin)
      DOUBLE PRECISION, INTENT(IN) :: SOM(10,2)
      LOGICAL, INTENT(IN) :: PROJEC
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE fm3sel
     &(x,y,npoin,nbor,nfic,std,nvar,texte,textlu,varcla,nvarcl,
     & titre,sorleo,nsor,w,ikle,
     & ikles,itrav,nelem,nptfr,ndp,mxptvs,mxelvs,date,time,
     & debu,suit,ecri,listin,iparam,ipobo,x_orig,y_orig)
      IMPLICIT NONE
!
      DOUBLE PRECISION, INTENT(IN) :: X(*),Y(*)
      REAL, INTENT(INOUT) :: W(*)
!                     IKLE(NELEM,NDP) IKLES(NDP,NELEM)
      INTEGER, INTENT(IN) :: NBOR(*)
      INTEGER, INTENT(INOUT) :: IKLE(*),IKLES(*),ITRAV(*)
      INTEGER, INTENT(INOUT) :: NPOIN,NVAR,MXPTVS,MXELVS,TIME(3),DATE(3)
      INTEGER, INTENT(IN) :: NFIC,NVARCL,NSOR
      INTEGER, INTENT(INOUT) :: NELEM,NPTFR,NDP
      INTEGER, INTENT(IN) :: IPARAM(10),IPOBO(*)
      LOGICAL, INTENT(IN) :: DEBU,SUIT,ECRI,LISTIN,SORLEO(*)
      CHARACTER(LEN=3), INTENT(IN) :: STD
      CHARACTER(LEN=72), INTENT(IN) :: TITRE
!                        NSOR      NSOR+NVARCL
      CHARACTER(LEN=32), INTENT(IN) :: TEXTE(*),VARCLA(nvarcl)
      CHARACTER(LEN=32), INTENT(INOUT) :: TEXTLU(*)
      INTEGER, INTENT(IN) :: X_ORIG, Y_ORIG
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE imprim
     &(npoin1,npoin,typele,nelem,titre,maille,precis)
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: NPOIN1, NPOIN, NELEM
!
      CHARACTER(LEN=11), INTENT(IN) :: TYPELE
      CHARACTER(LEN=80), INTENT(IN) :: TITRE
      CHARACTER(LEN=9), INTENT(IN) ::  MAILLE
      CHARACTER(LEN=6), INTENT(IN) ::  PRECIS
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE iniadc
     &(npoin1,typele,nsfond,ihaut,ngeo,titre)
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: NGEO
      INTEGER, INTENT(INOUT) :: NPOIN1 , NSFOND
      INTEGER, INTENT(INOUT) :: IHAUT
!
      CHARACTER(LEN=80), INTENT(INOUT) :: TITRE
      CHARACTER(LEN=11), INTENT(INOUT) :: TYPELE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE inifas
     &(typele,ngeo)
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) ::       NGEO
      CHARACTER(LEN=*), INTENT(INOUT) :: TYPELE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE inisel
     &(npoin1,typele,std,nsfond,fusion,ihaut,ngeo,nfo1)
      IMPLICIT NONE
!
      INTEGER, INTENT(INOUT) :: NPOIN1,NSFOND
      CHARACTER(LEN=11), INTENT(INOUT) :: TYPELE
      CHARACTER(LEN=3), INTENT(IN) :: STD
      LOGICAL, INTENT(IN) :: FUSION
      INTEGER, INTENT(INOUT) :: IHAUT
      INTEGER, INTENT(IN) :: NGEO , NFO1
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE inisim
     &(npoin1,typele,inop5,ngeo)
      IMPLICIT NONE
      !
      INTEGER, INTENT(INOUT) :: NPOIN1,INOP5
      INTEGER, INTENT(IN) :: NGEO
      CHARACTER(LEN=11), INTENT(INOUT) :: TYPELE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE inistb
     &(npoin1,typele,maille,precis,ngeo,nsec2,nsec11,nsec12)
      IMPLICIT NONE
!
      INTEGER, INTENT(INOUT) :: NPOIN1
      CHARACTER(LEN=11), INTENT(INOUT) :: TYPELE
      CHARACTER(LEN=9), INTENT(IN) ::  MAILLE
      CHARACTER(LEN=6), INTENT(INOUT) ::  PRECIS
      INTEGER, INTENT(IN) :: NSEC11 , NSEC12 , NGEO, NSEC2
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE initri
     &( npoin1,typele,ngeo,nfo1)
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: NGEO, NFO1
      INTEGER, INTENT(INOUT) :: NPOIN1
      CHARACTER(LEN=*), INTENT(INOUT) :: TYPELE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE interp
     &(xinit , yinit , ikinit , npinit , neinit ,
     & x , y , npoin , npmax , shp , elt)
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: NPINIT, NEINIT, NPOIN,NPMAX
      DOUBLE PRECISION, INTENT(IN) :: XINIT(npinit) , YINIT(npinit)
      INTEGER, INTENT(IN) :: IKINIT(neinit,3)
      INTEGER, INTENT(INOUT) :: ELT(npmax)
      DOUBLE PRECISION, INTENT(IN) :: X(npmax) , Y(npmax)
      DOUBLE PRECISION, INTENT(INOUT) :: SHP(npmax,3)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE lecadc
     &( x , y , zf , ikle , ngeo )
      USE declarations_stbtel, ONLY: nelmax
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: NGEO
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4)
      DOUBLE PRECISION, INTENT(INOUT) :: X(*) , Y(*),ZF(*)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE lecfas
     & (x, y, ikle, ncolor, tfast1, tfast2, addfas,
     &  ngeo , nfo1)
      USE declarations_stbtel, ONLY: nelmax
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: NGEO, NFO1
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4)
      INTEGER, INTENT(INOUT) :: NCOLOR(*)
      INTEGER, INTENT(INOUT) :: TFAST1(*),TFAST2(*)
      LOGICAL, INTENT(IN) :: ADDFAS
      DOUBLE PRECISION, INTENT(INOUT) :: X(*), Y(*)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE lecfon
     &( xrelv , yrelv , zrelv , nbat , nfond , nbfond ,  np ,
     &  npt , fontri , cortri , maille, ngeo )
      IMPLICIT NONE
!
      DOUBLE PRECISION, INTENT(INOUT) :: XRELV(*) , YRELV(*) , ZRELV(*)
      INTEGER, INTENT(IN) :: NFOND(*) , NBAT , NBFOND
      INTEGER, INTENT(INOUT) :: NP(5), NPT
      LOGICAL, INTENT(IN) :: FONTRI
      DOUBLE PRECISION, INTENT(IN) :: CORTRI
      CHARACTER(LEN=9), INTENT(IN) ::  MAILLE
      INTEGER, INTENT(IN) :: NGEO
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE lecsel
     &(xinit,yinit,ikinit,npinit,neinit,x,y,ikle,ikles,w,titre,texte,
     & nvarin,nvar2,std,fusion,ngeo,nfo1,ipobo,iparam,date,
     & time,x_orig,y_orig)
      USE declarations_stbtel, ONLY: nelmax,nelem,ndp
      IMPLICIT NONE
!
      DOUBLE PRECISION, INTENT(INOUT) :: XINIT(*), YINIT(*), X(*), Y(*)
      REAL, INTENT(INOUT) :: W(*)
      INTEGER, INTENT(IN) :: NGEO , NFO1
      INTEGER, INTENT(INOUT) :: IPARAM(10),DATE(3),TIME(3)
      INTEGER, INTENT(INOUT) :: NEINIT , NPINIT
      INTEGER, INTENT(INOUT) :: NVARIN , NVAR2
      INTEGER, INTENT(INOUT) :: IKINIT(nelem,ndp)
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,ndp),IKLES(ndp,nelem)
      INTEGER, INTENT(INOUT) :: IPOBO(*)
      LOGICAL, INTENT(IN) :: FUSION
      CHARACTER(LEN=72), INTENT(INOUT) :: TITRE
      CHARACTER(LEN=32), INTENT(INOUT) :: TEXTE(26)
      CHARACTER(LEN=3), INTENT(IN) ::  STD
      INTEGER, INTENT(INOUT) :: X_ORIG, Y_ORIG
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE lecsim
     &( x , y , ikle , ncolor , titre , nop5 , ngeo )
      USE declarations_stbtel, ONLY: nelmax
      IMPLICIT NONE
!
      DOUBLE PRECISION, INTENT(INOUT) :: X(*) , Y(*)
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4) , NCOLOR(*)
      CHARACTER(LEN=80), INTENT(INOUT) :: TITRE
      INTEGER, INTENT(INOUT) :: NOP5(*)
      INTEGER, INTENT(IN) :: NGEO
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE lecstb
     &( x , y ,ikle , ncolor , titre , npoin1 ,
     &  ngeo , nsec2,nsec3,nsec11,nsec12)
      USE declarations_stbtel, ONLY: nelmax
      IMPLICIT NONE
!
      DOUBLE PRECISION, INTENT(INOUT) :: X(*) , Y(*)
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4) , NCOLOR(*)
      CHARACTER(LEN=80), INTENT(INOUT) :: TITRE
      INTEGER, INTENT(IN) :: NPOIN1
      INTEGER, INTENT(IN) :: NGEO
      INTEGER, INTENT(IN) :: NSEC11 , NSEC12 , NSEC2 , NSEC3
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE lectri
     & (x, y, ikle, ncolor,ngeo , nfo1)
      USE declarations_stbtel, ONLY: nelmax
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: NGEO, NFO1
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4)
      INTEGER, INTENT(INOUT) :: NCOLOR(*)
      DOUBLE PRECISION, INTENT(INOUT) :: X(*), Y(*)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE presel
     &(ikle,trav1,nelem,nelmax,ndp,texte,nbfond,sorleo,color,
     & nsfond,nvarin,nvarou,maille)
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: NDP,NELEM,NELMAX,NBFOND,NVARIN
      INTEGER, INTENT(INOUT) :: NSFOND,NVAROU
      INTEGER, INTENT(INOUT) :: TRAV1(nelem,ndp)
      INTEGER, INTENT(IN) :: IKLE(nelmax,ndp)
      CHARACTER(LEN=32), INTENT(INOUT) :: TEXTE(26)
      CHARACTER(LEN=9), INTENT(IN) :: MAILLE
      LOGICAL, INTENT(INOUT) :: SORLEO(26),COLOR
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE projec
     &(x , y , zf , xrelv , yrelv , zrelv , nbat ,
     & nbor , nptfr , nfond , nbfond , fond , dm ,
     & fontri , cortri , maille,ngeo,kp1bor)
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: NPTFR, NBAT, NBFOND
      INTEGER, INTENT(IN) :: NFOND(*) , NBOR(nptfr,2)
      INTEGER, INTENT(IN) :: NGEO, KP1BOR(nptfr)
      DOUBLE PRECISION, INTENT(INOUT) :: XRELV(*) , YRELV(*) , ZRELV(*)
      DOUBLE PRECISION, INTENT(IN) :: X(*) , Y(*) , DM
      DOUBLE PRECISION, INTENT(IN) :: CORTRI
      DOUBLE PRECISION, INTENT(INOUT) :: ZF(*)
      CHARACTER(LEN=72), INTENT(IN) :: FOND(nbfond)
      CHARACTER(LEN=9), INTENT(IN) ::  MAILLE
      LOGICAL, INTENT(IN) :: FONTRI
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE remail
     &(ikle,ncolor,new,x,y,epsi,ndp,npoin,nelem,nelmax)
      IMPLICIT NONE
!
      INTEGER, INTENT(IN)    ::  NDP , NELMAX
      INTEGER, INTENT(INOUT) ::  NPOIN, NELEM
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4) , NEW(*) , NCOLOR(*)
      DOUBLE PRECISION, INTENT(INOUT) :: X(*) , Y(*), EPSI
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE renum
     &(x,y,w,ikle,nbor,trav1,trav2,tab,ncolor,color,nptfr)
      USE declarations_stbtel, ONLY: nelmax
      IMPLICIT NONE
!
      DOUBLE PRECISION, INTENT(INOUT) :: X(*) , Y(*) , W(*)
      INTEGER, INTENT(INOUT) :: TRAV1(*) , TRAV2(*)
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,3) , NCOLOR(*) , NBOR(*)
      INTEGER, INTENT(INOUT) :: TAB(*)
      LOGICAL, INTENT(IN) :: COLOR
      INTEGER, INTENT(IN) :: NPTFR
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE shufle
     &(ikle,x)
      USE declarations_stbtel
      IMPLICIT NONE
!
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4)
      DOUBLE PRECISION, INTENT(IN) :: X(*)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE stbtel
     &( npoin1 , typele , nfond , precis , nsfond , titre)
      IMPLICIT NONE
!
      INTEGER, INTENT(INOUT) :: NPOIN1
      CHARACTER(LEN=11), INTENT(INOUT) :: TYPELE
      INTEGER, INTENT(IN) :: NFOND(5)
      CHARACTER(LEN=6), INTENT(INOUT) :: PRECIS
      INTEGER, INTENT(INOUT) :: NSFOND
      CHARACTER(LEN=80), INTENT(INOUT) :: TITRE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE surcon
     &(x,y,ikle,ipo,nbor,nptfr,ncolor,ifabor,color)
      USE declarations_stbtel, ONLY: nelmax
      IMPLICIT NONE
!
      DOUBLE PRECISION, INTENT(INOUT) :: X(*) , Y(*)
      INTEGER, INTENT(INOUT) :: NBOR(*) , IKLE(nelmax,4) , NCOLOR(*)
      INTEGER, INTENT(INOUT) :: IFABOR(nelmax,*) , IPO(*)
      LOGICAL, INTENT(INOUT) :: COLOR
      INTEGER, INTENT(IN) :: NPTFR
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE verifi
     &(x,y,ikle,ncolor,trav1,epsi,mesh,ndp,npoin,nelem,nelmax)
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) ::  MESH , NDP , NELMAX
      INTEGER, INTENT(INOUT) :: NPOIN, NELEM
      INTEGER, INTENT(INOUT) :: IKLE(nelmax,4) , NCOLOR(*)
      INTEGER, INTENT(INOUT) :: TRAV1(*)
!
      DOUBLE PRECISION, INTENT(INOUT) :: X(*) , Y(*)
      DOUBLE PRECISION, INTENT(INOUT) :: EPSI
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                        SUBROUTINE verifs
     &(ifabor,ikle,trav1,nptfr,numpb,nbpb)
      USE declarations_stbtel
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: IFABOR(nelmax,*) , IKLE(nelmax,4)
      INTEGER, INTENT(INOUT) :: TRAV1(npoin,2)
      INTEGER, INTENT(INOUT) :: NPTFR
      INTEGER, INTENT(INOUT) :: NUMPB(100), NBPB
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                    SUBROUTINE writesellim
     &(nlim,lihbor,liubor,livbor,hbor,ubor,vbor,
     & chbord,nbor,npmax,nptfr)
      IMPLICIT NONE
      INTEGER, INTENT(IN)    :: NLIM
      INTEGER, INTENT(IN)    :: NPTFR
      INTEGER, INTENT(IN)    :: NPMAX
      INTEGER, INTENT(INOUT) :: LIUBOR(npmax),LIVBOR(npmax)
      INTEGER, INTENT(INOUT) :: LIHBOR(npmax)
      INTEGER, INTENT(INOUT) :: NBOR(npmax)
      DOUBLE PRECISION,  INTENT(INOUT) :: UBOR(npmax),VBOR(npmax)
      DOUBLE PRECISION,  INTENT(INOUT) :: HBOR(npmax),CHBORD(npmax)
      END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
                    SUBROUTINE lecsellim
     &(nlim,lihbor,liubor,livbor,hbor,ubor,vbor,
     & chbord,nbor,nptfr,nptfr2,ncolor)
      IMPLICIT NONE
      INTEGER, INTENT(IN)    :: NLIM
      INTEGER, INTENT(IN)    :: NPTFR
      INTEGER, INTENT(INOUT) :: LIUBOR(nptfr),LIVBOR(nptfr)
      INTEGER, INTENT(INOUT) :: LIHBOR(nptfr)
      INTEGER, INTENT(INOUT) :: NBOR(nptfr)
      INTEGER, INTENT(OUT) :: NPTFR2
      DOUBLE PRECISION,  INTENT(INOUT) :: UBOR(nptfr,2),VBOR(nptfr,2)
      DOUBLE PRECISION,  INTENT(INOUT) :: HBOR(nptfr),CHBORD(nptfr)
      INTEGER, INTENT(INOUT) :: NCOLOR(nptfr)
      END SUBROUTINE lecsellim
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      END MODULE interface_stbtel