ADFirstAidKit/ampi/ampif.h

b4daa24319 Shre*0001 !##########################################################
                0002 !# This file is part of the AdjoinableMPI library         #
                0003 !# released under the MIT License.                        #
                0004 !# The full COPYRIGHT notice can be found in the top      #
                0005 !# level directory of the AdjoinableMPI distribution.     #
                0006 !##########################################################
                0007
                0008        include 'mpif.h'
                0009
                0010        INTEGER AMPI_ACTIVE
                0011        PARAMETER (AMPI_ACTIVE=1)
                0012
                0013        INTEGER AMPI_TO_RECV
                0014        PARAMETER (AMPI_TO_RECV=0)
                0015        INTEGER AMPI_FROM_SEND
                0016        PARAMETER (AMPI_FROM_SEND=1)
                0017        INTEGER AMPI_TO_IRECV_WAIT
                0018        PARAMETER(AMPI_TO_IRECV_WAIT=2)
                0019        INTEGER AMPI_TO_IRECV_WAITALL
                0020        PARAMETER(AMPI_TO_IRECV_WAITALL=3)
                0021        INTEGER AMPI_FROM_ISEND_WAIT
                0022        PARAMETER(AMPI_FROM_ISEND_WAIT=4)
                0023        INTEGER AMPI_FROM_ISEND_WAITALL
                0024        PARAMETER(AMPI_FROM_ISEND_WAITALL=5)
                0025        INTEGER AMPI_FROM_BSEND
                0026        PARAMETER(AMPI_FROM_BSEND=6)
                0027        INTEGER AMPI_FROM_RSEND
                0028        PARAMETER(AMPI_FROM_RSEND=7)
                0029 ! The following commented out because of clash with Fortran AMPI subroutine names
                0030 !       INTEGER AMPI_ISEND
                0031 !       PARAMETER(AMPI_ISEND=8)
                0032 !       INTEGER AMPI_IRECV
                0033 !       PARAMETER(AMPI_IRECV=9)
                0034 !       INTEGER AMPI_WAIT
                0035 !       PARAMETER(AMPI_WAIT=10)
                0036
                0037        COMMON /ACTIVE_TYPES/ AMPI_ADOUBLE_PRECISION, AMPI_AREAL
                0038
                0039        INTEGER AMPI_ADOUBLE_PRECISION, AMPI_AREAL
                0040
                0041        EXTERNAL AMPI_INIT_NT, AMPI_COMM_RANK, AMPI_FINALIZE_NT
                0042        EXTERNAL ADTOOL_AMPI_TURN
                0043        EXTERNAL AMPI_SEND, AMPI_RECV
                0044        EXTERNAL AMPI_ISEND, AMPI_IRECV, AMPI_WAIT
                0045        EXTERNAL AMPI_BARRIER, AMPI_REDUCE
                0046        EXTERNAL TLS_AMPI_SEND, TLS_AMPI_RECV
                0047        EXTERNAL TLS_AMPI_ISEND, TLS_AMPI_IRECV, TLS_AMPI_WAIT
                0048        EXTERNAL TLS_AMPI_BARRIER, TLS_AMPI_REDUCE
                0049        EXTERNAL FW_AMPI_SEND, FW_AMPI_RECV
                0050        EXTERNAL FW_AMPI_ISEND, FW_AMPI_IRECV, FW_AMPI_WAIT
                0051        EXTERNAL FW_AMPI_BARRIER, FWS_AMPI_REDUCE
                0052        EXTERNAL BW_AMPI_SEND, BW_AMPI_RECV
                0053        EXTERNAL BW_AMPI_ISEND, BW_AMPI_IRECV, BW_AMPI_WAIT
                0054        EXTERNAL BW_AMPI_BARRIER, BWS_AMPI_REDUCE