interface_artemis.f

Go to the documentation of this file.

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!                  INTERFACES FOR ARTEMIS SUBROUTINES
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!
!#######################################################################
!
      MODULE interface_artemis
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief_def
!
!-----------------------------------------------------------------------
!
!     DEFINES INTERFACES
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE berkho(LT)
      USE bief_def
      IMPLICIT NONE
      INTEGER, INTENT(IN) :: LT
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcfw
     &(i,h,k,hmu,npoin,omega,grav,visco,
     & diam90,diam50,mvsed,mveau,
     & regido,ricoef,entreg,entrug,ffw)
      USE bief_def
      IMPLICIT NONE
      INTEGER I, NPOIN, REGIDO
      DOUBLE PRECISION K(npoin)
      DOUBLE PRECISION HMU(npoin),H(npoin),GRAV,OMEGA
      DOUBLE PRECISION VISCO, DIAM90, DIAM50,MVSED
      DOUBLE PRECISION MVEAU, RICOEF,FFW
      LOGICAL ENTREG,ENTRUG
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcqb
     &(q1,q2,q3)
      IMPLICIT NONE
      DOUBLE PRECISION Q1,Q2,Q3
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
!      INTERFACE
!        SUBROUTINE CALDIR()
!       USE BIEF_DEF
!       IMPLICIT NONE
!        END SUBROUTINE
!      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE caltetap(TETA,XSGBOR,YSGBOR,ADIR,NPTFR)
      USE bief_def
      IMPLICIT NONE
      INTEGER                      :: NPTFR
      DOUBLE PRECISION, INTENT(IN) :: XSGBOR(nptfr,4),YSGBOR(nptfr,4)
      DOUBLE PRECISION TETA(nptfr),ADIR(nptfr)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE cntpre
     &(dam,npoin,ipreco,iprec2)
      IMPLICIT NONE
      INTEGER, INTENT(IN) :: NPOIN
      INTEGER, INTENT(INOUT) :: IPRECO, IPREC2
      DOUBLE PRECISION, INTENT(IN) :: DAM(npoin)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE dirale
     &(dale,expos,tetah,tetmin,tetmax,
     & ndale)
      USE bief_def
      IMPLICIT NONE
      INTEGER NDALE
      DOUBLE PRECISION DALE(ndale)
      DOUBLE PRECISION EXPOS,TETAH,TETMIN,TETMAX
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE dismoy
     &(npoin,nelem,x,y,ikle,k,lishho)
      IMPLICIT NONE
      INTEGER NPOIN,NELEM,LISHHO
      INTEGER IKLE(nelem,*)
      DOUBLE PRECISION X(npoin),Y(npoin),K(npoin)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE entart
     &(ititre,x,nbr,nbrtot,alemon,alemul,balaye)
      IMPLICIT NONE
      INTEGER ITITRE,NBR,NBRTOT
      DOUBLE PRECISION X
      LOGICAL ALEMON,ALEMUL,BALAYE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        DOUBLE PRECISION FUNCTION fcte1(KH)
        IMPLICIT NONE
        DOUBLE PRECISION, INTENT(IN) :: KH
        END FUNCTION
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        DOUBLE PRECISION FUNCTION fcte2(KH)
        IMPLICIT NONE
        DOUBLE PRECISION, INTENT(IN) :: KH
        END FUNCTION
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE fwspec
     &(fw,fwcoef,x,y,npoin,prive,zf)
      USE bief_def
      IMPLICIT NONE
      INTEGER NPOIN
      DOUBLE PRECISION FW(npoin),X(npoin),Y(npoin)
      DOUBLE PRECISION ZF(npoin),FWCOEF
      TYPE(bief_obj) :: PRIVE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE user_fwspec
     &(fw,fwcoef,x,y,npoin,prive,zf)
      USE bief_def
      IMPLICIT NONE
      INTEGER NPOIN
      DOUBLE PRECISION FW(npoin),X(npoin),Y(npoin)
      DOUBLE PRECISION ZF(npoin),FWCOEF
      TYPE(bief_obj) :: PRIVE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE lecdon_artemis
     &(file_desc,path,ncar,
     & cas_file,dico_file)
        USE declarations_special
        IMPLICIT NONE
!
!
      CHARACTER(LEN=PATH_LEN), INTENT(INOUT) :: FILE_DESC(4,maxkeyword)
      INTEGER, INTENT(IN)               :: NCAR
      CHARACTER(LEN=PATH_LEN), INTENT(IN)    :: PATH
      CHARACTER(LEN=PATH_LEN), INTENT(IN)    :: DICO_FILE
      CHARACTER(LEN=PATH_LEN), INTENT(IN)    :: CAS_FILE
!
        END SUBROUTINE
      END INTERFACE

!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE nomvar_artemis
     &(texte,textpr,mnemo)
      USE declarations_artemis, ONLY : maxvar
      IMPLICIT NONE
      CHARACTER(LEN=32):: TEXTE(maxvar),TEXTPR(maxvar)
      CHARACTER(LEN=8) :: MNEMO(maxvar)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE pentco(II)
      USE bief_def
      IMPLICIT NONE
      INTEGER, INTENT(IN) :: II
        END SUBROUTINE
      END INTERFACE
!
!
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE perale
     &(pale,gamma,perpic,npale,pmin,pmax)
      USE bief_def
      IMPLICIT NONE
      INTEGER NPALE
      DOUBLE PRECISION PALE(npale)
      DOUBLE PRECISION PERPIC,GAMMA,PMIN,PMAX
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE radia1(LISHHO)
      USE bief_def
      IMPLICIT NONE
      INTEGER LISHHO
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE radia2(LISHHO)
      USE bief_def
      IMPLICIT NONE
      INTEGER LISHHO
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        DOUBLE PRECISION FUNCTION spd(TETA)
      IMPLICIT NONE
      DOUBLE PRECISION TETA
        END FUNCTION
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        DOUBLE PRECISION FUNCTION spe(F)
      IMPLICIT NONE
      DOUBLE PRECISION F
        END FUNCTION
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        DOUBLE PRECISION FUNCTION stwc1(F,DIR,SPEC,I)
        USE bief_def, ONLY: spectrum
        USE declarations_artemis
        USE declarations_special
        IMPLICIT NONE
        TYPE(spectrum)   , INTENT(IN) :: SPEC
        DOUBLE PRECISION F,DIR
        INTEGER I
        END FUNCTION
      END INTERFACE
!
      INTERFACE
        SUBROUTINE stwc2
     &(imin,imax,n,dir2,sdir)
        USE bief_def, ONLY: spectrum
        USE declarations_artemis
        USE declarations_special
        IMPLICIT NONE
        INTEGER :: IMIN,IMAX,N
        DOUBLE PRECISION :: SDIR(n),DIR2(n)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE utimp_art
      IMPLICIT NONE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE user_utimp_art
      IMPLICIT NONE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE allspec
     &(spec,nom)
        USE declarations_artemis
        IMPLICIT NONE
        TYPE(spectrum)   , INTENT(INOUT)        :: SPEC
        CHARACTER(LEN=6) , INTENT(IN)           :: NOM
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE user_art_corfon
      IMPLICIT NONE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE user_borh
      IMPLICIT NONE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE user_condih
      IMPLICIT NONE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE user_condih_particular
      IMPLICIT NONE
        END SUBROUTINE
      END INTERFACE
!
!=======================================================================
!
      END MODULE interface_artemis
!
!#######################################################################
!