! -*- fortran -*-
-! Copyright (c) 2010, 2012-2014. The SimGrid Team.
+! Copyright (c) 2010-2019. The SimGrid Team.
! All rights reserved.
! This program is free software; you can redistribute it and/or modify it
! under the terms of the license (GNU LGPL) which comes with this package.
! SMPI's Fortran 77 include file
-
+@MODULE_MPIF_IN@
integer MPI_THREAD_SINGLE, MPI_THREAD_FUNNELED
integer MPI_THREAD_SERIALIZED, MPI_THREAD_MULTIPLE
parameter(MPI_THREAD_SINGLE=0)
parameter(MPI_SOURCE=1)
parameter(MPI_TAG=2)
parameter(MPI_ERROR=3)
- parameter(MPI_VERSION=2)
- parameter(MPI_SUBVERSION=2)
+ parameter(MPI_VERSION=3)
+ parameter(MPI_SUBVERSION=1)
parameter(MPI_LOCK_EXCLUSIVE=1)
parameter(MPI_LOCK_SHARED=2)
integer MPI_MODE_NOSTORE, MPI_MODE_NOPUT, MPI_MODE_NOPRECEDE
integer MPI_COMM_NULL_COPY_FN, MPI_COMM_NULL_DELETE_FN
parameter(MPI_COMM_NULL_COPY_FN =0)
parameter(MPI_COMM_NULL_DELETE_FN =0)
- integer MPI_COMM_NULL_DUP_FN, MPI_COMM_DUP_FN
- parameter(MPI_COMM_NULL_DUP_FN =0)
- parameter(MPI_COMM_DUP_FN =0)
- integer MPI_WIN_NULL_COPY_FN, MPI_WIN_NULL_DELETE_FN
- parameter(MPI_WIN_NULL_COPY_FN =0)
+ integer MPI_COMM_DUP_FN
+ parameter(MPI_COMM_DUP_FN =1)
+ integer MPI_WIN_NULL_DELETE_FN
parameter(MPI_WIN_NULL_DELETE_FN =0)
- integer MPI_WIN_DUP_FN
- parameter(MPI_WIN_DUP_FN =0)
+ integer MPI_TYPE_NULL_COPY_FN, MPI_TYPE_NULL_DELETE_FN
+ parameter(MPI_TYPE_NULL_COPY_FN =0)
+ parameter(MPI_TYPE_NULL_DELETE_FN =0)
+ integer MPI_TYPE_DUP_FN
+ parameter(MPI_TYPE_DUP_FN =1)
integer MPI_ROOT, MPI_COMM_TYPE_SHARED
parameter(MPI_ROOT=0)
! This should be equal to the number of int fields in MPI_Status
integer MPI_STATUS_SIZE
- parameter(MPI_STATUS_SIZE=4)
+ parameter(MPI_STATUS_SIZE=5)
integer MPI_INTEGER_KIND
parameter(MPI_INTEGER_KIND=4)
- integer MPI_IN_PLACE
- parameter(MPI_IN_PLACE=-100)
- integer MPI_BOTTOM
- parameter(MPI_BOTTOM=-200)
- integer MPI_STATUS_IGNORE
- parameter(MPI_STATUS_IGNORE=-300)
- integer MPI_STATUSES_IGNORE
- parameter(MPI_STATUSES_IGNORE=-400)
-
+ external MPI_IN_PLACE, MPI_BOTTOM
+ external MPI_STATUS_IGNORE, MPI_STATUSES_IGNORE
integer MPI_BYTE, MPI_CHARACTER, MPI_LOGICAL
integer MPI_INTEGER, MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4
parameter(MPI_WIN_DISP_UNIT=-3)
! These IDs have to be unique, consecutive
-! and ordered as in smpi_f77.cpp.
+! and ordered as in smpi_f77.cpp.
parameter(MPI_COMM_WORLD=0)
parameter(MPI_BYTE=1)
external MPI_BCAST, MPI_BARRIER, MPI_REDUCE, MPI_ALLREDUCE
external MPI_SCATTER, MPI_GATHER, MPI_ALLGATHER, MPI_SCAN
external MPI_ALLTOALL, MPI_GATHERV, MPI_SENDRECV
+ external MPI_WIN_DUP_FN, MPI_WIN_NULL_COPY_FN
external MPI_WTIME
external MPI_WTICK
double precision MPI_WTIME
double precision MPI_WTICK
-
- external smpi_execute_flops
- external smpi_execute
- external smpi_get_host_power_peak_at
- external smpi_get_host_current_power_peak
- external smpi_get_host_nb_pstates
- external smpi_set_host_pstate
- external smpi_get_host_consumed_energy
-
- double precision smpi_get_host_power_peak_at
- double precision smpi_get_host_current_power_peak
- integer smpi_get_host_nb_pstates
- double precision smpi_get_host_consumed_energy
+@MODULE_MPIF_OUT@