interface_parallel.f

Go to the documentation of this file.

!                   *************************
                    MODULE interface_parallel
!                   *************************
!
!
!***********************************************************************
! PARALLEL VERSION 7.0                                  31/07/2012
!***********************************************************************
!
!brief    INTERFACES OF PARALLEL LIBRARY PUBLIC SUBROUTINES
!+
!
!history  J-M HERVOUET (LNHE)
!+        31/07/2012
!+        V6P2
!+   Original version.
!
!history  J-M HERVOUET (LNHE)
!+        09/05/2014
!+        V7P0
!+   Adding MPI communications by integers.
!
!history  R.NHEILI (Univerte de Perpignan, DALI)
!+        24/02/2016
!+        V7P3
!+      Adding compensation in the sum from the processors
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
#if defined BOGUS
      ! So scan detect overloaded funtion
      CALL p_imax
      CALL p_dmax
      CALL p_imin
      CALL p_dmin
      CALL p_isum
      CALL p_dsum
      CALL mpi_address1
      CALL mpi_address2
      CALL mpi_address3
      CALL p_imax_array
      CALL p_dmax_array
      CALL p_mpi_alltoallv_i
      CALL p_mpi_alltoallv_oil
      CALL p_mpi_alltoallv_alg
      CALL p_mpi_alltoallv_charac
      CALL p_dread
      CALL p_iread
      CALL p_ireadi8
      CALL p_ireadi
      CALL p_dwrit
      CALL p_iwrit
      CALL p_iwriti8
      CALL p_iwriti
#endif
!
      INTERFACE
!
!-----------------------------------------------------------------------
!
!     DEFINITION OF INTERFACES
!
      SUBROUTINE p_init(CHAINE,NCAR,IPID,NCSIZE)
        USE declarations_special
        IMPLICIT NONE
        INTEGER, INTENT(OUT)            :: NCAR,IPID,NCSIZE
        CHARACTER(LEN=PATH_LEN), INTENT(OUT) :: CHAINE
      END SUBROUTINE
!
      SUBROUTINE p_exit
        IMPLICIT NONE
      END SUBROUTINE
!
      DOUBLE PRECISION FUNCTION p_dsumerr(PARTIAL)
        IMPLICIT NONE
        DOUBLE PRECISION, INTENT(IN) :: PARTIAL(2)
      END FUNCTION
!
      SUBROUTINE p_dmin_array(MYPART,N,VALUES)
        IMPLICIT NONE
        INTEGER, INTENT(IN) :: N
        DOUBLE PRECISION, INTENT(IN) :: MYPART(n)
        DOUBLE PRECISION, INTENT(IN) :: VALUES(n)
      END SUBROUTINE
!
      SUBROUTINE p_isum_array
     &(send_buffer, recv_buffer, ncount, ierr)
        IMPLICIT NONE
        INTEGER, INTENT(IN)  :: NCOUNT
        INTEGER, INTENT(IN)  :: SEND_BUFFER(ncount)
        INTEGER, INTENT(OUT) :: RECV_BUFFER(ncount)
        INTEGER, INTENT(OUT) :: IERR
      END SUBROUTINE
!
      SUBROUTINE p_mpi_alltoall
     &(send_buffer,nsend,send_datyp,recv_buffer,nrecv,recv_datyp,
     & ierr)
        IMPLICIT NONE
        INTEGER, INTENT(IN)  :: SEND_BUFFER(*),NSEND,SEND_DATYP,NRECV
        INTEGER, INTENT(IN)  :: RECV_DATYP
        INTEGER, INTENT(OUT) :: RECV_BUFFER(*),IERR
      END SUBROUTINE
!
      SUBROUTINE p_wait_paraco(IBUF,NB)
        IMPLICIT NONE
        INTEGER,INTENT(INOUT) :: IBUF(*)
        INTEGER,INTENT(IN)    :: NB
      END SUBROUTINE
!
      SUBROUTINE p_allgatherv_i
     &(send_buffer, send_count, recv_buffer,
     & recv_count, displs, ierr)
        IMPLICIT NONE
        INTEGER, INTENT(IN)    :: SEND_BUFFER(*)
        INTEGER, INTENT(IN)    :: SEND_COUNT
        INTEGER, INTENT(INOUT)   :: RECV_BUFFER(*)
        INTEGER, INTENT(IN)    :: RECV_COUNT(*)
        INTEGER, INTENT(IN)    :: DISPLS(*)
        INTEGER, INTENT(OUT)   :: IERR
      END SUBROUTINE
!
      REAL*8 FUNCTION p_time()
        IMPLICIT NONE
      END FUNCTION
!
      SUBROUTINE p_sync
        IMPLICIT NONE
      END SUBROUTINE
!
      SUBROUTINE p_mpi_type_create_struct
     &(nblock,nelem,displ,elem_type,new_datatype,ierr)
        USE declarations_parallel
        IMPLICIT NONE
        INTEGER, INTENT(IN)                           :: NBLOCK
        INTEGER, INTENT(OUT)                          :: IERR
        INTEGER, INTENT(OUT)                          :: NEW_DATATYPE
        INTEGER, INTENT(IN)                           :: NELEM(nblock)
        INTEGER, INTENT(IN)                         :: ELEM_TYPE(nblock)
        INTEGER(KIND=MY_ADDRESS_KIND), INTENT(INOUT) :: DISPL(nblock)
      END SUBROUTINE
!
      SUBROUTINE p_mpi_type_commit(DATA_TYPE,IERR)
        IMPLICIT NONE
        INTEGER, INTENT(INOUT)  :: DATA_TYPE
        INTEGER, INTENT(OUT) :: IERR
      END SUBROUTINE
!
      SUBROUTINE p_mpi_type_free(DATA_TYPE,IERR)
        IMPLICIT NONE
        INTEGER, INTENT(INOUT)  :: DATA_TYPE
        INTEGER, INTENT(OUT) :: IERR
      END SUBROUTINE
!
      SUBROUTINE org_charac_type_oil
     &(oil_charac)
        IMPLICIT NONE
        INTEGER, INTENT(INOUT) :: OIL_CHARAC
      END SUBROUTINE
!
      SUBROUTINE org_charac_type_alg
     &(alg_char,nomb)
        IMPLICIT NONE
        INTEGER, INTENT(INOUT) :: ALG_CHAR
        INTEGER, INTENT(IN)    :: NOMB
      END SUBROUTINE
!
      SUBROUTINE org_charac_type1(NOMB,CHARACTERISTIC)
        IMPLICIT NONE
        INTEGER, INTENT(IN)    :: NOMB
        INTEGER, INTENT(INOUT) :: CHARACTERISTIC
      END SUBROUTINE
!
      SUBROUTINE p_mpi_type_get_extent
     &(datatype,lower_bound,extent,ierr)
        USE declarations_parallel
        IMPLICIT NONE
        INTEGER(KIND=MY_ADDRESS_KIND), INTENT(INOUT)::
     &                                           lower_bound,extent
        INTEGER, INTENT(IN)                   :: DATATYPE
        INTEGER, INTENT(OUT)                  :: IERR
      END SUBROUTINE
      !
      ! Unused functions
      !
      SUBROUTINE p_lsum(IARG1,LARG2)
        IMPLICIT NONE
        INTEGER, INTENT(IN) :: IARG1
        LOGICAL, DIMENSION(IARG1), INTENT(INOUT) :: LARG2
      END SUBROUTINE
!
      SUBROUTINE p_mail(CHAINE,NCAR)
        USE declarations_special
        IMPLICIT NONE
        INTEGER, INTENT(IN)               :: NCAR
        CHARACTER(LEN=PATH_LEN), INTENT(INOUT) :: CHAINE
      END SUBROUTINE
!
!
!------------------------------------------------------------------------
!
      END INTERFACE

      INTERFACE p_max
        DOUBLE PRECISION FUNCTION p_dmax(MYPART)
          IMPLICIT NONE
          DOUBLE PRECISION, INTENT(IN) :: MYPART
        END FUNCTION
!
        INTEGER FUNCTION p_imax(MYPART)
          IMPLICIT NONE
          INTEGER, INTENT(IN) :: MYPART
        END FUNCTION
      END INTERFACE

!
      INTERFACE p_max_array
        SUBROUTINE p_dmax_array(MYPART,N,VALUES)
          IMPLICIT NONE
          INTEGER, INTENT(IN) :: N
          DOUBLE PRECISION, INTENT(IN) :: MYPART(n)
          DOUBLE PRECISION, INTENT(IN) :: VALUES(n)
        END SUBROUTINE
!
        SUBROUTINE p_imax_array
     &  (send_buffer, recv_buffer, ncount, ierr)
          IMPLICIT NONE
          INTEGER, INTENT(IN)  :: NCOUNT
          INTEGER, INTENT(IN)  :: SEND_BUFFER(ncount)
          INTEGER, INTENT(OUT) :: RECV_BUFFER(ncount)
          INTEGER, INTENT(OUT) :: IERR
        END SUBROUTINE
      END INTERFACE

      INTERFACE p_min
        DOUBLE PRECISION FUNCTION p_dmin(MYPART)
          IMPLICIT NONE
          DOUBLE PRECISION, INTENT(IN) :: MYPART
        END FUNCTION
!
        INTEGER FUNCTION p_imin(MYPART)
          IMPLICIT NONE
          INTEGER, INTENT(IN) :: MYPART
        END FUNCTION
      END INTERFACE

      INTERFACE p_sum
        DOUBLE PRECISION FUNCTION p_dsum(MYPART)
          IMPLICIT NONE
          DOUBLE PRECISION, INTENT(IN) :: MYPART
        END FUNCTION
!
        INTEGER FUNCTION p_isum(MYPART)
          IMPLICIT NONE
          INTEGER, INTENT(IN) :: MYPART
        END FUNCTION
      END INTERFACE

      INTERFACE p_mpi_address
        SUBROUTINE p_mpi_address
     &  (location,address,ier)
          USE declarations_parallel
          IMPLICIT NONE
          INTEGER, INTENT(IN)                    :: LOCATION
          INTEGER, INTENT(OUT)                   :: IER
          INTEGER(KIND=MY_ADDRESS_KIND), INTENT(OUT) :: ADDRESS
        END SUBROUTINE
!
        SUBROUTINE p_mpi_address2
     &  (location,address,ier)
          USE declarations_parallel
          IMPLICIT NONE
          DOUBLE PRECISION, INTENT(IN)            :: LOCATION
          INTEGER, INTENT(OUT)                    :: IER
          INTEGER (KIND=MY_ADDRESS_KIND), INTENT(OUT) :: ADDRESS
        END SUBROUTINE
!
        SUBROUTINE p_mpi_address3
     &  (location,address,ier)
          USE declarations_parallel
          IMPLICIT NONE
          DOUBLE PRECISION, INTENT(IN)            :: LOCATION(*)
          INTEGER, INTENT(OUT)                    :: IER
          INTEGER (KIND=MY_ADDRESS_KIND), INTENT(OUT) :: ADDRESS
        END SUBROUTINE
      END INTERFACE

      INTERFACE p_mpi_alltoallv
        SUBROUTINE p_mpi_alltoallv_charac
     &  (send_buffer,nsend,send_displ,send_datyp,recv_buffer,nrecv,
     &   recv_displ,recv_datyp,ierr)
          USE declarations_parallel
          IMPLICIT NONE
          INTEGER, INTENT(IN)  :: NSEND(*),SEND_DISPL(*),
     &                            send_datyp,nrecv(*)
          INTEGER, INTENT(IN)  :: RECV_DISPL(*),RECV_DATYP
          INTEGER, INTENT(OUT) :: IERR
          TYPE(charac_type), INTENT(IN)  :: SEND_BUFFER(*)
          TYPE(charac_type), INTENT(INOUT) :: RECV_BUFFER(*)
        END SUBROUTINE
!
        SUBROUTINE p_mpi_alltoallv_alg
     &  (send_buffer,nsend,send_displ,send_datyp,recv_buffer,nrecv,
     &   recv_displ,recv_datyp,ierr)
        USE declarations_parallel
        IMPLICIT NONE
        INTEGER, INTENT(IN)  :: NSEND(*),SEND_DISPL(*)
        INTEGER, INTENT(IN)  :: SEND_DATYP,NRECV(*)
        INTEGER, INTENT(IN)  :: RECV_DISPL(*),RECV_DATYP
        INTEGER, INTENT(OUT) :: IERR
        TYPE(alg_type), INTENT(IN)  :: SEND_BUFFER(*)
        TYPE(alg_type), INTENT(INOUT) :: RECV_BUFFER(*)
        END SUBROUTINE
!
        SUBROUTINE p_mpi_alltoallv_i
     &  (send_buffer,nsend,send_displ,send_datyp,recv_buffer,nrecv,
     &   recv_displ,recv_datyp,ierr)
          IMPLICIT NONE
          INTEGER, INTENT(IN)  :: SEND_BUFFER(*),NSEND(*),SEND_DISPL(*)
          INTEGER, INTENT(IN)  :: SEND_DATYP,NRECV(*),RECV_DISPL(*)
          INTEGER, INTENT(IN)  :: RECV_DATYP
          INTEGER, INTENT(OUT) :: RECV_BUFFER(*),IERR
        END SUBROUTINE

        SUBROUTINE p_mpi_alltoallv_oil
     &  (send_buffer,nsend,send_displ,send_datyp,recv_buffer,nrecv,
     &   recv_displ,recv_datyp,ierr)
          USE declarations_parallel
          IMPLICIT NONE
          INTEGER, INTENT(IN)  :: NSEND(*),SEND_DISPL(*),SEND_DATYP,
     &                            nrecv(*)
          INTEGER, INTENT(IN)  :: RECV_DISPL(*),RECV_DATYP
          INTEGER, INTENT(OUT) :: IERR
          TYPE(oil_type), INTENT(IN)  :: SEND_BUFFER(*)
          TYPE(oil_type), INTENT(INOUT) :: RECV_BUFFER(*)
        END SUBROUTINE
!
      END INTERFACE

      INTERFACE p_read
        SUBROUTINE p_iread(BUFFER,N,BYTES,SOURCE,DATATYPE,IREQ)
          IMPLICIT NONE
          INTEGER, INTENT(IN)    :: N,BYTES,SOURCE,DATATYPE
          INTEGER, INTENT(INOUT) :: IREQ
          DOUBLE PRECISION, INTENT(INOUT) :: BUFFER(*)
        END SUBROUTINE
!
        SUBROUTINE p_ireadi(BUFFER,NVAL,SOURCE,ITAG,IREQ)
          IMPLICIT NONE
          INTEGER, INTENT(IN)    :: NVAL,SOURCE,ITAG
          INTEGER, INTENT(INOUT) :: IREQ
          INTEGER, INTENT(OUT) :: BUFFER(nval)
        END SUBROUTINE
!
        SUBROUTINE p_ireadi8(BUFFER,NVAL,SOURCE,ITAG,IREQ)
          USE declarations_special
          IMPLICIT NONE
          INTEGER, INTENT(IN)    :: NVAL,SOURCE,ITAG
          INTEGER, INTENT(INOUT) :: IREQ
          INTEGER(KIND=K8), INTENT(OUT) :: BUFFER(nval)
        END SUBROUTINE
!
        SUBROUTINE p_dread(BUFFER,N,BYTES,SOURCE,DATATYPE)
          IMPLICIT NONE
          INTEGER, INTENT(IN) :: N,BYTES,SOURCE,DATATYPE
          DOUBLE PRECISION, INTENT(INOUT) :: BUFFER(*)
        END SUBROUTINE
      END INTERFACE

      INTERFACE p_write

        SUBROUTINE p_iwrit(BUFFER,N,BYTES,DEST,ITAG,IREQ)
          IMPLICIT NONE
          INTEGER, INTENT(IN)    :: N,BYTES,DEST,ITAG
          INTEGER, INTENT(INOUT) :: IREQ
          DOUBLE PRECISION, INTENT(INOUT) :: BUFFER(*)
        END SUBROUTINE
!
        SUBROUTINE p_iwriti(BUFFER,NVAL,DEST,ITAG,IREQ)
          IMPLICIT NONE
          INTEGER, INTENT(IN)    :: NVAL,DEST,ITAG
          INTEGER, INTENT(INOUT) :: IREQ
          INTEGER, INTENT(IN) :: BUFFER(nval)
        END SUBROUTINE
!
        SUBROUTINE p_iwriti8(BUFFER,NVAL,DEST,ITAG,IREQ)
          USE declarations_special
          IMPLICIT NONE
          INTEGER, INTENT(IN)    :: NVAL,DEST,ITAG
          INTEGER, INTENT(INOUT) :: IREQ
          INTEGER(KIND=K8), INTENT(IN) :: BUFFER(nval)
        END SUBROUTINE
!
        SUBROUTINE p_dwrit(BUFFER,N,BYTES,DEST,TYPE)
          IMPLICIT NONE
          INTEGER, INTENT(IN)          :: N,BYTES,DEST,TYPE
          DOUBLE PRECISION, INTENT(IN) :: BUFFER(*)
        END SUBROUTINE
!
      END INTERFACE
!
!=======================================================================
!
      END MODULE interface_parallel