April 2015 - commits - mailman3.cels.anl.gov

[mpich] MPICH primary repository branch, master, updated. v3.2b1-76-g4309ba5
by noreply＠mpich.org 17 Apr '15

17 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "MPICH primary repository". The branch, master has been updated via 4309ba574293e7bdf2ec03224e4afa948a1e6fd9 (commit) via de659b676240a50e11ca3608ecdd5cc3fbe66ebb (commit) via d00ac6bfe06a31f1a345d20ec9bfaad1db68c091 (commit) via 4f3a05d0f2068c91929e0bfa7c672ece03793f7c (commit) via 1e2e1328c117aa6c0599dbf8815a93d763a2137a (commit) via e55cb7ffef51511fce711f3fab4c8300a8b3132b (commit) from 03bf17473d36d30bd5275d6df463b2038a1d1a19 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- http://git.mpich.org/mpich.git/commitdiff/4309ba574293e7bdf2ec03224e4afa948… commit 4309ba574293e7bdf2ec03224e4afa948a1e6fd9 Author: Junchao Zhang <jczhang(a)mcs.anl.gov> Date: Tue Apr 14 20:06:33 2015 -0500 Enhance F08 buildiface to auto-set int kinds of c_Ain/Count/Offset We now auto-generate mpi_c_interface_types.f90 Fixes #2196 Signed-off-by: Ken Raffenetti <raffenet(a)mcs.anl.gov> diff --git a/.gitignore b/.gitignore index 21ba8af..5c25ece 100644 --- a/.gitignore +++ b/.gitignore @@ -435,6 +435,8 @@ Makefile.am-stamp /src/binding/fortran/use_mpi_f08/pmpi_f08.f90 /src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.f90 /src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.f90.in +/src/binding/fortran/use_mpi_f08/mpi_c_interface_types.f90 +/src/binding/fortran/use_mpi_f08/mpi_c_interface_types.f90.in /src/binding/fortran/use_mpi_f08/wrappers_f/profiling/*.f90 diff --git a/configure.ac b/configure.ac index d3f5bfd..1dd4e30 100644 --- a/configure.ac +++ b/configure.ac @@ -6229,6 +6229,31 @@ if test "X$f08_works" = "Xyes"; then AC_SUBST(F08_CXX_FLOAT_COMPLEX) AC_SUBST(F08_CXX_DOUBLE_COMPLEX) AC_SUBST(F08_CXX_LONG_DOUBLE_COMPLEX) + + AS_CASE([$MPI_AINT], + [short], [F08_C_AINT="c_short"], + [int], [F08_C_AINT="c_int"], + [long], [F08_C_AINT="c_long"], + ['long long'], [F08_C_AINT="c_long_long"], + [AC_MSG_ERROR([unable to determine C MPI_AINT type in Fortran 2008])]) + + AS_CASE([$MPI_COUNT], + [short], [F08_C_COUNT="c_short"], + [int], [F08_C_COUNT="c_int"], + [long], [F08_C_COUNT="c_long"], + ['long long'], [F08_C_COUNT="c_long_long"], + [AC_MSG_ERROR([unable to determine C MPI_COUNT type in Fortran 2008])]) + + AS_CASE([$MPI_OFFSET], + [short], [F08_C_OFFSET="c_short"], + [int], [F08_C_OFFSET="c_int"], + [long], [F08_C_OFFSET="c_long"], + ['long long'], [F08_C_OFFSET="c_long_long"], + [AC_MSG_ERROR([unable to determine C MPI_OFFSET type in Fortran 2008])]) + + AC_SUBST(F08_C_AINT) + AC_SUBST(F08_C_COUNT) + AC_SUBST(F08_C_OFFSET) fi ######################################################################## @@ -6258,6 +6283,7 @@ AC_OUTPUT(Makefile \ src/binding/fortran/use_mpi/mpi_base.f90 \ src/binding/fortran/use_mpi/mpi_constants.f90 \ src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.f90 \ + src/binding/fortran/use_mpi_f08/mpi_c_interface_types.f90 \ src/packaging/pkgconfig/mpich.pc \ src/packaging/envmods/mpich.module \ src/env/mpixxx_opts.conf \ diff --git a/src/binding/fortran/use_mpi_f08/buildiface b/src/binding/fortran/use_mpi_f08/buildiface index 4dc0ef7..d869633 100755 --- a/src/binding/fortran/use_mpi_f08/buildiface +++ b/src/binding/fortran/use_mpi_f08/buildiface @@ -689,3 +689,72 @@ print $constants_fh "end module mpi_f08_compile_constants\n"; close($constants_fh); &ReplaceIfDifferent("mpi_f08_compile_constants.f90.in", "mpi_f08_compile_constants.f90.in.new"); + +# Stage 5: Generate mpi_c_interface_types.f90.in +# ===================================================================== +my $ctypes_file = "mpi_c_interface_types.f90.in.new"; +my $ctypes_fh; +open($ctypes_fh, ">", $ctypes_file) || die "Error: Could not open $ctypes_file, $!"; +print $ctypes_fh <<EOT; +! -*- Mode: Fortran; -*- +! +! (C) 2014 by Argonne National Laboratory. +! See COPYRIGHT in top-level directory. +! +! Module mpi_c_interface_types is a helper module used by the modules +! specifying c interfaces: +! +! mpi_c_interface_cdesc - interfaces for MPI functions with a descriptor argument +! mpi_c_interface_nobuf - interfaces for MPI functions with no choice argument +! +! MPICH C interface uses integer for handles and status type. +! It is not defined in the spec and not intended for end users. +!-------------------------------------------------------------- + +module mpi_c_interface_types + +use, intrinsic :: iso_c_binding + +implicit none + +integer,parameter :: c_Fint = KIND(0) + +integer,parameter :: c_Aint = \@F08_C_AINT\@ +integer,parameter :: c_Count = \@F08_C_COUNT\@ +integer,parameter :: c_Offset = \@F08_C_OFFSET\@ + +!============================================================= +! Kinds for handle types in C prototypes; should match mpi.h +!============================================================= + +integer,parameter :: c_Datatype = c_int +integer,parameter :: c_Comm = c_int +integer,parameter :: c_Group = c_int +integer,parameter :: c_Win = c_int +integer,parameter :: c_Op = c_int +integer,parameter :: c_Info = c_int +integer,parameter :: c_Errhandler = c_int +integer,parameter :: c_Request = c_int +integer,parameter :: c_Message = c_int +integer,parameter :: c_File = c_intptr_t + +!================================================ +! C struct for STATUS values; should match mpi.h +!================================================ + +! MPI_Status, with name changed to c_Status for internal disambiguation +! A.1.2 p 676 + +type, bind(c) :: c_Status + integer(c_int) :: count_lo + integer(c_int) :: count_hi_and_cancelled + integer(c_int) :: MPI_SOURCE + integer(c_int) :: MPI_TAG + integer(c_int) :: MPI_ERROR +end type c_Status + +end module mpi_c_interface_types +EOT + +close($ctypes_fh); +&ReplaceIfDifferent("mpi_c_interface_types.f90.in", "mpi_c_interface_types.f90.in.new"); diff --git a/src/binding/fortran/use_mpi_f08/mpi_c_interface_types.f90 b/src/binding/fortran/use_mpi_f08/mpi_c_interface_types.f90 deleted file mode 100644 index 19ecf72..0000000 --- a/src/binding/fortran/use_mpi_f08/mpi_c_interface_types.f90 +++ /dev/null @@ -1,83 +0,0 @@ -! -*- Mode: Fortran; -*- -! -! (C) 2014 by Argonne National Laboratory. -! See COPYRIGHT in top-level directory. -! -! mpich3 integer sizes for handles and status type -! -! Module mpi_c_interface_types is a helper module used by the modules -! specifying c interfaces: -! -! mpi_c_interface_cdesc - interfaces for MPI functions with a descriptor argument -! mpi_c_interface_nobuf - interfaces for MPI functions with no choice argument -! -! It is not defined in the spec and not intended for end users. -!-------------------------------------------------------------- - -module mpi_c_interface_types - -!========================= -! Kinds for native C types -!========================= - use,intrinsic :: iso_c_binding, only: c_int, c_long, c_long_long, & - c_ptr, c_double, C_NULL_PTR, & - c_char, c_intptr_t , c_sizeof -implicit none - -!============================================================= -! Kinds for integer types in C prototypes; should match mpi.h -!============================================================= - -! C types (with MPI_ => c_ for the internal names here) -! A.1.2 p 676 - -!Extracted from 'grep typedef mpi.h' -!typedef int MPI_Datatype; -!typedef int MPI_Comm; -!typedef int MPI_Group; -!typedef int MPI_Win; -!typedef int MPI_Op; -!typedef int MPI_Errhandler; -!typedef int MPI_Request; -!typedef int MPI_Message; -!typedef int MPI_Info; -!typedef long MPI_Aint; -!typedef int MPI_Fint; ! replaced above with compiler-flag dependent value -!typedef long long MPI_Count; -!typedef long long MPI_Offset; - -integer,parameter :: c_Fint = KIND(0) - -! TODO: need to automatically set these three parameters as in mpi.h.in -integer,parameter :: c_Aint = c_long -integer,parameter :: c_Count = c_long_long -integer,parameter :: c_Offset = c_long_long - -integer,parameter :: c_Datatype = c_int -integer,parameter :: c_Comm = c_int -integer,parameter :: c_Group = c_int -integer,parameter :: c_Win = c_int -integer,parameter :: c_Op = c_int -integer,parameter :: c_Info = c_int -integer,parameter :: c_Errhandler = c_int -integer,parameter :: c_Request = c_int -integer,parameter :: c_Message = c_int -integer,parameter :: c_file = c_intptr_t - -!================================================ -! C struct for STATUS values; should match mpi.h -!================================================ - -! MPI_Status, with name changed to c_Status for internal disambiguation -! A.1.2 p 676 - -type, bind(c) :: c_Status - integer(c_int) :: count_lo - integer(c_int) :: count_hi_and_cancelled - integer(c_int) :: MPI_SOURCE - integer(c_int) :: MPI_TAG - integer(c_int) :: MPI_ERROR -end type c_Status - -end module mpi_c_interface_types - http://git.mpich.org/mpich.git/commitdiff/de659b676240a50e11ca3608ecdd5cc3f… commit de659b676240a50e11ca3608ecdd5cc3fbe66ebb Author: Junchao Zhang <jczhang(a)mcs.anl.gov> Date: Tue Apr 14 16:00:40 2015 -0500 Enhance F08 buildiface to auto-set compile time constants We now auto-generate mpi_f08_compile_constants.f90 Fixes #2196 Signed-off-by: Ken Raffenetti <raffenet(a)mcs.anl.gov> diff --git a/.gitignore b/.gitignore index 72ae47d..21ba8af 100644 --- a/.gitignore +++ b/.gitignore @@ -433,6 +433,8 @@ Makefile.am-stamp # /src/binding/fortran/use_mpi_f08 /src/binding/fortran/use_mpi_f08/pmpi_f08.f90 +/src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.f90 +/src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.f90.in /src/binding/fortran/use_mpi_f08/wrappers_f/profiling/*.f90 diff --git a/configure.ac b/configure.ac index 7142068..d3f5bfd 100644 --- a/configure.ac +++ b/configure.ac @@ -6133,6 +6133,104 @@ if test "X$enable_shared" = "Xyes" ; then ) fi +# Set F08 versions of datatypes, which have type MPI_Datatype and are not integers anymore. +# If the correspoinding F77 datatypes exist, i.e., not MPI_DATATYPE_NULL, we simply use their +# integer value (already converted into decimal) in F08 counterparts. Otherwise, we use +# MPI_VAL value of F08 MPI_DATATYPE_NULL. +# We put the code at the end to ensure all F77 datatypes have been set. + +if test "X$f08_works" = "Xyes"; then + for type in INTEGER1 INTEGER2 INTEGER4 INTEGER8 INTEGER16 \ + REAL4 REAL8 REAL16 \ + COMPLEX8 COMPLEX16 COMPLEX32; do + eval f77typename=F77_$type + eval f77typevalue=\$$f77typename + if test "$f77typevalue" = MPI_DATATYPE_NULL ; then + eval F08_$type=MPI_DATATYPE_NULL%MPI_VAL + else + eval F08_$type=$f77typevalue + fi + done + AC_SUBST(F08_INTEGER1) + AC_SUBST(F08_INTEGER2) + AC_SUBST(F08_INTEGER4) + AC_SUBST(F08_INTEGER8) + AC_SUBST(F08_INTEGER16) + AC_SUBST(F08_REAL4) + AC_SUBST(F08_REAL8) + AC_SUBST(F08_REAL16) + AC_SUBST(F08_COMPLEX8) + AC_SUBST(F08_COMPLEX16) + AC_SUBST(F08_COMPLEX32) + + for type in PACKED UB LB BYTE \ + CHAR SIGNED_CHAR UNSIGNED_CHAR WCHAR SHORT \ + UNSIGNED_SHORT UNSIGNED INT LONG UNSIGNED_INT UNSIGNED_LONG \ + FLOAT DOUBLE LONG_DOUBLE LONG_LONG_INT \ + UNSIGNED_LONG_LONG LONG_LONG FLOAT_INT DOUBLE_INT \ + LONG_INT SHORT_INT "2INT" LONG_DOUBLE_INT \ + INT8_T INT16_T INT32_T INT64_T \ + UINT8_T UINT16_T UINT32_T UINT64_T \ + C_BOOL C_FLOAT_COMPLEX C_COMPLEX C_DOUBLE_COMPLEX C_LONG_DOUBLE_COMPLEX \ + AINT OFFSET COUNT \ + CXX_BOOL CXX_FLOAT_COMPLEX CXX_DOUBLE_COMPLEX CXX_LONG_DOUBLE_COMPLEX; do + eval f77typename=MPI_F77_$type + eval f77typevalue=\$$f77typename + if test "$f77typevalue" = MPI_DATATYPE_NULL ; then + eval F08_$type=MPI_DATATYPE_NULL%MPI_VAL + else + eval F08_$type=$f77typevalue + fi + done + AC_SUBST(F08_PACKED) + AC_SUBST(F08_UB) + AC_SUBST(F08_LB) + AC_SUBST(F08_BYTE) + AC_SUBST(F08_CHAR) + AC_SUBST(F08_SIGNED_CHAR) + AC_SUBST(F08_UNSIGNED_CHAR) + AC_SUBST(F08_WCHAR) + AC_SUBST(F08_SHORT) + AC_SUBST(F08_UNSIGNED_SHORT) + AC_SUBST(F08_UNSIGNED) + AC_SUBST(F08_INT) + AC_SUBST(F08_LONG) + AC_SUBST(F08_UNSIGNED_INT) + AC_SUBST(F08_UNSIGNED_LONG) + AC_SUBST(F08_FLOAT) + AC_SUBST(F08_DOUBLE) + AC_SUBST(F08_LONG_DOUBLE) + AC_SUBST(F08_LONG_LONG_INT) + AC_SUBST(F08_UNSIGNED_LONG_LONG) + AC_SUBST(F08_LONG_LONG) + AC_SUBST(F08_FLOAT_INT) + AC_SUBST(F08_DOUBLE_INT) + AC_SUBST(F08_LONG_INT) + AC_SUBST(F08_SHORT_INT) + AC_SUBST(F08_2INT) + AC_SUBST(F08_LONG_DOUBLE_INT) + AC_SUBST(F08_INT8_T) + AC_SUBST(F08_INT16_T) + AC_SUBST(F08_INT32_T) + AC_SUBST(F08_INT64_T) + AC_SUBST(F08_UINT8_T) + AC_SUBST(F08_UINT16_T) + AC_SUBST(F08_UINT32_T) + AC_SUBST(F08_UINT64_T) + AC_SUBST(F08_C_BOOL) + AC_SUBST(F08_C_FLOAT_COMPLEX) + AC_SUBST(F08_C_COMPLEX) + AC_SUBST(F08_C_DOUBLE_COMPLEX) + AC_SUBST(F08_C_LONG_DOUBLE_COMPLEX) + AC_SUBST(F08_AINT) + AC_SUBST(F08_OFFSET) + AC_SUBST(F08_COUNT) + AC_SUBST(F08_CXX_BOOL) + AC_SUBST(F08_CXX_FLOAT_COMPLEX) + AC_SUBST(F08_CXX_DOUBLE_COMPLEX) + AC_SUBST(F08_CXX_LONG_DOUBLE_COMPLEX) +fi + ######################################################################## if test -z "$pkgconfigdir" ; then @@ -6159,6 +6257,7 @@ AC_OUTPUT(Makefile \ src/binding/fortran/use_mpi/mpi_sizeofs.f90 \ src/binding/fortran/use_mpi/mpi_base.f90 \ src/binding/fortran/use_mpi/mpi_constants.f90 \ + src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.f90 \ src/packaging/pkgconfig/mpich.pc \ src/packaging/envmods/mpich.module \ src/env/mpixxx_opts.conf \ diff --git a/src/binding/fortran/use_mpi_f08/buildiface b/src/binding/fortran/use_mpi_f08/buildiface index ca70c1e..4dc0ef7 100755 --- a/src/binding/fortran/use_mpi_f08/buildiface +++ b/src/binding/fortran/use_mpi_f08/buildiface @@ -8,6 +8,7 @@ use warnings; use strict; use File::Basename; +my $debug = 0; my $cur_dir = "src/binding/fortran/use_mpi_f08"; my $wrappers_f_dir = "wrappers_f"; my $pmpi_dir = "wrappers_f/profiling"; @@ -200,3 +201,491 @@ EOT print $makefile_fh "include \$(top_srcdir)/src/binding/fortran/use_mpi_f08/wrappers_c/Makefile.mk\n\n"; print $makefile_fh "endif BUILD_F08_BINDING\n"; close($makefile_fh); + +# Stage 4: Generate mpi_f08_compile_constants.f90.in +# ===================================================================== + +# Some of the following variables and subroutines are adapted from F77 +# buildiface. They are used to parse files like mpi.h.in and mpio.h.in, +# store MPI definitions and print them in Fortran soure code. +# The main driver part follows the subroutines. + +my %mpidef; # Map MPI constant names to values +my %mpidefFile; +my $build_io = 1; +my %skipBlocks; + +my $constants_file = "mpi_f08_compile_constants.f90.in.new"; +my $constants_fh; # File handle of $constants_file + +# Skip ifndef'ed blocks +sub SkipCPPIfdef { + my $FD = $_[0]; + my $depth = 1; + + while (<$FD>) { + if (/^#\s*endif/) { + $depth--; + #print "Depth is now $depth\n"; + } + elsif (/^#\s*if/) { + $depth++; + #print "Depth is now $depth\n"; + } + #print "Skipping $_"; + if ($depth <= 0) { last; } + } + return 0; +} + +# Parse an interface file +sub ReadInterfaceForDefinitions { + my $prototype_file = $_[0]; + my $linecount = 0; + my $prototype_fh; + + open ($prototype_fh, "<$prototype_file" ) || die "Could not open $prototype_file\n"; + # + # First, find the values that we need + while (<$prototype_fh>) { + $linecount++; + # Remove any comments; check for problems + my $origline = $_; + while (/(.*)\/\*(.*?)\*\/(.*)/) { + my $removed = $2; + $_ = $1.$3; + if ($2 =~ /\/\*/) { + print STDERR "Error in processing comment within interface file $prototype_file in line $origline"; + } + } + + # We should also skip #ifndef xxx, for some xxx. + if (/^#\s*ifndef\s+(\w*)/) { + my $ndefname = $1; + if (defined($skipBlocks{$ndefname})) { + &SkipCPPIfdef($prototype_fh); + } + } + + # Use \S instead of [^\s]. See the comment above + if (/^\s*#\s*define\s+(MPI[X]*_[A-Za-z_0-9]*)\s+(\S+)(.*)/) { + my $name = $1; + my $val = $2; + my $remainder = $3; + print "Found definition of $name as $val\n" if $debug; + # If the name has some lower case letters in it, we + # need to skip it (e.g., for a define MPI_Comm_c2f...) + if ($name =~ /[a-z]/) { next; } + if (defined($mpidef{$name})) { + # We want to catch the case ((cast) value). In + # The above definition, the space will break the + # value into the cast (actually, "((cast)"). + my $fullval = "$val $remainder"; + if ($fullval =~ /$\(([^\($]*)\)\s*([^]*)\s*\)/) { + $val = "(($1)$2)"; + } + if ($mpidef{$name} ne $val) { + my $found = ""; + if (defined($mpidefFile{$name})) { + my $location = $mpidefFile{$name}; + $found = " found in $location"; + } + print STDERR "Attempting to redefine $name with a new value $val found in \ + $prototype_file:$linecount,\nusing original value of $mpidef{$name}$found\n"; + } + } else { + $mpidef{$name} = $val; + $mpidefFile{$name} = "$prototype_file:$linecount"; + } + } + elsif (/typedef\s+enum\s+[A-Za-z0-9_]*\s*{\s*(.*)/) { + # Allow a named type + # Eat until we find the closing right brace + my $enum_line = $1; + while (! ($enum_line =~ /}/)) { + my $newline = <$prototype_fh>; + $newline =~ s/\r*\n//; + $enum_line .= $newline; + $linecount++; + } + print "Handling enum $enum_line...\n" if $debug; + # Now process for names and values + while (($enum_line =~ /\s*(MPI[X]*_[A-Z_0-9]*)\s*=\s*([a-fx0-9]*)(.*)/)) { + $mpidef{$1} = $2; + $mpidefFile{$1} = "$prototype_file:$linecount"; + $enum_line = $3; + print "Defining $1 as $2\n" if $debug; + } + } + elsif (/enum\s+([A-Za-z0-9_]*)\s*{\s*(.*)/) { + # Allow a named type + # Eat until we find the closing right brace + my $enum_name = $1; + my $enum_line = $2; + while (! ($enum_line =~ /}/)) { + print "reading for $enum_name...\n" if $debug; + my $newline = <$prototype_fh>; + $newline =~ s/\r*\n//; + $enum_line .= $newline; + $linecount++; + } + # Now process for names and values + while (($enum_line =~ /\s*(MPI[X]*_[A-Z_0-9]*)\s*=\s*([a-fx0-9]*)(.*)/)) { + my $name = $1; + my $val = $2; + my $remainder = $3; + $mpidef{$name} = $val; + $mpidefFile{$name} = "$prototype_file:$linecount"; + $enum_line = $remainder; + print "Defining $name as $val\n" if $debug; + } + } + } # ~while (<$prototype_fh>) + close ($prototype_fh); +} + +# Print a Fortran parameter +sub print_param { + my $type = $_[0]; # type can be integer or other MPI_F08 types like MPI_Op + my $key = $_[1]; # MPI constants, like MPI_COMM_WORLD + my $value = $mpidef{$key}; + my $hexvalue = ""; + + if (!defined($value) || $value eq "") { + print STDERR "No value found for \"$key\"\n"; + return 0; + } + # Remove any casts + print "Input value for $key = $value\n" if $debug; + # Add a special case to for MPIX_* + if ($value =~ /$MPIX/) { + $value =~ s/\(MPIX_[A-Za-z0-9]*\s*$//; + print "cast removal: $value\n" if $debug; + # Remove any surrounding (MPI_REQUEST_NULL) + if ($value =~ /$\s*[A-Z_]*$/) { + $value =~ s/$\s*([A-Z_]*)\s*$/$1/; + print "paren removal: $value\n" if $debug; + } + } + if ($value =~ /$MPI/) { + $value =~ s/\(MPI_[A-Za-z0-9]*\s*$//; + print "cast removal: $value\n" if $debug; + } + # Remove any surrounding () around nubmers or placeholders like @MPI_COMPLEX@ + if ($value =~ /$\s*[-a-fx0-9\w@]*$/) { + $value =~ s/$\s*([-a-fx0-9\w@]*)\s*$/$1/; + print "paren removal: $value\n" if $debug; + } + # Convert hex to decimal + if ($value =~ /^0x[a-f\d]*/) { + $hexvalue = $value; # remember hex value for better output + $value = hex $value; + print "hex conversion: $value\n" if $debug; + } + + if ($type =~ /integer/) { + printf $constants_fh ("$type, parameter :: %-32s = %s", $key, $value); + } else { # Fortran derived data types + my $typestr = $type; + my $valuestr = $value; + $typestr = "type($type)"; + $valuestr = "$type($value)"; + printf $constants_fh ("%-31s :: %-19s = %s", "$typestr, parameter", $key, $valuestr); + } + + # Print the old hex value (if it was) as comments for readability + if ($hexvalue) { printf $constants_fh " ! $hexvalue"; } + printf $constants_fh "\n"; +} + + +# Replace old file with new file only if new file is different +# Otherwise, remove new filename +sub ReplaceIfDifferent { + my ($oldfilename,$newfilename) = @_; + my $rc = 1; + if (-s $oldfilename) { + $rc = system "cmp -s $newfilename $oldfilename"; + $rc >>= 8; # Shift right to get exit status + } + if ($rc != 0) { + # The files differ. Replace the old file + # with the new one + if (-s $oldfilename) { + print STDERR "Replacing $oldfilename\n"; + unlink $oldfilename; + } + else { + print STDERR "Creating $oldfilename\n"; + } + rename $newfilename, $oldfilename || die "Could not replace $oldfilename"; + } else { + unlink $newfilename; + } +} + + +# Main driver to generate mpi_f08_compile_constants.f90.in + +&ReadInterfaceForDefinitions("../../../include/mpi.h.in"); +if ( -s "../../../mpi/romio/include/mpio.h.in" && $build_io) { + %skipBlocks = ('HAVE_MPI_DARRAY_SUBARRAY' => 1, + 'HAVE_MPI_INFO' => 1, + 'MPICH' => 1); + &ReadInterfaceForDefinitions( "../../../mpi/romio/include/mpio.h.in" ); + %skipBlocks = (); +} else { + $build_io = 0; +} + +open($constants_fh, ">", $constants_file) || die "Error: Could not open $constants_file, $!"; +print $constants_fh <<EOT; +! -*- Mode: Fortran; -*- +! +! (C) 2015 by Argonne National Laboratory. +! See COPYRIGHT in top-level directory. +! + +module mpi_f08_compile_constants + +use,intrinsic :: iso_c_binding, only: c_int +use :: mpi_f08_types +use :: mpi_c_interface_types, only: c_Aint, c_Count, c_Offset + +!==================================================================== +! Make names brought in from other modules private if they should not +! be exposed in program units using this module +!==================================================================== + +! Make names from iso_c_binding private +private :: c_int + +! Make names from mpi_c_interface_types private +private :: c_Aint +private :: c_Count +private :: c_Offset + +EOT + +my $key; + +# version +print $constants_fh "\n! MPI version\n"; +&print_param("integer", "MPI_VERSION"); +&print_param("integer", "MPI_SUBVERSION"); + +# Error classes +print $constants_fh "\n! Error classes\n"; +$mpidef{"MPI_SUCCESS"} = 0; +&print_param("integer", "MPI_SUCCESS"); +my %errors; # To print error classes in ascending order for readability +foreach $key (keys(%mpidef)) { + my $val; + if ($key =~ /MPI_ERR_/) { + if ($mpidef{$key} =~ /^0x[a-f\d]*/) { $val = hex($mpidef{$key}); } + else { $val = $mpidef{$key}; } + $errors{$key} = $val; + } +} +foreach $key (sort { $errors{$a} <=> $errors{$b} } keys %errors) { + &print_param("integer", $key); +} + +# Predefined error handlers +print $constants_fh "\n! Predefined error handlers\n"; +foreach $key (qw(ERRORS_ARE_FATAL ERRORS_RETURN)) { + &print_param("MPI_Errhandler", "MPI_$key"); +} + +# Compare operations +print $constants_fh "\n! Compare operations\n"; +foreach $key (qw(IDENT CONGRUENT SIMILAR UNEQUAL)) { + &print_param("integer","MPI_$key"); +} + +# Window flavor and model +print $constants_fh "\n! Window flavors and models\n"; +foreach $key (qw(FLAVOR_CREATE FLAVOR_ALLOCATE FLAVOR_DYNAMIC FLAVOR_SHARED SEPARATE UNIFIED)) { + &print_param("integer","MPI_WIN_$key"); +} + +# Collective operations +print $constants_fh "\n! Collective operations\n"; +foreach $key (qw(MAX MIN SUM PROD LAND BAND LOR BOR LXOR + BXOR MINLOC MAXLOC REPLACE NO_OP)) +{ + &print_param("MPI_Op","MPI_$key"); +} + +# Objects +print $constants_fh "\n! Predefined comms and null handles\n"; +&print_param("MPI_Comm", "MPI_COMM_WORLD"); +&print_param("MPI_Comm", "MPI_COMM_SELF"); +&print_param("MPI_Comm", "MPI_COMM_NULL"); +&print_param("MPI_Group", "MPI_GROUP_EMPTY"); +&print_param("MPI_Group", "MPI_GROUP_NULL"); +&print_param("MPI_Win", "MPI_WIN_NULL"); +&print_param("MPI_File", "MPI_FILE_NULL"); +&print_param("MPI_Op", "MPI_OP_NULL"); +&print_param("MPI_Datatype", "MPI_DATATYPE_NULL"); +&print_param("MPI_Request", "MPI_REQUEST_NULL"); +&print_param("MPI_Errhandler", "MPI_ERRHANDLER_NULL"); +&print_param("MPI_Info", "MPI_INFO_NULL"); +&print_param("MPI_Info", "MPI_INFO_ENV"); +&print_param("MPI_Message", "MPI_MESSAGE_NULL"); +&print_param("MPI_Message", "MPI_MESSAGE_NO_PROC"); + +# Attributes +print $constants_fh "\n! Attributes\n"; +foreach $key (qw(TAG_UB HOST IO WTIME_IS_GLOBAL UNIVERSE_SIZE LASTUSEDCODE APPNUM WIN_BASE + WIN_SIZE WIN_DISP_UNIT WIN_CREATE_FLAVOR WIN_MODEL)) +{ + # Special cast: The Fortran versions of these attributes have + # value 1 greater than the C versions + my $attrval = $mpidef{"MPI_$key"}; + print "$key is $attrval\n" if $debug; + if ($attrval =~ /^0x/) { $attrval = hex $attrval; } + $attrval++; + $attrval = "0x" . sprintf "%x", $attrval; + print "$key is now $attrval\n" if $debug; + $mpidef{"MPI_$key"} = $attrval; + &print_param("integer", "MPI_$key"); +} + +# String sizes +print $constants_fh "\n! String sizes\n"; +foreach $key (qw(MAX_ERROR_STRING MAX_PORT_NAME MAX_OBJECT_NAME MAX_INFO_KEY MAX_INFO_VAL + MAX_PROCESSOR_NAME MAX_DATAREP_STRING MAX_LIBRARY_VERSION_STRING)) +{ + # See MPI-2 2.6.2 and 4.12.9; the constants for string lengths are + # defined as one less than the C/C++ version + &print_param("integer", "MPI_$key", -1); +} + +# Predefined constants +print $constants_fh "\n! Predefined constants\n"; +foreach $key (qw(UNDEFINED KEYVAL_INVALID BSEND_OVERHEAD PROC_NULL ANY_SOURCE ANY_TAG ROOT)) +{ + &print_param("integer", "MPI_$key"); +} + +# Topology types +print $constants_fh "\n! Topology types\n"; +foreach $key (qw(GRAPH CART DIST_GRAPH)) { + &print_param("integer", "MPI_$key"); +} + +# Special RMA values +print $constants_fh "\n! RMA lock types\n"; +&print_param("integer", "MPI_LOCK_EXCLUSIVE"); +&print_param("integer", "MPI_LOCK_SHARED"); + +# Fortran 90 types +# MPI_INTEGER_KIND added in MPI 2.2 +$mpidef{MPI_ADDRESS_KIND} = "c_Aint"; +$mpidef{MPI_OFFSET_KIND} = "c_Offset"; +$mpidef{MPI_COUNT_KIND} = "c_Count"; +$mpidef{MPI_INTEGER_KIND} = "c_int"; + +# F08 specific constants +print $constants_fh "\n! F08 specific constants\n"; +print $constants_fh "logical, parameter :: MPI_SUBARRAYS_SUPPORTED = .true.\n"; +print $constants_fh "logical, parameter :: MPI_ASYNC_PROTECTS_NONBLOCKING = .true.\n"; + +print $constants_fh "\n"; +foreach $key (qw(ADDRESS_KIND OFFSET_KIND COUNT_KIND INTEGER_KIND)) { + &print_param("integer", "MPI_$key"); +} + +# Datatypes +print $constants_fh "\n! Datatypes\n"; +foreach $key (qw(COMPLEX DOUBLE_COMPLEX LOGICAL REAL DOUBLE_PRECISION INTEGER 2INTEGER + 2DOUBLE_PRECISION 2REAL CHARACTER)) +{ + &print_param("MPI_Datatype", "MPI_$key"); +} + +print $constants_fh "\n"; +foreach $key (qw(BYTE UB LB PACKED + INTEGER1 INTEGER2 INTEGER4 INTEGER8 INTEGER16 + REAL4 REAL8 REAL16 + COMPLEX8 COMPLEX16 COMPLEX32 + CHAR SIGNED_CHAR UNSIGNED_CHAR WCHAR SHORT + UNSIGNED_SHORT INT UNSIGNED LONG UNSIGNED_LONG + FLOAT DOUBLE LONG_DOUBLE LONG_LONG_INT + UNSIGNED_LONG_LONG LONG_LONG FLOAT_INT DOUBLE_INT + LONG_INT SHORT_INT 2INT LONG_DOUBLE_INT + INT8_T INT16_T INT32_T INT64_T + UINT8_T UINT16_T UINT32_T UINT64_T + C_BOOL C_FLOAT_COMPLEX C_COMPLEX C_DOUBLE_COMPLEX C_LONG_DOUBLE_COMPLEX + AINT OFFSET COUNT + CXX_BOOL CXX_FLOAT_COMPLEX CXX_DOUBLE_COMPLEX CXX_LONG_DOUBLE_COMPLEX)) +{ + $mpidef{"MPI_$key"} = "\@F08_$key\@"; + &print_param("MPI_Datatype", "MPI_$key"); +} + +# Datatype combiners +print $constants_fh "\n! Datatype combiners\n"; +foreach $key (qw(NAMED DUP CONTIGUOUS VECTOR HVECTOR_INTEGER HVECTOR + INDEXED HINDEXED_INTEGER HINDEXED INDEXED_BLOCK + STRUCT_INTEGER STRUCT SUBARRAY DARRAY F90_REAL + F90_COMPLEX F90_INTEGER RESIZED HINDEXED_BLOCK)) +{ + &print_param("integer", "MPI_COMBINER_$key"); +} + +# Typeclasses +print $constants_fh "\n"; +foreach $key (qw(REAL INTEGER COMPLEX)) { + &print_param("integer", "MPI_TYPECLASS_$key"); +} + +# RMA Asserts +print $constants_fh "\n"; +foreach $key (qw(NOCHECK NOSTORE NOPUT NOPRECEDE NOSUCCEED)) { + &print_param("integer", "MPI_MODE_$key"); +} + +# comm_split_types +print $constants_fh "\n"; +&print_param("integer", "MPI_COMM_TYPE_SHARED"); + +# Thread levels +print $constants_fh "\n"; +foreach $key (qw(SINGLE FUNNELED SERIALIZED MULTIPLE)) { + &print_param("integer", "MPI_THREAD_$key"); +} + +# MPI-2 types: Files +if ($build_io) { + # Modes + print $constants_fh "\n"; + foreach $key(qw(RDONLY RDWR WRONLY DELETE_ON_CLOSE UNIQUE_OPEN + CREATE EXCL APPEND SEQUENTIAL)) { + &print_param("integer", "MPI_MODE_$key"); + } + # Seek + print $constants_fh "\n"; + foreach $key (qw(SET CUR END)) { + &print_param("integer", "MPI_SEEK_$key"); + } + # Order + print $constants_fh "\n"; + foreach $key (qw(C FORTRAN)) { + &print_param("integer", "MPI_ORDER_$key"); + } + # direction + print $constants_fh "\n"; + foreach $key (qw(BLOCK CYCLIC NONE DFLT_DARG)) { + &print_param("integer", "MPI_DISTRIBUTE_$key"); + } + + print $constants_fh "\n"; + &print_param("integer(kind=MPI_OFFSET_KIND)", "MPI_DISPLACEMENT_CURRENT"); +} + +print $constants_fh "end module mpi_f08_compile_constants\n"; +close($constants_fh); + +&ReplaceIfDifferent("mpi_f08_compile_constants.f90.in", "mpi_f08_compile_constants.f90.in.new"); diff --git a/src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.f90 b/src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.f90 deleted file mode 100644 index 96a12bb..0000000 --- a/src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.f90 +++ /dev/null @@ -1,437 +0,0 @@ -! ! MPI 3 Data cosnatnts for Fortran. -! From A.1.1 -! The module also contains the conversion routines for mpi_status -! -!-------------------------------------------------------------- - -module mpi_f08_compile_constants - -use,intrinsic :: iso_c_binding, only: c_int, c_ptr -use,intrinsic :: iso_fortran_env, only: int32, int64, real32, real64 -use :: mpi_f08_types -use :: mpi_c_interface_types, only: c_Aint, c_Count, c_Offset, c_Status - -!==================================================================== -! Make names brought in from other modules private if they should not -! be exposed in program units using this module -!==================================================================== - -! Make names from iso_c_binding private -private :: c_int - -! Make names from iso_fortran_env private -private :: int32 -private :: int64 -private :: real32 -private :: real64 - -! Make nmes from mpi_C_types private -private :: c_Aint -private :: c_Count -private :: c_Offset - -!========================================= -! Definitions of MPI Constants for Fortran -! Should match the values in mpif.h -!========================================== - -! Implementation Information -! 8.1.1 p335 -integer,parameter :: MPI_VERSION = 3 -integer,parameter :: MPI_SUBVERSION = 0 - - -! Null Handles -! A.1.1 p669 - -type(MPI_Group),parameter :: MPI_GROUP_NULL = MPI_Group(134217728 ) ! 0x08000000 -type(MPI_Comm),parameter :: MPI_COMM_NULL = MPI_Comm(67108864 ) ! 0x04000000 -type(MPI_Datatype),parameter :: MPI_DATATYPE_NULL = MPI_Datatype( 201326592) ! 0x0c000000 -type(MPI_Request),parameter :: MPI_REQUEST_NULL = MPI_Request(738197504) ! 0x2c000000 -type(MPI_Op),parameter :: MPI_OP_NULL = MPI_Op( 402653184) ! 0x18000000 -type(MPI_Errhandler),parameter :: MPI_ERRHANDLER_NULL = MPI_Errhandler( 335544320) ! 0x14000000 -type(MPI_File),parameter :: MPI_FILE_NULL = MPI_File(0) ! 0x00000000 -type(MPI_Info),parameter :: MPI_INFO_NULL = MPI_Info(469762048) ! 0x1c000000 -type(MPI_Win),parameter :: MPI_WIN_NULL = MPI_Win( 536870912) ! 0x20000000 -type(MPI_Message),parameter :: MPI_MESSAGE_NULL = MPI_Message(738197504) ! 0x2c000000 -! The component value for MPI_MESSAGE_NULL is the same as that for MPI_REQUEST_NULL - -! Error Classes -! A.1.1, pp 661 - 663 -integer,parameter :: MPI_SUCCESS = 0 -integer,parameter :: MPI_ERR_BUFFER = 1 -integer,parameter :: MPI_ERR_COUNT = 2 -integer,parameter :: MPI_ERR_TYPE = 3 -integer,parameter :: MPI_ERR_TAG = 4 -integer,parameter :: MPI_ERR_COMM = 5 -integer,parameter :: MPI_ERR_RANK = 6 -integer,parameter :: MPI_ERR_REQUEST = 19 -integer,parameter :: MPI_ERR_ROOT = 7 -integer,parameter :: MPI_ERR_GROUP = 8 -integer,parameter :: MPI_ERR_OP = 9 -integer,parameter :: MPI_ERR_TOPOLOGY = 10 -integer,parameter :: MPI_ERR_DIMS = 11 -integer,parameter :: MPI_ERR_ARG = 12 -integer,parameter :: MPI_ERR_UNKNOWN = 13 -integer,parameter :: MPI_ERR_TRUNCATE = 14 -integer,parameter :: MPI_ERR_OTHER = 15 -integer,parameter :: MPI_ERR_INTERN = 16 -integer,parameter :: MPI_ERR_PENDING = 18 -integer,parameter :: MPI_ERR_IN_STATUS = 17 -integer,parameter :: MPI_ERR_ACCESS = 20 -integer,parameter :: MPI_ERR_AMODE = 21 -integer,parameter :: MPI_ERR_ASSERT = 53 -integer,parameter :: MPI_ERR_BAD_FILE = 22 -integer,parameter :: MPI_ERR_BASE = 46 -integer,parameter :: MPI_ERR_CONVERSION = 23 -integer,parameter :: MPI_ERR_DISP = 52 -integer,parameter :: MPI_ERR_DUP_DATAREP = 24 -integer,parameter :: MPI_ERR_FILE_EXISTS = 25 -integer,parameter :: MPI_ERR_FILE_IN_USE = 26 -integer,parameter :: MPI_ERR_FILE = 27 -integer,parameter :: MPI_ERR_INFO_KEY = 29 -integer,parameter :: MPI_ERR_INFO_NOKEY = 31 -integer,parameter :: MPI_ERR_INFO_VALUE = 30 -integer,parameter :: MPI_ERR_INFO = 28 -integer,parameter :: MPI_ERR_IO = 32 -integer,parameter :: MPI_ERR_KEYVAL = 48 -integer,parameter :: MPI_ERR_LOCKTYPE = 47 -integer,parameter :: MPI_ERR_NAME = 33 -integer,parameter :: MPI_ERR_NO_MEM = 34 -integer,parameter :: MPI_ERR_NOT_SAME = 35 -integer,parameter :: MPI_ERR_NO_SPACE = 36 -integer,parameter :: MPI_ERR_NO_SUCH_FILE = 37 -integer,parameter :: MPI_ERR_PORT = 38 -integer,parameter :: MPI_ERR_QUOTA = 39 -integer,parameter :: MPI_ERR_READ_ONLY = 40 -integer,parameter :: MPI_ERR_RMA_ATTACH = 56 -integer,parameter :: MPI_ERR_RMA_CONFLICT = 49 -integer,parameter :: MPI_ERR_RMA_RANGE = 55 -integer,parameter :: MPI_ERR_RMA_SHARED = 57 -integer,parameter :: MPI_ERR_RMA_SYNC = 50 -integer,parameter :: MPI_ERR_RMA_FLAVOR = 58 -integer,parameter :: MPI_ERR_SERVICE = 41 -integer,parameter :: MPI_ERR_SIZE = 51 -integer,parameter :: MPI_ERR_SPAWN = 42 -integer,parameter :: MPI_ERR_UNSUPPORTED_DATAREP = 43 -integer,parameter :: MPI_ERR_UNSUPPORTED_OPERATION = 44 -integer,parameter :: MPI_ERR_WIN = 45 -integer,parameter :: MPI_ERR_LASTCODE = 1073741823 - -! Assorted Constants -! A.1.1 p. 663 -integer,parameter :: MPI_PROC_NULL = -1 -integer,parameter :: MPI_ANY_SOURCE = -2 -integer,parameter :: MPI_ANY_TAG = -1 -integer,parameter :: MPI_UNDEFINED = -32766 -integer,parameter :: MPI_BSEND_OVERHEAD = 96 -integer,parameter :: MPI_KEYVAL_INVALID = 603979776 -integer,parameter :: MPI_LOCK_EXCLUSIVE = 234 -integer,parameter :: MPI_LOCK_SHARED = 235 -integer,parameter :: MPI_ROOT = -3 - -! No Process Message Handle -! A.1.1 p. 663 -type(MPI_Message),parameter :: MPI_MESSAGE_NO_PROC = MPI_Message(1811939328) - -! Fortran Support Method Specific Constants -! A.1.1 p. 664 -logical,parameter :: MPI_SUBARRAYS_SUPPORTED = .true. -logical,parameter :: MPI_ASYNC_PROTECTS_NONBLOCKING = .true. ! Value differs from mpif.h - -! Variable Address Size -! A.1.1 p. 664 -integer,parameter :: MPI_ADDRESS_KIND = c_Aint ! Defined in mpi_c_interface_types -integer,parameter :: MPI_COUNT_KIND = c_Count ! Defined in mpi_c_interface_types -integer,parameter :: MPI_INTEGER_KIND = KIND(0) -integer,parameter :: MPI_OFFSET_KIND = c_Offset ! Defined in mpi_c_interface_types - -! Error Handling Specifiers -! A.1.1 p. 664 -type(MPI_Errhandler),parameter :: MPI_ERRORS_ARE_FATAL = MPI_Errhandler(1409286144) -type(MPI_Errhandler),parameter :: MPI_ERRORS_RETURN = MPI_Errhandler(1409286145) - -! Maximum Sizes for Strings -! A.1.1 p. 664 -integer,parameter :: MPI_MAX_DATAREP_STRING = 127 -integer,parameter :: MPI_MAX_ERROR_STRING = 1023 -integer,parameter :: MPI_MAX_INFO_KEY = 254 -integer,parameter :: MPI_MAX_INFO_VAL = 1023 -integer,parameter :: MPI_MAX_LIBRARY_VERSION_STRING = 8191 -integer,parameter :: MPI_MAX_OBJECT_NAME = 127 -integer,parameter :: MPI_MAX_PORT_NAME = 255 -integer,parameter :: MPI_MAX_PROCESSOR_NAME = 128-1 - - -! Named Predefined Datatypes - C types -! A.1.1 pp 665 - 666 -type(MPI_Datatype),parameter :: MPI_CHAR = MPI_Datatype( 1275068673) ! 0x4c000101 -type(MPI_Datatype),parameter :: MPI_SHORT = MPI_Datatype( 1275068931) ! 0x4c000203 -type(MPI_Datatype),parameter :: MPI_INT = MPI_Datatype( 1275069445) ! 0x4c000405 -type(MPI_Datatype),parameter :: MPI_LONG = MPI_Datatype( 1275070471) ! 0x4c000807 -type(MPI_Datatype),parameter :: MPI_LONG_LONG_INT = MPI_Datatype( 1275070473) ! 0x4c000809 -type(MPI_Datatype),parameter :: MPI_LONG_LONG = MPI_LONG_LONG_INT -type(MPI_Datatype),parameter :: MPI_SIGNED_CHAR = MPI_Datatype( 1275068696) ! 0x4c000118 -type(MPI_Datatype),parameter :: MPI_UNSIGNED_CHAR = MPI_Datatype( 1275068674) ! 0x4c000102 -type(MPI_Datatype),parameter :: MPI_UNSIGNED_SHORT = MPI_Datatype( 1275068932) ! 0x4c000204 -type(MPI_Datatype),parameter :: MPI_UNSIGNED = MPI_Datatype( 1275069446) ! 0x4c000406 -type(MPI_Datatype),parameter :: MPI_UNSIGNED_LONG = MPI_Datatype( 1275070472) ! 0x4c000808 -type(MPI_Datatype),parameter :: MPI_UNSIGNED_LONG_LONG = MPI_Datatype( 1275070489) ! 0x4c000819 -type(MPI_Datatype),parameter :: MPI_FLOAT = MPI_Datatype( 1275069450) ! 0x4c00040a -type(MPI_Datatype),parameter :: MPI_DOUBLE = MPI_Datatype( 1275070475) ! 0x4c00080b -type(MPI_Datatype),parameter :: MPI_LONG_DOUBLE = MPI_Datatype( 1275072524) ! 0x4c00100c -type(MPI_Datatype),parameter :: MPI_WCHAR = MPI_Datatype( 1275069454) ! 0x4c00040e -type(MPI_Datatype),parameter :: MPI_C_BOOL = MPI_Datatype( 1275068735) ! 0x4c00013f -type(MPI_Datatype),parameter :: MPI_INT8_T = MPI_Datatype( 1275068727) ! 0x4c000137 -type(MPI_Datatype),parameter :: MPI_INT16_T = MPI_Datatype( 1275068984) ! 0x4c000238 -type(MPI_Datatype),parameter :: MPI_INT32_T = MPI_Datatype( 1275069497) ! 0x4c000439 -type(MPI_Datatype),parameter :: MPI_INT64_T = MPI_Datatype( 1275070522) ! 0x4c00083a -type(MPI_Datatype),parameter :: MPI_UINT8_T = MPI_Datatype( 1275068731) ! 0x4c00013b -type(MPI_Datatype),parameter :: MPI_UINT16_T = MPI_Datatype( 1275068988) ! 0x4c00023c -type(MPI_Datatype),parameter :: MPI_UINT32_T = MPI_Datatype( 1275069501) ! 0x4c00043d -type(MPI_Datatype),parameter :: MPI_UINT64_T = MPI_Datatype( 1275070526) ! 0x4c00083e -type(MPI_Datatype),parameter :: MPI_AINT = MPI_Datatype( 1275070531) ! 0x4c000843 -type(MPI_Datatype),parameter :: MPI_COUNT = MPI_Datatype( 1275070533) ! 0x4c000845 -type(MPI_Datatype),parameter :: MPI_OFFSET = MPI_Datatype( 1275070532) ! 0x4c000844 -type(MPI_Datatype),parameter :: MPI_C_FLOAT_COMPLEX = MPI_Datatype( 1275070528) ! 0x4c000840 -type(MPI_Datatype),parameter :: MPI_C_COMPLEX = MPI_C_FLOAT_COMPLEX -type(MPI_Datatype),parameter :: MPI_C_DOUBLE_COMPLEX = MPI_Datatype( 1275072577) ! 0x4c001041 -type(MPI_Datatype),parameter :: MPI_C_LONG_DOUBLE_COMPLEX = MPI_Datatype( 1275076674) ! 0x4c002042 -type(MPI_Datatype),parameter :: MPI_BYTE = MPI_Datatype( 1275068685) ! 0x4c00010d -type(MPI_Datatype),parameter :: MPI_PACKED = MPI_Datatype( 1275068687) ! 0x4c00010f - - -! Named Predefined Datatypes - Fortran types -! A.1.1 p. 666 -integer,private,parameter :: dik = kind(0) ! Default Integer Kind -integer,private,parameter :: drk = kind(0.0) ! Default Real Kind -integer,private,parameter :: ddk = kind(0.0d0) ! Default Double Precision Kind - -type(MPI_Datatype),parameter,private :: MPIx_C8 = MPI_Datatype( 1275070494) ! 0x4c00081e -type(MPI_Datatype),parameter,private :: MPIx_C16 = MPI_Datatype( 1275072546) ! 0x4c001022 -type(MPI_Datatype),parameter,private :: MPIx_C32 = MPI_Datatype( 1275076652) ! 0x4c00202c -type(MPI_Datatype),parameter,private :: MPIx_2R4 = MPI_Datatype( 1275070497) ! 0x4c000821 -type(MPI_Datatype),parameter,private :: MPIx_2R8 = MPI_Datatype( 1275072545) ! 0x4c001021 -type(MPI_Datatype),parameter,private :: MPIx_L4 = MPI_Datatype( 1275069469) ! 0x4c00041d -type(MPI_Datatype),parameter,private :: MPIx_L8 = MPI_Datatype( 1275070493) ! 0x4c00081d -type(MPI_Datatype),parameter,private :: MPIx_R4 = MPI_Datatype( 1275069468) ! 0x4c00041c -type(MPI_Datatype),parameter,private :: MPIx_R8 = MPI_Datatype( 1275070495) ! 0x4c00081f -type(MPI_Datatype),parameter,private :: MPIx_R16 = MPI_Datatype( 1275072555) ! 0x4c00102b -type(MPI_Datatype),parameter,private :: MPIx_I4 = MPI_Datatype( 1275069467) ! 0x4c00041b -type(MPI_Datatype),parameter,private :: MPIx_I8 = MPI_Datatype( 1275070491) ! 0x4c00081b -type(MPI_Datatype),parameter,private :: MPIx_2I4 = MPI_Datatype( 1275070496) ! 0x4c000820 -type(MPI_Datatype),parameter,private :: MPIx_2I8 = MPI_Datatype( 1275072544) ! 0x4c001020 -type(MPI_Datatype),parameter :: MPI_INTEGER = merge(MPIx_I4, MPIx_I8, dik==int32) -type(MPI_Datatype),parameter :: MPI_REAL = merge(MPIx_R4, MPIx_R8, drk==real32) -type(MPI_Datatype),parameter :: MPI_DOUBLE_PRECISION = merge(MPIx_R8, MPIx_R16, ddk==real64) -type(MPI_Datatype),parameter :: MPI_COMPLEX = merge(MPIx_C8, MPIx_C16, drk==real32) -type(MPI_Datatype),parameter :: MPI_LOGICAL = merge(MPIx_L4, MPIx_L8, dik==int32) -type(MPI_Datatype),parameter :: MPI_CHARACTER = MPI_Datatype( 1275068698) ! 0x4c00011a - -! Named Predefined Datatypes - C++ types -! A.1.1 p. 666 -type(MPI_Datatype),parameter :: MPI_CXX_BOOL = MPI_Datatype( 1275068723) ! 0x4C000133 -type(MPI_Datatype),parameter :: MPI_CXX_FLOAT_COMPLEX = MPI_Datatype( 1275070516) ! 0x4C000834 -type(MPI_Datatype),parameter :: MPI_CXX_DOUBLE_COMPLEX = MPI_Datatype( 1275072565) ! 0x4C001035 -type(MPI_Datatype),parameter :: MPI_CXX_LONG_DOUBLE_COMPLEX = MPI_Datatype( 1275076662) ! 0x4C002036 - -! Optional datatypes (Fortran) -! A.1.1 p. 666 -type(MPI_Datatype),parameter :: MPI_DOUBLE_COMPLEX = merge(MPIx_C16,MPIx_C32, ddk==real64) -type(MPI_Datatype),parameter :: MPI_INTEGER1 = MPI_Datatype( 1275068717) ! 0x4c00012d -type(MPI_Datatype),parameter :: MPI_INTEGER2 = MPI_Datatype( 1275068975) ! 0x4c00022f -type(MPI_Datatype),parameter :: MPI_INTEGER4 = MPI_Datatype( 1275069488) ! 0x4c000430 -type(MPI_Datatype),parameter :: MPI_INTEGER8 = MPI_Datatype( 1275070513) ! 0x4c000831 -type(MPI_Datatype),parameter :: MPI_INTEGER16 = MPI_DATATYPE_NULL -type(MPI_Datatype),parameter :: MPI_REAL2 = MPI_DATATYPE_NULL -type(MPI_Datatype),parameter :: MPI_REAL4 = MPI_Datatype( 1275069479) ! 0x4c000427 -type(MPI_Datatype),parameter :: MPI_REAL8 = MPI_Datatype( 1275070505) ! 0x4c000829 -type(MPI_Datatype),parameter :: MPI_REAL16 = MPI_Datatype( 1275072555) ! 0x4c00102b -type(MPI_Datatype),parameter :: MPI_COMPLEX4 = MPI_DATATYPE_NULL -type(MPI_Datatype),parameter :: MPI_COMPLEX8 = MPI_Datatype( 1275070504) ! 0x4c000828 -type(MPI_Datatype),parameter :: MPI_COMPLEX16 = MPI_Datatype( 1275072554) ! 0x4c00102a -type(MPI_Datatype),parameter :: MPI_COMPLEX32 = MPI_Datatype( 1275076652) ! 0x4c00202c - -! Datatypes for reduction functions (C) -! A.1.1 p. 667 -type(MPI_Datatype),parameter :: MPI_FLOAT_INT = MPI_Datatype(-1946157056) ! 0x8c000000 -type(MPI_Datatype),parameter :: MPI_DOUBLE_INT = MPI_Datatype(-1946157055) ! 0x8c000001 -type(MPI_Datatype),parameter :: MPI_LONG_INT = MPI_Datatype(-1946157054) ! 0x8c000002 -type(MPI_Datatype),parameter :: MPI_2INT = MPI_Datatype( 1275070486) ! 0x4c000816 -type(MPI_Datatype),parameter :: MPI_SHORT_INT = MPI_Datatype(-1946157053) ! 0x8c000003 -type(MPI_Datatype),parameter :: MPI_LONG_DOUBLE_INT = MPI_Datatype(-1946157052) ! 0x8c000004 - -! Datatypes for reduction functions (Fortran) -! A.1.1 p. 667 -type(MPI_Datatype),parameter :: MPI_2REAL = merge(MPIx_2R4, MPIx_2R8,drk==real32) -type(MPI_Datatype),parameter :: MPI_2DOUBLE_PRECISION = MPI_Datatype( 1275072547) ! 0x4c001023 -type(MPI_Datatype),parameter :: MPI_2integer = merge(MPIx_2I4, MPIx_2I8,dik==int32) -!!!!!! Seems like MPI_2DOUBLE_PRECISION not handled correctly here. -!!!!!! But the mpi.h.32 and mpi.h.64 had the same value. - -! Reserved communicators -! A.1.1 p. 667 -type(MPI_Comm),parameter :: MPI_COMM_WORLD = MPI_Comm( 1140850688) ! 0x44000000 -type(MPI_Comm),parameter :: MPI_COMM_SELF = MPI_Comm( 1140850689) ! 0x44000001 - -! Communicator split type constants -! A.1.1 p. 667 -integer,parameter :: MPI_COMM_TYPE_SHARED = 1 - -! Results of communicator and group comparisons -! A.1.1 p. 667 -integer,parameter :: MPI_IDENT = 0 -integer,parameter :: MPI_CONGRUENT = 1 -integer,parameter :: MPI_SIMILAR = 2 -integer,parameter :: MPI_UNEQUAL = 3 - -! Environmental inquiry info key -! A.1.1 p. 667 -type(MPI_Info),parameter :: MPI_INFO_ENV = MPI_Info(999922) ! **** NEED VALUE - -! Environmental inquiry keys -! A.1.1 p. 668 -integer,parameter :: MPI_TAG_UB = 1681915906 ! 0x64400002 -integer,parameter :: MPI_HOST = 1681915908 ! 0x64400004 -integer,parameter :: MPI_IO = 1681915910 ! 0x64400006 -integer,parameter :: MPI_WTIME_IS_GLOBAL = 1681915912 ! 0x64400008 - -! Collective operations -! A.1.1 p. 668 -type(MPI_Op),parameter :: MPI_MAX = MPI_Op( 1476395009) ! 0x58000001 -type(MPI_Op),parameter :: MPI_MIN = MPI_Op( 1476395010) ! 0x58000002 -type(MPI_Op),parameter :: MPI_SUM = MPI_Op( 1476395011) ! 0x58000003 -type(MPI_Op),parameter :: MPI_PROD = MPI_Op( 1476395012) ! 0x58000004 -type(MPI_Op),parameter :: MPI_MAXLOC = MPI_Op( 1476395020) ! 0x5800000c -type(MPI_Op),parameter :: MPI_MINLOC = MPI_Op( 1476395019) ! 0x5800000b -type(MPI_Op),parameter :: MPI_BAND = MPI_Op( 1476395014) ! 0x58000006 -type(MPI_Op),parameter :: MPI_BOR = MPI_Op( 1476395016) ! 0x58000008 -type(MPI_Op),parameter :: MPI_BXOR = MPI_Op( 1476395018) ! 0x5800000a -type(MPI_Op),parameter :: MPI_LAND = MPI_Op( 1476395013) ! 0x58000005 -type(MPI_Op),parameter :: MPI_LOR = MPI_Op( 1476395015) ! 0x58000007 -type(MPI_Op),parameter :: MPI_LXOR = MPI_Op( 1476395017) ! 0x58000009 -type(MPI_Op),parameter :: MPI_REPLACE = MPI_Op( 1476395021) ! 0x5800000d -type(MPI_Op),parameter :: MPI_NO_OP = MPI_Op( 1476395022) ! 0x5800000e - -! Empty group -! A.1.1 p 669 -type(MPI_Group),parameter :: MPI_GROUP_EMPTY = MPI_Group( 1207959552) ! 0x48000000 - -! Topologies -! A.1.1 p 669 -integer,parameter :: MPI_GRAPH = 1 -integer,parameter :: MPI_CART = 2 -integer,parameter :: MPI_DIST_GRAPH = 3 - -! Predefined Attribute Keys -! A.1.1 p 671 -integer,parameter :: MPI_APPNUM = 1681915918 -integer,parameter :: MPI_LASTUSEDCODE = 1681915916 -integer,parameter :: MPI_UNIVERSE_SIZE = 1681915914 -integer,parameter :: MPI_WIN_BASE = 1711276034 -integer,parameter :: MPI_WIN_DISP_UNIT = 1711276038 -integer,parameter :: MPI_WIN_SIZE = 1711276036 -integer,parameter :: MPI_WIN_CREATE_FLAVOR = 1711276040 -integer,parameter :: MPI_WIN_MODEL = 1711276042 - -! MPI Window Create Flavors -! A.1.1 p 671 -integer,parameter :: MPI_WIN_FLAVOR_CREATE = 1 -integer,parameter :: MPI_WIN_FLAVOR_ALLOCATE = 2 -integer,parameter :: MPI_WIN_FLAVOR_DYNAMIC = 3 -integer,parameter :: MPI_WIN_FLAVOR_SHARED = 4 - -! MPI Window Models -! A.1.1 p 671 -integer,parameter :: MPI_WIN_SEPARATE = 1 -integer,parameter :: MPI_WIN_UNIFIED = 2 - -! Mode Constants -! A.1.1 p 672 -integer,parameter :: MPI_MODE_APPEND = 128 -integer,parameter :: MPI_MODE_CREATE = 1 -integer,parameter :: MPI_MODE_DELETE_ON_CLOSE = 16 -integer,parameter :: MPI_MODE_EXCL = 64 -integer,parameter :: MPI_MODE_NOCHECK = 1024 -integer,parameter :: MPI_MODE_NOPRECEDE = 8192 -integer,parameter :: MPI_MODE_NOPUT = 4096 -integer,parameter :: MPI_MODE_NOSTORE = 2048 -integer,parameter :: MPI_MODE_NOSUCCEED = 16384 -integer,parameter :: MPI_MODE_RDONLY = 2 -integer,parameter :: MPI_MODE_RDWR = 8 -integer,parameter :: MPI_MODE_SEQUENTIAL = 256 -integer,parameter :: MPI_MODE_UNIQUE_OPEN = 32 -integer,parameter :: MPI_MODE_WRONLY = 4 - -! Datatype Decoding Constants -! A.1.1 p 672 -integer,parameter :: MPI_COMBINER_NAMED = 1 -integer,parameter :: MPI_COMBINER_DUP = 2 -integer,parameter :: MPI_COMBINER_CONTIGUOUS = 3 -integer,parameter :: MPI_COMBINER_VECTOR = 4 -integer,parameter :: MPI_COMBINER_HVECTOR_INTEGER = 5 -integer,parameter :: MPI_COMBINER_HVECTOR = 6 -integer,parameter :: MPI_COMBINER_INDEXED = 7 -integer,parameter :: MPI_COMBINER_HINDEXED_INTEGER = 8 -integer,parameter :: MPI_COMBINER_HINDEXED = 9 -integer,parameter :: MPI_COMBINER_INDEXED_BLOCK = 10 -integer,parameter :: MPI_COMBINER_STRUCT_INTEGER = 11 -integer,parameter :: MPI_COMBINER_STRUCT = 12 -integer,parameter :: MPI_COMBINER_SUBARRAY = 13 -integer,parameter :: MPI_COMBINER_DARRAY = 14 -integer,parameter :: MPI_COMBINER_F90_REAL = 15 -integer,parameter :: MPI_COMBINER_F90_COMPLEX = 16 -integer,parameter :: MPI_COMBINER_F90_INTEGER = 17 -integer,parameter :: MPI_COMBINER_RESIZED = 18 -integer,parameter :: MPI_COMBINER_HINDEXED_BLOCK = 19 - -! Threads Constants -! A.1.1 p 672 -integer,parameter :: MPI_THREAD_SINGLE = 0 -integer,parameter :: MPI_THREAD_FUNNELED = 1 -integer,parameter :: MPI_THREAD_SERIALIZED = 2 -integer,parameter :: MPI_THREAD_MULTIPLE = 3 - -! File Operation Constants, Part 1 -! A.1.1 p 673 -integer(mpi_offset_kind),parameter :: MPI_DISPLACEMENT_CURRENT = -54278278 - -! File Operation Constants, Part 2 -! A.1.1 p 673 -integer,parameter :: MPI_DISTRIBUTE_BLOCK = 121 -integer,parameter :: MPI_DISTRIBUTE_CYCLIC = 122 -integer,parameter :: MPI_DISTRIBUTE_DFLT_DARG = -49767 -integer,parameter :: MPI_DISTRIBUTE_NONE = 123 -integer,parameter :: MPI_ORDER_C = 56 -integer,parameter :: MPI_ORDER_FORTRAN = 57 -integer,parameter :: MPI_SEEK_CUR = 602 -integer,parameter :: MPI_SEEK_END = 604 -integer,parameter :: MPI_SEEK_SET = 600 - -! F90 Datatype Matching Cosntants -! A.1.1 p 673 -integer,parameter :: MPI_TYPECLASS_COMPLEX = 3 -integer,parameter :: MPI_TYPECLASS_integer = 2 -integer,parameter :: MPI_TYPECLASS_REAL = 1 - -! MPI_T_* names -! A.1.1 pp 674-676 -! The MPI_T_* names in the tables on pages 674-676 are for C only -! and are omitted here - -!============================================= - -! Added constants defined in mpich 3 mpif.h file -! These are removed - See table 2.1, page 18 in the spec. -! but kept here for backward compatibility -type(MPI_Datatype),parameter :: MPI_LB = MPI_Datatype( 1275068432) ! 0x4c000010 -type(MPI_Datatype),parameter :: MPI_UB = MPI_Datatype( 1275068433) ! 0x4c000011 - -! Additional reduction function data types defined by mpich 3, not in spec -type(MPI_Datatype),parameter :: MPI_2COMPLEX = MPI_Datatype( 1275072548) ! 0x4C002025 -type(MPI_Datatype),parameter :: MPI_2DOUBLE_COMPLEX = MPI_Datatype( 1275076645) ! 0x4C001024 -!!!!!! Similar mishandling here for -r8 case. - - -END MODULE mpi_f08_compile_constants - http://git.mpich.org/mpich.git/commitdiff/d00ac6bfe06a31f1a345d20ec9bfaad1d… commit d00ac6bfe06a31f1a345d20ec9bfaad1db68c091 Author: Junchao Zhang <jczhang(a)mcs.anl.gov> Date: Tue Apr 14 14:58:14 2015 -0500 Define MPI_MESSAGE_NULL directly with an integer The old one defines MPI_MESSAGE_NULL as MPI_REQUEST_NULL, which misleads F08 buildiface since types of MPI_REQUEST and MPI_MESSAGE are different. Signed-off-by: Ken Raffenetti <raffenet(a)mcs.anl.gov> diff --git a/src/include/mpi.h.in b/src/include/mpi.h.in index 14366c3..7ca2a3c 100644 --- a/src/include/mpi.h.in +++ b/src/include/mpi.h.in @@ -84,7 +84,7 @@ extern "C" { #define MPI_DATATYPE_NULL ((MPI_Datatype)0x0c000000) #define MPI_REQUEST_NULL ((MPI_Request)0x2c000000) #define MPI_ERRHANDLER_NULL ((MPI_Errhandler)0x14000000) -#define MPI_MESSAGE_NULL ((MPI_Message)MPI_REQUEST_NULL) +#define MPI_MESSAGE_NULL ((MPI_Message)0x2c000000) #define MPI_MESSAGE_NO_PROC ((MPI_Message)0x6c000000) /* Results of the compare operations. */ http://git.mpich.org/mpich.git/commitdiff/4f3a05d0f2068c91929e0bfa7c672ece0… commit 4f3a05d0f2068c91929e0bfa7c672ece03793f7c Author: Junchao Zhang <jczhang(a)mcs.anl.gov> Date: Sun Apr 12 15:41:04 2015 -0500 Revise F08 binding build system Module files are now only produced under use_mpi_f08 subdirectory. Also, it now auto-detects cases of names and extensions of module files, which are compiler-dependant. Fixes #2163 Signed-off-by: Ken Raffenetti <raffenet(a)mcs.anl.gov> diff --git a/.gitignore b/.gitignore index c363d77..72ae47d 100644 --- a/.gitignore +++ b/.gitignore @@ -187,6 +187,7 @@ Makefile.am-stamp /src/binding/fortran/use_mpi/mpi_base.mod-stamp /src/binding/fortran/use_mpi/mpi_constants.mod-stamp /src/binding/fortran/use_mpi/mpi_sizeofs.mod-stamp +/src/binding/fortran/use_mpi_f08/*.stamp /src/mpe2/src/callstack/bin/bt2line diff --git a/configure.ac b/configure.ac index 8279397..7142068 100644 --- a/configure.ac +++ b/configure.ac @@ -2200,6 +2200,20 @@ MPIMODNAME=mpi MPICONSTMODNAME=mpi_constants MPISIZEOFMODNAME=mpi_sizeofs MPIBASEMODNAME=mpi_base + +# F08 binding stuff +MPI_F08_LINK_CONSTANTS_NAME=mpi_f08_link_constants +PMPI_F08_NAME=pmpi_f08 +MPI_F08_CALLBACKS_NAME=mpi_f08_callbacks +MPI_C_INTERFACE_NAME=mpi_c_interface +MPI_C_INTERFACE_GLUE_NAME=mpi_c_interface_glue +MPI_F08_TYPES_NAME=mpi_f08_types +MPI_C_INTERFACE_NOBUF_NAME=mpi_c_interface_nobuf +MPI_F08_COMPILE_CONSTANTS_NAME=mpi_f08_compile_constants +MPI_F08_NAME=mpi_f08 +MPI_C_INTERFACE_TYPES_NAME=mpi_c_interface_types +MPI_C_INTERFACE_CDESC_NAME=mpi_c_interface_cdesc + if test "$enable_fc" = "yes" ; then # determine rpath and other shared library flags for FC fc_shlib_conf=src/env/fc_shlib.conf @@ -2250,17 +2264,51 @@ if test "$enable_fc" = "yes" ; then MPICONSTMODNAME=MPI_CONSTANTS MPISIZEOFMODNAME=MPI_SIZEOFS MPIBASEMODNAME=MPI_BASE + MPI_F08_NAME=MPI_F08 + MPI_F08_LINK_CONSTANTS_NAME=MPI_F08_LINK_CONSTANTS + MPI_F08_CALLBACKS_NAME=MPI_F08_CALLBACKS + MPI_F08_TYPES_NAME=MPI_F08_TYPES + MPI_F08_COMPILE_CONSTANTS_NAME=MPI_F08_COMPILE_CONSTANTS + PMPI_F08_NAME=PMPI_F08 + MPI_C_INTERFACE_NAME=MPI_C_INTERFACE + MPI_C_INTERFACE_NOBUF_NAME=MPI_C_INTERFACE_NOBUF + MPI_C_INTERFACE_GLUE_NAME=MPI_C_INTERFACE_GLUE + MPI_C_INTERFACE_TYPES_NAME=MPI_C_INTERFACE_TYPES + MPI_C_INTERFACE_CDESC_NAME=MPI_C_INTERFACE_CDESC else MPIMODNAME=mpi MPICONSTMODNAME=mpi_constants MPISIZEOFMODNAME=mpi_sizeofs MPIBASEMODNAME=mpi_base + MPI_F08_NAME=mpi_f08 + MPI_F08_LINK_CONSTANTS_NAME=mpi_f08_link_constants + MPI_F08_CALLBACKS_NAME=mpi_f08_callbacks + MPI_F08_TYPES_NAME=mpi_f08_types + MPI_F08_COMPILE_CONSTANTS_NAME=mpi_f08_compile_constants + PMPI_F08_NAME=pmpi_f08 + MPI_C_INTERFACE_NAME=mpi_c_interface + MPI_C_INTERFACE_NOBUF_NAME=mpi_c_interface_nobuf + MPI_C_INTERFACE_GLUE_NAME=mpi_c_interface_glue + MPI_C_INTERFACE_TYPES_NAME=mpi_c_interface_types + MPI_C_INTERFACE_CDESC_NAME=mpi_c_interface_cdesc fi AC_SUBST(MPIMODNAME) AC_SUBST(MPICONSTMODNAME) AC_SUBST(MPISIZEOFMODNAME) AC_SUBST(MPIBASEMODNAME) + AC_SUBST(MPI_F08_NAME) + AC_SUBST(MPI_F08_LINK_CONSTANTS_NAME) + AC_SUBST(MPI_F08_CALLBACKS_NAME) + AC_SUBST(MPI_F08_TYPES_NAME) + AC_SUBST(MPI_F08_COMPILE_CONSTANTS_NAME) + AC_SUBST(PMPI_F08_NAME) + AC_SUBST(MPI_C_INTERFACE_NAME) + AC_SUBST(MPI_C_INTERFACE_NOBUF_NAME) + AC_SUBST(MPI_C_INTERFACE_GLUE_NAME) + AC_SUBST(MPI_C_INTERFACE_TYPES_NAME) + AC_SUBST(MPI_C_INTERFACE_CDESC_NAME) + # Assume that all Fortran 90 compilers accept -I for include directories FCINC=-I AC_SUBST(FCINC) diff --git a/src/binding/fortran/use_mpi_f08/buildiface b/src/binding/fortran/use_mpi_f08/buildiface index 14ac3bd..ca70c1e 100755 --- a/src/binding/fortran/use_mpi_f08/buildiface +++ b/src/binding/fortran/use_mpi_f08/buildiface @@ -93,7 +93,7 @@ open($makefile_fh, ">", $makefile) || die "Error: Could not open $makefile, $!"; print $makefile_fh <<EOT; # -*- Mode: Makefile; -*- # -# (C) 2014 by Argonne National Laboratory. +# (C) 2015 by Argonne National Laboratory. # See COPYRIGHT in top-level directory. # # AUTOGENERATED! DO NOT EDIT! @@ -107,9 +107,23 @@ if BUILD_F08_BINDING EOT -print $makefile_fh "AM_FCFLAGS += \@FCINCFLAG\@src/binding/fortran/use_mpi\n\n"; +# Module dependence chain +my %f08_mods = ( + "mpi_c_interface" => "mpi_c_interface_cdesc", + "mpi_c_interface_cdesc" => "mpi_c_interface_nobuf", + "mpi_c_interface_nobuf" => "mpi_c_interface_glue", + "mpi_c_interface_glue" => "mpi_f08", + "mpi_f08" => "pmpi_f08", + "pmpi_f08" => "mpi_f08_link_constants", + "mpi_f08_link_constants" => "mpi_f08_callbacks", + "mpi_f08_callbacks" => "mpi_f08_compile_constants", + "mpi_f08_compile_constants" => "mpi_f08_types", + "mpi_f08_types" => "mpi_c_interface_types", + "mpi_c_interface_types" => "", + ); print $makefile_fh <<EOT; +AM_FCFLAGS += \@FCINCFLAG\@src/binding/fortran/use_mpi_f08 mpi_fc_sources += \\ src/binding/fortran/use_mpi_f08/pmpi_f08.f90 \\ @@ -122,82 +136,67 @@ mpi_fc_sources += \\ src/binding/fortran/use_mpi_f08/mpi_c_interface_cdesc.f90 \\ src/binding/fortran/use_mpi_f08/mpi_c_interface_glue.f90 \\ src/binding/fortran/use_mpi_f08/mpi_c_interface_nobuf.f90 \\ - src/binding/fortran/use_mpi_f08/mpi_c_interface_types.f90 \\ - src/binding/fortran/use_mpi/pmpi_f08.\$(MOD) \\ - src/binding/fortran/use_mpi/mpi_f08.\$(MOD) \\ - src/binding/fortran/use_mpi/mpi_f08_callbacks.\$(MOD) \\ - src/binding/fortran/use_mpi/mpi_f08_compile_constants.\$(MOD) \\ - src/binding/fortran/use_mpi/mpi_f08_link_constants.\$(MOD) \\ - src/binding/fortran/use_mpi/mpi_f08_types.\$(MOD) + src/binding/fortran/use_mpi_f08/mpi_c_interface_types.f90 -EOT - -print $makefile_fh "mpi_fc_modules += src/binding/fortran/use_mpi/mpi_f08.\$(MOD)\n\n"; - -my %f08_mods = ( - "mpi_c_interface" => "mpi_c_interface_cdesc", - "mpi_c_interface_cdesc" => "mpi_c_interface_nobuf", - "mpi_c_interface_nobuf" => "mpi_c_interface_glue", - "mpi_c_interface_glue" => "mpi_f08", - "mpi_f08" => "pmpi_f08", - "pmpi_f08" => "mpi_f08_link_constants", - "mpi_f08_link_constants" => "mpi_f08_callbacks", - "mpi_f08_callbacks" => "mpi_f08_compile_constants", - "mpi_f08_compile_constants" => "mpi_f08_types", - "mpi_f08_types" => "mpi_c_interface_types", - "mpi_c_interface_types" => "", - ); +mpi_fc_modules += src/binding/fortran/use_mpi_f08/\$(MPI_F08_NAME).\$(MOD) -print $makefile_fh "BUILT_SOURCES += "; -foreach my $x (keys %f08_mods) { - print $makefile_fh "src/binding/fortran/use_mpi/$x.\$(MOD) "; -} -print $makefile_fh "\n\n"; +EOT -print $makefile_fh "CLEANFILES += "; +print $makefile_fh "f08_module_files ="; foreach my $x (keys %f08_mods) { - print $makefile_fh "src/binding/fortran/use_mpi/$x.\$(MOD) "; + my $DOLLARX = "\$(".uc($x)."_NAME)"; # Convert to $(X_NAME) for later substitution by configure + print $makefile_fh " \\\n src/binding/fortran/use_mpi_f08/$DOLLARX.\$(MOD)"; } print $makefile_fh "\n\n"; - -foreach my $x (keys %f08_mods) { - print $makefile_fh "src/binding/fortran/use_mpi/$x.\$(MOD) src/binding/fortran/use_mpi_f08/$x.lo:"; - if ($f08_mods{$x}) {print $makefile_fh " src/binding/fortran/use_mpi/$f08_mods{$x}.\$(MOD)";} - print $makefile_fh "\n"; - print $makefile_fh "\t\$(mod_verbose)\$(FC_COMPILE_MODS) -c src/binding/fortran/use_mpi_f08/`echo \$\@ | cut -f1 -d '.' | sed -e 's+.*/++g'`.f90 -o src/binding/fortran/use_mpi_f08/`echo \$\@ | cut -f1 -d '.' | sed -e 's+.*/++g'`.lo\n\n"; -} +print $makefile_fh "BUILT_SOURCES += \$(f08_module_files)\n"; +print $makefile_fh "CLEANFILES += \$(f08_module_files)\n\n"; print $makefile_fh "mpi_fc_sources += \\\n"; -@files = glob("$wrappers_f_dir/*.f90"); +@files = glob("$wrappers_f_dir/*.f90 $pmpi_dir/*.f90"); for (my $i=0; $i<=$#files; $i++) { print $makefile_fh "\t$cur_dir/$files[$i]"; if ($i != $#files) { print $makefile_fh " \\\n"; } else { print $makefile_fh "\n\n"; } } -for (my $i=0; $i<=$#files; $i++) { - my $fname = $files[$i]; - $fname =~ s/\.f90/.lo/g; - print $makefile_fh "$cur_dir/$fname: src/binding/fortran/use_mpi/mpi_f08.\$(MOD) src/binding/fortran/use_mpi/mpi_c_interface.\$(MOD)\n\n"; -} +# Don't reuse FC_COMPILE_MODS since it has its own FCMODOUTFLAG directory +print $makefile_fh "F08_COMPILE_MODS = \$(LTFCCOMPILE)\n"; +print $makefile_fh "F08_COMPILE_MODS += \$(FCMODOUTFLAG)src/binding/fortran/use_mpi_f08\n\n"; -print $makefile_fh "mpi_fc_sources += \\\n"; -@files = glob("$pmpi_dir/*.f90"); -for (my $i=0; $i<=$#files; $i++) { - print $makefile_fh "\t$cur_dir/$files[$i]"; - if ($i != $#files) { print $makefile_fh " \\\n"; } else { print $makefile_fh "\n\n"; } -} +# Generate module files using multi-ouput automake rules. +# We need to compile modules according to dependency given in %f08_mods +foreach my $x (keys %f08_mods) { + my $DOLLARX = "\$(".uc($x)."_NAME)"; + print $makefile_fh "src/binding/fortran/use_mpi_f08/$x.stamp: src/binding/fortran/use_mpi_f08/$x.f90"; + if ($f08_mods{$x}) { print $makefile_fh " src/binding/fortran/use_mpi_f08/$f08_mods{$x}.stamp"; } + print $makefile_fh "\n"; -for (my $i=0; $i<=$#files; $i++) { - my $fname = $files[$i]; - $fname =~ s/\.f90/.lo/g; - print $makefile_fh "$cur_dir/$fname: src/binding/fortran/use_mpi/mpi_f08.\$(MOD) src/binding/fortran/use_mpi/mpi_c_interface.\$(MOD)\n\n"; + print $makefile_fh <<EOT; +\t\@rm -f src/binding/fortran/use_mpi_f08/$x.tmp +\t\@touch src/binding/fortran/use_mpi_f08/$x.tmp +\t\$(mod_verbose)\$(F08_COMPILE_MODS) -c src/binding/fortran/use_mpi_f08/$x.f90 -o src/binding/fortran/use_mpi_f08/$x.lo +\t\@mv src/binding/fortran/use_mpi_f08/$x.tmp src/binding/fortran/use_mpi_f08/$x.stamp + +src/binding/fortran/use_mpi_f08/$DOLLARX.\$(MOD) src/binding/fortran/use_mpi_f08/$x.lo : src/binding/fortran/use_mpi_f08/$x.stamp +\t\@if test -f \$@; then :; else \\ +\t trap 'rm -rf src/binding/fortran/use_mpi_f08/$x-lock src/binding/fortran/use_mpi_f08/$x.stamp' 1 2 13 15; \\ +\t if mkdir src/binding/fortran/use_mpi_f08/$x-lock 2>/dev/null; then \\ +\t rm -f src/binding/fortran/use_mpi_f08/$x.stamp; \\ +\t \$(MAKE) \$(AM_MAKEFLAGS) src/binding/fortran/use_mpi_f08/$x.stamp; \\ +\t rmdir src/binding/fortran/use_mpi_f08/$x-lock; \\ +\t else \\ +\t while test -d src/binding/fortran/use_mpi_f08/$x-lock; do sleep 1; done; \\ +\t test -f src/binding/fortran/use_mpi_f08/$x.stamp; exit \$\$?; \\ +\t fi; \\ +\tfi + +CLEANFILES += src/binding/fortran/use_mpi_f08/$DOLLARX.\$(MOD) \\ + src/binding/fortran/use_mpi_f08/$x.lo \\ + src/binding/fortran/use_mpi_f08/$x.stamp \\ + src/binding/fortran/use_mpi_f08/$x.tmp + +EOT } print $makefile_fh "include \$(top_srcdir)/src/binding/fortran/use_mpi_f08/wrappers_c/Makefile.mk\n\n"; - print $makefile_fh "endif BUILD_F08_BINDING\n"; close($makefile_fh); - -# Stage 4: Call script in ./wrappers_c to generate C wrappers for subarrays -# ===================================================================== - http://git.mpich.org/mpich.git/commitdiff/1e2e1328c117aa6c0599dbf8815a93d76… commit 1e2e1328c117aa6c0599dbf8815a93d763a2137a Author: Junchao Zhang <jczhang(a)mcs.anl.gov> Date: Sun Apr 12 13:28:20 2015 -0500 Delete module files generated in F08 config test Signed-off-by: Ken Raffenetti <raffenet(a)mcs.anl.gov> diff --git a/confdb/aclocal_fc.m4 b/confdb/aclocal_fc.m4 index 870a5be..b844009 100644 --- a/confdb/aclocal_fc.m4 +++ b/confdb/aclocal_fc.m4 @@ -1220,6 +1220,6 @@ if test "$f08_works" = "yes" ; then else $2 fi -rm -f conftest1.$OBJEXT +rm -f conftest1.$OBJEXT F08TS_MODULE.* f08ts_module.* AC_MSG_RESULT([$f08_works]) ]) http://git.mpich.org/mpich.git/commitdiff/e55cb7ffef51511fce711f3fab4c8300a… commit e55cb7ffef51511fce711f3fab4c8300a8b3132b Author: Junchao Zhang <jczhang(a)mcs.anl.gov> Date: Sun Apr 12 06:44:46 2015 -0500 Change file extension from .F90 to .f90 in mpi_f08 Since *.F90 implies the file need preprocess, e.g., by a C preprocessor, which is not required by the current f08 binding, and will lead to unnecessary compliation rules with automake. Signed-off-by: Ken Raffenetti <raffenet(a)mcs.anl.gov> diff --git a/.gitignore b/.gitignore index 113379a..c363d77 100644 --- a/.gitignore +++ b/.gitignore @@ -431,9 +431,9 @@ Makefile.am-stamp /src/binding/fortran/use_mpi/mpifnoext.h # /src/binding/fortran/use_mpi_f08 -/src/binding/fortran/use_mpi_f08/pmpi_f08.F90 +/src/binding/fortran/use_mpi_f08/pmpi_f08.f90 -/src/binding/fortran/use_mpi_f08/wrappers_f/profiling/*.F90 +/src/binding/fortran/use_mpi_f08/wrappers_f/profiling/*.f90 /src/binding/fortran/use_mpi_f08/wrappers_c/cdesc.c /src/binding/fortran/use_mpi_f08/wrappers_c/cdesc.h diff --git a/src/binding/fortran/use_mpi_f08/buildiface b/src/binding/fortran/use_mpi_f08/buildiface index 0431474..14ac3bd 100755 --- a/src/binding/fortran/use_mpi_f08/buildiface +++ b/src/binding/fortran/use_mpi_f08/buildiface @@ -12,10 +12,10 @@ my $cur_dir = "src/binding/fortran/use_mpi_f08"; my $wrappers_f_dir = "wrappers_f"; my $pmpi_dir = "wrappers_f/profiling"; -# Stage 1: Translate mpi_f08.F90 into pmpi_f08.F90 +# Stage 1: Translate mpi_f08.f90 into pmpi_f08.f90 # ===================================================================== -my $mpi_f08_file = "mpi_f08.F90"; -my $pmpi_f08_file = "pmpi_f08.F90"; +my $mpi_f08_file = "mpi_f08.f90"; +my $pmpi_f08_file = "pmpi_f08.f90"; my $mpi_f08_fh; my $pmpi_f08_fh; @@ -54,7 +54,7 @@ close($pmpi_f08_fh); # ===================================================================== mkdir $pmpi_dir unless -d $pmpi_dir; -foreach my $mpi_file (glob("$wrappers_f_dir/*.F90")) { +foreach my $mpi_file (glob("$wrappers_f_dir/*.f90")) { my $basename = basename($mpi_file); my $pmpi_file = "$pmpi_dir/p$basename"; my $mpi_fh; @@ -112,17 +112,17 @@ print $makefile_fh "AM_FCFLAGS += \@FCINCFLAG\@src/binding/fortran/use_mpi\n\n"; print $makefile_fh <<EOT; mpi_fc_sources += \\ - src/binding/fortran/use_mpi_f08/pmpi_f08.F90 \\ - src/binding/fortran/use_mpi_f08/mpi_f08.F90 \\ - src/binding/fortran/use_mpi_f08/mpi_f08_callbacks.F90 \\ - src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.F90 \\ - src/binding/fortran/use_mpi_f08/mpi_f08_link_constants.F90 \\ - src/binding/fortran/use_mpi_f08/mpi_f08_types.F90 \\ - src/binding/fortran/use_mpi_f08/mpi_c_interface.F90 \\ - src/binding/fortran/use_mpi_f08/mpi_c_interface_cdesc.F90 \\ - src/binding/fortran/use_mpi_f08/mpi_c_interface_glue.F90 \\ - src/binding/fortran/use_mpi_f08/mpi_c_interface_nobuf.F90 \\ - src/binding/fortran/use_mpi_f08/mpi_c_interface_types.F90 \\ + src/binding/fortran/use_mpi_f08/pmpi_f08.f90 \\ + src/binding/fortran/use_mpi_f08/mpi_f08.f90 \\ + src/binding/fortran/use_mpi_f08/mpi_f08_callbacks.f90 \\ + src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.f90 \\ + src/binding/fortran/use_mpi_f08/mpi_f08_link_constants.f90 \\ + src/binding/fortran/use_mpi_f08/mpi_f08_types.f90 \\ + src/binding/fortran/use_mpi_f08/mpi_c_interface.f90 \\ + src/binding/fortran/use_mpi_f08/mpi_c_interface_cdesc.f90 \\ + src/binding/fortran/use_mpi_f08/mpi_c_interface_glue.f90 \\ + src/binding/fortran/use_mpi_f08/mpi_c_interface_nobuf.f90 \\ + src/binding/fortran/use_mpi_f08/mpi_c_interface_types.f90 \\ src/binding/fortran/use_mpi/pmpi_f08.\$(MOD) \\ src/binding/fortran/use_mpi/mpi_f08.\$(MOD) \\ src/binding/fortran/use_mpi/mpi_f08_callbacks.\$(MOD) \\ @@ -164,11 +164,11 @@ foreach my $x (keys %f08_mods) { print $makefile_fh "src/binding/fortran/use_mpi/$x.\$(MOD) src/binding/fortran/use_mpi_f08/$x.lo:"; if ($f08_mods{$x}) {print $makefile_fh " src/binding/fortran/use_mpi/$f08_mods{$x}.\$(MOD)";} print $makefile_fh "\n"; - print $makefile_fh "\t\$(mod_verbose)\$(FC_COMPILE_MODS) -c src/binding/fortran/use_mpi_f08/`echo \$\@ | cut -f1 -d '.' | sed -e 's+.*/++g'`.F90 -o src/binding/fortran/use_mpi_f08/`echo \$\@ | cut -f1 -d '.' | sed -e 's+.*/++g'`.lo\n\n"; + print $makefile_fh "\t\$(mod_verbose)\$(FC_COMPILE_MODS) -c src/binding/fortran/use_mpi_f08/`echo \$\@ | cut -f1 -d '.' | sed -e 's+.*/++g'`.f90 -o src/binding/fortran/use_mpi_f08/`echo \$\@ | cut -f1 -d '.' | sed -e 's+.*/++g'`.lo\n\n"; } print $makefile_fh "mpi_fc_sources += \\\n"; -@files = glob("$wrappers_f_dir/*.F90"); +@files = glob("$wrappers_f_dir/*.f90"); for (my $i=0; $i<=$#files; $i++) { print $makefile_fh "\t$cur_dir/$files[$i]"; if ($i != $#files) { print $makefile_fh " \\\n"; } else { print $makefile_fh "\n\n"; } @@ -176,12 +176,12 @@ for (my $i=0; $i<=$#files; $i++) { for (my $i=0; $i<=$#files; $i++) { my $fname = $files[$i]; - $fname =~ s/\.F90/.lo/g; + $fname =~ s/\.f90/.lo/g; print $makefile_fh "$cur_dir/$fname: src/binding/fortran/use_mpi/mpi_f08.\$(MOD) src/binding/fortran/use_mpi/mpi_c_interface.\$(MOD)\n\n"; } print $makefile_fh "mpi_fc_sources += \\\n"; -@files = glob("$pmpi_dir/*.F90"); +@files = glob("$pmpi_dir/*.f90"); for (my $i=0; $i<=$#files; $i++) { print $makefile_fh "\t$cur_dir/$files[$i]"; if ($i != $#files) { print $makefile_fh " \\\n"; } else { print $makefile_fh "\n\n"; } @@ -189,7 +189,7 @@ for (my $i=0; $i<=$#files; $i++) { for (my $i=0; $i<=$#files; $i++) { my $fname = $files[$i]; - $fname =~ s/\.F90/.lo/g; + $fname =~ s/\.f90/.lo/g; print $makefile_fh "$cur_dir/$fname: src/binding/fortran/use_mpi/mpi_f08.\$(MOD) src/binding/fortran/use_mpi/mpi_c_interface.\$(MOD)\n\n"; } diff --git a/src/binding/fortran/use_mpi_f08/mpi_c_interface.F90 b/src/binding/fortran/use_mpi_f08/mpi_c_interface.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/mpi_c_interface.F90 rename to src/binding/fortran/use_mpi_f08/mpi_c_interface.f90 diff --git a/src/binding/fortran/use_mpi_f08/mpi_c_interface_cdesc.F90 b/src/binding/fortran/use_mpi_f08/mpi_c_interface_cdesc.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/mpi_c_interface_cdesc.F90 rename to src/binding/fortran/use_mpi_f08/mpi_c_interface_cdesc.f90 diff --git a/src/binding/fortran/use_mpi_f08/mpi_c_interface_glue.F90 b/src/binding/fortran/use_mpi_f08/mpi_c_interface_glue.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/mpi_c_interface_glue.F90 rename to src/binding/fortran/use_mpi_f08/mpi_c_interface_glue.f90 diff --git a/src/binding/fortran/use_mpi_f08/mpi_c_interface_nobuf.F90 b/src/binding/fortran/use_mpi_f08/mpi_c_interface_nobuf.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/mpi_c_interface_nobuf.F90 rename to src/binding/fortran/use_mpi_f08/mpi_c_interface_nobuf.f90 diff --git a/src/binding/fortran/use_mpi_f08/mpi_c_interface_types.F90 b/src/binding/fortran/use_mpi_f08/mpi_c_interface_types.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/mpi_c_interface_types.F90 rename to src/binding/fortran/use_mpi_f08/mpi_c_interface_types.f90 diff --git a/src/binding/fortran/use_mpi_f08/mpi_f08.F90 b/src/binding/fortran/use_mpi_f08/mpi_f08.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/mpi_f08.F90 rename to src/binding/fortran/use_mpi_f08/mpi_f08.f90 diff --git a/src/binding/fortran/use_mpi_f08/mpi_f08_callbacks.F90 b/src/binding/fortran/use_mpi_f08/mpi_f08_callbacks.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/mpi_f08_callbacks.F90 rename to src/binding/fortran/use_mpi_f08/mpi_f08_callbacks.f90 diff --git a/src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.F90 b/src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.F90 rename to src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.f90 diff --git a/src/binding/fortran/use_mpi_f08/mpi_f08_link_constants.F90 b/src/binding/fortran/use_mpi_f08/mpi_f08_link_constants.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/mpi_f08_link_constants.F90 rename to src/binding/fortran/use_mpi_f08/mpi_f08_link_constants.f90 diff --git a/src/binding/fortran/use_mpi_f08/mpi_f08_types.F90 b/src/binding/fortran/use_mpi_f08/mpi_f08_types.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/mpi_f08_types.F90 rename to src/binding/fortran/use_mpi_f08/mpi_f08_types.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/abort_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/abort_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/abort_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/abort_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/accumulate_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/accumulate_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/accumulate_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/accumulate_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/add_error_class_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/add_error_class_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/add_error_class_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/add_error_class_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/add_error_code_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/add_error_code_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/add_error_code_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/add_error_code_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/add_error_string_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/add_error_string_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/add_error_string_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/add_error_string_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/aint_add_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/aint_add_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/aint_add_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/aint_add_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/aint_diff_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/aint_diff_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/aint_diff_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/aint_diff_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/allgather_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/allgather_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/allgather_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/allgather_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/allgatherv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/allgatherv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/allgatherv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/allgatherv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/alloc_mem_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/alloc_mem_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/alloc_mem_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/alloc_mem_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/allreduce_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/allreduce_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/allreduce_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/allreduce_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/alltoall_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/alltoall_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/alltoall_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/alltoall_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/alltoallv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/alltoallv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/alltoallv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/alltoallv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/alltoallw_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/alltoallw_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/alltoallw_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/alltoallw_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/barrier_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/barrier_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/barrier_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/barrier_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/bcast_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/bcast_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/bcast_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/bcast_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/bsend_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/bsend_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/bsend_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/bsend_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/bsend_init_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/bsend_init_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/bsend_init_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/bsend_init_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/buffer_attach_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/buffer_attach_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/buffer_attach_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/buffer_attach_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/buffer_detach_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/buffer_detach_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/buffer_detach_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/buffer_detach_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/cancel_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/cancel_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/cancel_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/cancel_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/cart_coords_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/cart_coords_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/cart_coords_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/cart_coords_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/cart_create_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/cart_create_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/cart_create_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/cart_create_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/cart_get_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/cart_get_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/cart_get_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/cart_get_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/cart_map_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/cart_map_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/cart_map_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/cart_map_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/cart_rank_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/cart_rank_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/cart_rank_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/cart_rank_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/cart_shift_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/cart_shift_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/cart_shift_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/cart_shift_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/cart_sub_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/cart_sub_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/cart_sub_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/cart_sub_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/cartdim_get_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/cartdim_get_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/cartdim_get_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/cartdim_get_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/close_port_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/close_port_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/close_port_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/close_port_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_accept_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_accept_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_accept_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_accept_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_call_errhandler_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_call_errhandler_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_call_errhandler_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_call_errhandler_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_compare_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_compare_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_compare_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_compare_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_connect_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_connect_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_connect_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_connect_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_errhandler_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_errhandler_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_errhandler_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_errhandler_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_group_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_group_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_group_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_group_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_keyval_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_keyval_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_keyval_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_create_keyval_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_delete_attr_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_delete_attr_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_delete_attr_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_delete_attr_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_disconnect_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_disconnect_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_disconnect_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_disconnect_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_dup_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_dup_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_dup_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_dup_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_dup_with_info_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_dup_with_info_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_dup_with_info_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_dup_with_info_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_free_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_free_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_free_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_free_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_free_keyval_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_free_keyval_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_free_keyval_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_free_keyval_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_attr_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_attr_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_attr_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_attr_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_errhandler_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_errhandler_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_errhandler_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_errhandler_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_info_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_info_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_info_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_info_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_name_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_name_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_name_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_name_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_parent_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_parent_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_parent_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_get_parent_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_group_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_group_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_group_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_group_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_idup_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_idup_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_idup_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_idup_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_join_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_join_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_join_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_join_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_rank_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_rank_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_rank_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_rank_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_remote_group_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_remote_group_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_remote_group_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_remote_group_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_remote_size_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_remote_size_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_remote_size_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_remote_size_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_attr_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_attr_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_attr_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_attr_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_errhandler_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_errhandler_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_errhandler_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_errhandler_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_info_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_info_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_info_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_info_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_name_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_name_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_name_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_set_name_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_size_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_size_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_size_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_size_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_spawn_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_spawn_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_spawn_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_spawn_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_spawn_multiple_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_spawn_multiple_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_spawn_multiple_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_spawn_multiple_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_split_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_split_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_split_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_split_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_split_type_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_split_type_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_split_type_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_split_type_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/comm_test_inter_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/comm_test_inter_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/comm_test_inter_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/comm_test_inter_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/compare_and_swap_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/compare_and_swap_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/compare_and_swap_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/compare_and_swap_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/dims_create_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/dims_create_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/dims_create_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/dims_create_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_create_adjacent_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_create_adjacent_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_create_adjacent_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_create_adjacent_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_create_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_create_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_create_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_create_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_neighbors_count_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_neighbors_count_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_neighbors_count_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_neighbors_count_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_neighbors_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_neighbors_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_neighbors_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/dist_graph_neighbors_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/errhandler_free_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/errhandler_free_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/errhandler_free_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/errhandler_free_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/error_class_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/error_class_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/error_class_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/error_class_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/error_string_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/error_string_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/error_string_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/error_string_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/exscan_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/exscan_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/exscan_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/exscan_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/f_sync_reg_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/f_sync_reg_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/f_sync_reg_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/f_sync_reg_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/fetch_and_op_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/fetch_and_op_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/fetch_and_op_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/fetch_and_op_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_call_errhandler_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_call_errhandler_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_call_errhandler_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_call_errhandler_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_close_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_close_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_close_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_close_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_create_errhandler_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_create_errhandler_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_create_errhandler_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_create_errhandler_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_delete_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_delete_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_delete_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_delete_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_amode_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_amode_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_get_amode_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_get_amode_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_atomicity_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_atomicity_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_get_atomicity_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_get_atomicity_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_byte_offset_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_byte_offset_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_get_byte_offset_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_get_byte_offset_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_errhandler_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_errhandler_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_get_errhandler_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_get_errhandler_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_group_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_group_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_get_group_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_get_group_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_info_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_info_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_get_info_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_get_info_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_position_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_position_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_get_position_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_get_position_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_position_shared_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_position_shared_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_get_position_shared_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_get_position_shared_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_size_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_size_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_get_size_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_get_size_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_type_extent_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_type_extent_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_get_type_extent_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_get_type_extent_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_view_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_get_view_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_get_view_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_get_view_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_all_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_all_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_all_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_all_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_at_all_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_at_all_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_at_all_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_at_all_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_at_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_at_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_at_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_at_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_shared_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_shared_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_shared_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_iread_shared_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_all_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_all_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_all_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_all_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_at_all_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_at_all_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_at_all_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_at_all_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_at_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_at_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_at_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_at_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_shared_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_shared_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_shared_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_iwrite_shared_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_open_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_open_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_open_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_open_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_preallocate_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_preallocate_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_preallocate_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_preallocate_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_all_begin_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_all_begin_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_read_all_begin_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_read_all_begin_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_all_end_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_all_end_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_read_all_end_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_read_all_end_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_all_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_all_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_read_all_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_read_all_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_all_begin_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_all_begin_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_all_begin_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_all_begin_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_all_end_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_all_end_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_all_end_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_all_end_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_all_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_all_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_all_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_all_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_read_at_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_read_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_read_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_ordered_begin_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_ordered_begin_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_read_ordered_begin_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_read_ordered_begin_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_ordered_end_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_ordered_end_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_read_ordered_end_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_read_ordered_end_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_ordered_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_ordered_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_read_ordered_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_read_ordered_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_shared_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_read_shared_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_read_shared_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_read_shared_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_seek_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_seek_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_seek_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_seek_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_seek_shared_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_seek_shared_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_seek_shared_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_seek_shared_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_set_atomicity_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_set_atomicity_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_set_atomicity_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_set_atomicity_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_set_errhandler_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_set_errhandler_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_set_errhandler_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_set_errhandler_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_set_info_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_set_info_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_set_info_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_set_info_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_set_size_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_set_size_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_set_size_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_set_size_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_set_view_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_set_view_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_set_view_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_set_view_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_sync_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_sync_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_sync_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_sync_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_all_begin_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_all_begin_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_write_all_begin_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_write_all_begin_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_all_end_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_all_end_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_write_all_end_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_write_all_end_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_all_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_all_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_write_all_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_write_all_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_all_begin_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_all_begin_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_all_begin_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_all_begin_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_all_end_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_all_end_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_all_end_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_all_end_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_all_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_all_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_all_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_all_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_write_at_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_write_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_write_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_ordered_begin_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_ordered_begin_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_write_ordered_begin_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_write_ordered_begin_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_ordered_end_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_ordered_end_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_write_ordered_end_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_write_ordered_end_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_ordered_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_ordered_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_write_ordered_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_write_ordered_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_shared_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/file_write_shared_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/file_write_shared_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/file_write_shared_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/finalize_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/finalize_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/finalize_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/finalize_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/finalized_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/finalized_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/finalized_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/finalized_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/free_mem_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/free_mem_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/free_mem_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/free_mem_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/gather_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/gather_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/gather_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/gather_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/gatherv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/gatherv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/gatherv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/gatherv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/get_accumulate_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/get_accumulate_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/get_accumulate_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/get_accumulate_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/get_address_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/get_address_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/get_address_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/get_address_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/get_count_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/get_count_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/get_count_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/get_count_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/get_elements_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/get_elements_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/get_elements_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/get_elements_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/get_elements_x_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/get_elements_x_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/get_elements_x_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/get_elements_x_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/get_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/get_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/get_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/get_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/get_library_version_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/get_library_version_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/get_library_version_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/get_library_version_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/get_processor_name_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/get_processor_name_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/get_processor_name_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/get_processor_name_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/get_version_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/get_version_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/get_version_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/get_version_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/graph_create_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/graph_create_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/graph_create_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/graph_create_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/graph_get_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/graph_get_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/graph_get_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/graph_get_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/graph_map_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/graph_map_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/graph_map_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/graph_map_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/graph_neighbors_count_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/graph_neighbors_count_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/graph_neighbors_count_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/graph_neighbors_count_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/graph_neighbors_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/graph_neighbors_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/graph_neighbors_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/graph_neighbors_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/graphdims_get_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/graphdims_get_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/graphdims_get_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/graphdims_get_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/grequest_complete_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/grequest_complete_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/grequest_complete_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/grequest_complete_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/grequest_start_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/grequest_start_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/grequest_start_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/grequest_start_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/group_compare_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/group_compare_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/group_compare_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/group_compare_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/group_difference_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/group_difference_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/group_difference_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/group_difference_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/group_excl_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/group_excl_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/group_excl_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/group_excl_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/group_free_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/group_free_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/group_free_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/group_free_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/group_incl_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/group_incl_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/group_incl_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/group_incl_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/group_intersection_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/group_intersection_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/group_intersection_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/group_intersection_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/group_range_excl_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/group_range_excl_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/group_range_excl_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/group_range_excl_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/group_range_incl_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/group_range_incl_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/group_range_incl_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/group_range_incl_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/group_rank_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/group_rank_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/group_rank_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/group_rank_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/group_size_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/group_size_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/group_size_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/group_size_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/group_translate_ranks_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/group_translate_ranks_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/group_translate_ranks_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/group_translate_ranks_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/group_union_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/group_union_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/group_union_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/group_union_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/iallgather_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/iallgather_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/iallgather_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/iallgather_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/iallgatherv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/iallgatherv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/iallgatherv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/iallgatherv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/iallreduce_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/iallreduce_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/iallreduce_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/iallreduce_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ialltoall_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ialltoall_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ialltoall_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ialltoall_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ialltoallv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ialltoallv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ialltoallv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ialltoallv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ialltoallw_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ialltoallw_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ialltoallw_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ialltoallw_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ibarrier_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ibarrier_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ibarrier_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ibarrier_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ibcast_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ibcast_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ibcast_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ibcast_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ibsend_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ibsend_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ibsend_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ibsend_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/iexscan_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/iexscan_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/iexscan_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/iexscan_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/igather_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/igather_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/igather_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/igather_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/igatherv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/igatherv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/igatherv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/igatherv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/improbe_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/improbe_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/improbe_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/improbe_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/imrecv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/imrecv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/imrecv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/imrecv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_allgather_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_allgather_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_allgather_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_allgather_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_allgatherv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_allgatherv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_allgatherv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_allgatherv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_alltoall_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_alltoall_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_alltoall_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_alltoall_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_alltoallv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_alltoallv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_alltoallv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_alltoallv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_alltoallw_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_alltoallw_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_alltoallw_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ineighbor_alltoallw_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/info_create_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/info_create_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/info_create_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/info_create_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/info_delete_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/info_delete_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/info_delete_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/info_delete_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/info_dup_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/info_dup_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/info_dup_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/info_dup_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/info_free_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/info_free_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/info_free_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/info_free_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/info_get_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/info_get_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/info_get_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/info_get_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/info_get_nkeys_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/info_get_nkeys_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/info_get_nkeys_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/info_get_nkeys_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/info_get_nthkey_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/info_get_nthkey_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/info_get_nthkey_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/info_get_nthkey_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/info_get_valuelen_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/info_get_valuelen_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/info_get_valuelen_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/info_get_valuelen_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/info_set_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/info_set_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/info_set_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/info_set_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/init_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/init_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/init_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/init_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/init_thread_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/init_thread_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/init_thread_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/init_thread_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/initialized_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/initialized_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/initialized_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/initialized_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/intercomm_create_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/intercomm_create_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/intercomm_create_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/intercomm_create_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/intercomm_merge_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/intercomm_merge_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/intercomm_merge_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/intercomm_merge_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/iprobe_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/iprobe_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/iprobe_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/iprobe_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/irecv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/irecv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/irecv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/irecv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ireduce_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ireduce_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ireduce_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ireduce_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ireduce_scatter_block_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ireduce_scatter_block_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ireduce_scatter_block_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ireduce_scatter_block_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ireduce_scatter_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ireduce_scatter_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ireduce_scatter_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ireduce_scatter_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/irsend_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/irsend_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/irsend_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/irsend_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/is_thread_main_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/is_thread_main_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/is_thread_main_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/is_thread_main_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/iscan_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/iscan_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/iscan_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/iscan_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/iscatter_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/iscatter_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/iscatter_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/iscatter_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/iscatterv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/iscatterv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/iscatterv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/iscatterv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/isend_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/isend_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/isend_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/isend_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/issend_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/issend_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/issend_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/issend_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/lookup_name_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/lookup_name_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/lookup_name_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/lookup_name_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/mprobe_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/mprobe_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/mprobe_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/mprobe_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/mrecv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/mrecv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/mrecv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/mrecv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_allgather_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_allgather_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_allgather_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_allgather_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_allgatherv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_allgatherv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_allgatherv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_allgatherv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_alltoall_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_alltoall_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_alltoall_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_alltoall_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_alltoallv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_alltoallv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_alltoallv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_alltoallv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_alltoallw_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_alltoallw_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_alltoallw_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/neighbor_alltoallw_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/op_commutative_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/op_commutative_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/op_commutative_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/op_commutative_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/op_create_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/op_create_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/op_create_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/op_create_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/op_free_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/op_free_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/op_free_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/op_free_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/open_port_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/open_port_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/open_port_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/open_port_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/pack_external_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/pack_external_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/pack_external_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/pack_external_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/pack_external_size_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/pack_external_size_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/pack_external_size_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/pack_external_size_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/pack_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/pack_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/pack_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/pack_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/pack_size_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/pack_size_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/pack_size_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/pack_size_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/pcontrol_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/pcontrol_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/pcontrol_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/pcontrol_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/probe_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/probe_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/probe_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/probe_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/publish_name_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/publish_name_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/publish_name_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/publish_name_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/put_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/put_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/put_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/put_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/query_thread_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/query_thread_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/query_thread_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/query_thread_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/raccumulate_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/raccumulate_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/raccumulate_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/raccumulate_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/recv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/recv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/recv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/recv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/recv_init_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/recv_init_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/recv_init_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/recv_init_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/reduce_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/reduce_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/reduce_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/reduce_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/reduce_local_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/reduce_local_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/reduce_local_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/reduce_local_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/reduce_scatter_block_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/reduce_scatter_block_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/reduce_scatter_block_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/reduce_scatter_block_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/reduce_scatter_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/reduce_scatter_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/reduce_scatter_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/reduce_scatter_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/register_datarep_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/register_datarep_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/register_datarep_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/register_datarep_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/request_free_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/request_free_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/request_free_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/request_free_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/request_get_status_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/request_get_status_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/request_get_status_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/request_get_status_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/rget_accumulate_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/rget_accumulate_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/rget_accumulate_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/rget_accumulate_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/rget_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/rget_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/rget_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/rget_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/rput_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/rput_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/rput_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/rput_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/rsend_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/rsend_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/rsend_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/rsend_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/rsend_init_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/rsend_init_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/rsend_init_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/rsend_init_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/scan_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/scan_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/scan_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/scan_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/scatter_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/scatter_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/scatter_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/scatter_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/scatterv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/scatterv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/scatterv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/scatterv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/send_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/send_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/send_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/send_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/send_init_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/send_init_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/send_init_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/send_init_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/sendrecv_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/sendrecv_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/sendrecv_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/sendrecv_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/sendrecv_replace_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/sendrecv_replace_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/sendrecv_replace_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/sendrecv_replace_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ssend_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ssend_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ssend_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ssend_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/ssend_init_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/ssend_init_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/ssend_init_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/ssend_init_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/start_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/start_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/start_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/start_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/startall_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/startall_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/startall_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/startall_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/status_set_cancelled_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/status_set_cancelled_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/status_set_cancelled_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/status_set_cancelled_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/status_set_elements_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/status_set_elements_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/status_set_elements_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/status_set_elements_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/status_set_elements_x_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/status_set_elements_x_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/status_set_elements_x_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/status_set_elements_x_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/test_cancelled_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/test_cancelled_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/test_cancelled_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/test_cancelled_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/test_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/test_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/test_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/test_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/testall_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/testall_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/testall_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/testall_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/testany_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/testany_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/testany_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/testany_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/testsome_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/testsome_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/testsome_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/testsome_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/topo_test_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/topo_test_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/topo_test_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/topo_test_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_commit_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_commit_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_commit_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_commit_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_contiguous_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_contiguous_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_contiguous_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_contiguous_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_darray_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_darray_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_create_darray_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_create_darray_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_f90_complex_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_f90_complex_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_create_f90_complex_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_create_f90_complex_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_f90_integer_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_f90_integer_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_create_f90_integer_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_create_f90_integer_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_f90_real_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_f90_real_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_create_f90_real_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_create_f90_real_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_hindexed_block_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_hindexed_block_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_create_hindexed_block_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_create_hindexed_block_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_hindexed_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_hindexed_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_create_hindexed_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_create_hindexed_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_hvector_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_hvector_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_create_hvector_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_create_hvector_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_indexed_block_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_indexed_block_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_create_indexed_block_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_create_indexed_block_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_keyval_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_keyval_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_create_keyval_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_create_keyval_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_resized_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_resized_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_create_resized_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_create_resized_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_struct_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_struct_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_create_struct_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_create_struct_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_subarray_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_create_subarray_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_create_subarray_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_create_subarray_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_delete_attr_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_delete_attr_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_delete_attr_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_delete_attr_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_dup_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_dup_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_dup_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_dup_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_free_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_free_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_free_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_free_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_free_keyval_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_free_keyval_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_free_keyval_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_free_keyval_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_attr_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_attr_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_get_attr_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_get_attr_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_contents_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_contents_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_get_contents_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_get_contents_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_envelope_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_envelope_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_get_envelope_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_get_envelope_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_extent_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_extent_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_get_extent_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_get_extent_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_extent_x_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_extent_x_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_get_extent_x_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_get_extent_x_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_name_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_name_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_get_name_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_get_name_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_true_extent_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_true_extent_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_get_true_extent_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_get_true_extent_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_true_extent_x_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_get_true_extent_x_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_get_true_extent_x_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_get_true_extent_x_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_indexed_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_indexed_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_indexed_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_indexed_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_match_size_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_match_size_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_match_size_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_match_size_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_set_attr_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_set_attr_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_set_attr_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_set_attr_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_set_name_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_set_name_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_set_name_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_set_name_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_size_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_size_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_size_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_size_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_size_x_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_size_x_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_size_x_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_size_x_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/type_vector_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/type_vector_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/type_vector_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/type_vector_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/unpack_external_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/unpack_external_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/unpack_external_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/unpack_external_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/unpack_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/unpack_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/unpack_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/unpack_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/unpublish_name_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/unpublish_name_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/unpublish_name_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/unpublish_name_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/wait_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/wait_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/wait_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/wait_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/waitall_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/waitall_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/waitall_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/waitall_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/waitany_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/waitany_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/waitany_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/waitany_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/waitsome_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/waitsome_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/waitsome_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/waitsome_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_allocate_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_allocate_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_allocate_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_allocate_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_allocate_shared_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_allocate_shared_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_allocate_shared_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_allocate_shared_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_attach_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_attach_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_attach_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_attach_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_call_errhandler_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_call_errhandler_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_call_errhandler_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_call_errhandler_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_complete_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_complete_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_complete_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_complete_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_create_dynamic_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_create_dynamic_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_create_dynamic_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_create_dynamic_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_create_errhandler_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_create_errhandler_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_create_errhandler_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_create_errhandler_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_create_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_create_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_create_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_create_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_create_keyval_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_create_keyval_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_create_keyval_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_create_keyval_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_delete_attr_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_delete_attr_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_delete_attr_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_delete_attr_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_detach_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_detach_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_detach_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_detach_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_fence_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_fence_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_fence_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_fence_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_all_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_all_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_all_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_all_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_local_all_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_local_all_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_local_all_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_local_all_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_local_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_local_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_local_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_flush_local_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_free_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_free_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_free_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_free_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_free_keyval_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_free_keyval_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_free_keyval_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_free_keyval_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_get_attr_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_get_attr_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_get_attr_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_get_attr_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_get_errhandler_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_get_errhandler_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_get_errhandler_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_get_errhandler_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_get_group_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_get_group_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_get_group_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_get_group_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_get_info_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_get_info_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_get_info_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_get_info_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_get_name_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_get_name_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_get_name_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_get_name_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_lock_all_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_lock_all_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_lock_all_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_lock_all_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_lock_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_lock_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_lock_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_lock_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_post_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_post_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_post_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_post_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_set_attr_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_set_attr_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_set_attr_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_set_attr_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_set_errhandler_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_set_errhandler_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_set_errhandler_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_set_errhandler_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_set_info_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_set_info_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_set_info_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_set_info_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_set_name_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_set_name_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_set_name_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_set_name_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_shared_query_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_shared_query_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_shared_query_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_shared_query_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_start_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_start_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_start_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_start_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_sync_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_sync_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_sync_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_sync_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_test_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_test_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_test_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_test_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_unlock_all_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_unlock_all_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_unlock_all_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_unlock_all_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_unlock_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_unlock_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_unlock_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_unlock_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/win_wait_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/win_wait_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/win_wait_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/win_wait_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/wtick_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/wtick_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/wtick_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/wtick_f08ts.f90 diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/wtime_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/wtime_f08ts.f90 similarity index 100% rename from src/binding/fortran/use_mpi_f08/wrappers_f/wtime_f08ts.F90 rename to src/binding/fortran/use_mpi_f08/wrappers_f/wtime_f08ts.f90 ----------------------------------------------------------------------- Summary of changes: .gitignore | 9 +- confdb/aclocal_fc.m4 | 2 +- configure.ac | 173 +++++ src/binding/fortran/use_mpi_f08/buildiface | 683 ++++++++++++++++++-- .../{mpi_c_interface.F90 => mpi_c_interface.f90} | 0 ...terface_cdesc.F90 => mpi_c_interface_cdesc.f90} | 0 ...interface_glue.F90 => mpi_c_interface_glue.f90} | 0 ...terface_nobuf.F90 => mpi_c_interface_nobuf.f90} | 0 .../fortran/use_mpi_f08/mpi_c_interface_types.F90 | 83 --- .../use_mpi_f08/{mpi_f08.F90 => mpi_f08.f90} | 0 ...mpi_f08_callbacks.F90 => mpi_f08_callbacks.f90} | 0 .../use_mpi_f08/mpi_f08_compile_constants.F90 | 437 ------------- ...nk_constants.F90 => mpi_f08_link_constants.f90} | 0 .../{mpi_f08_types.F90 => mpi_f08_types.f90} | 0 .../{abort_f08ts.F90 => abort_f08ts.f90} | 0 .../{accumulate_f08ts.F90 => accumulate_f08ts.f90} | 0 ...r_class_f08ts.F90 => add_error_class_f08ts.f90} | 0 ...ror_code_f08ts.F90 => add_error_code_f08ts.f90} | 0 ...string_f08ts.F90 => add_error_string_f08ts.f90} | 0 .../{aint_add_f08ts.F90 => aint_add_f08ts.f90} | 0 .../{aint_diff_f08ts.F90 => aint_diff_f08ts.f90} | 0 .../{allgather_f08ts.F90 => allgather_f08ts.f90} | 0 .../{allgatherv_f08ts.F90 => allgatherv_f08ts.f90} | 0 .../{alloc_mem_f08ts.F90 => alloc_mem_f08ts.f90} | 0 .../{allreduce_f08ts.F90 => allreduce_f08ts.f90} | 0 .../{alltoall_f08ts.F90 => alltoall_f08ts.f90} | 0 .../{alltoallv_f08ts.F90 => alltoallv_f08ts.f90} | 0 .../{alltoallw_f08ts.F90 => alltoallw_f08ts.f90} | 0 .../{barrier_f08ts.F90 => barrier_f08ts.f90} | 0 .../{bcast_f08ts.F90 => bcast_f08ts.f90} | 0 .../{bsend_f08ts.F90 => bsend_f08ts.f90} | 0 .../{bsend_init_f08ts.F90 => bsend_init_f08ts.f90} | 0 ...er_attach_f08ts.F90 => buffer_attach_f08ts.f90} | 0 ...er_detach_f08ts.F90 => buffer_detach_f08ts.f90} | 0 .../{cancel_f08ts.F90 => cancel_f08ts.f90} | 0 ...cart_coords_f08ts.F90 => cart_coords_f08ts.f90} | 0 ...cart_create_f08ts.F90 => cart_create_f08ts.f90} | 0 .../{cart_get_f08ts.F90 => cart_get_f08ts.f90} | 0 .../{cart_map_f08ts.F90 => cart_map_f08ts.f90} | 0 .../{cart_rank_f08ts.F90 => cart_rank_f08ts.f90} | 0 .../{cart_shift_f08ts.F90 => cart_shift_f08ts.f90} | 0 .../{cart_sub_f08ts.F90 => cart_sub_f08ts.f90} | 0 ...cartdim_get_f08ts.F90 => cartdim_get_f08ts.f90} | 0 .../{close_port_f08ts.F90 => close_port_f08ts.f90} | 0 ...comm_accept_f08ts.F90 => comm_accept_f08ts.f90} | 0 ...er_f08ts.F90 => comm_call_errhandler_f08ts.f90} | 0 ...mm_compare_f08ts.F90 => comm_compare_f08ts.f90} | 0 ...mm_connect_f08ts.F90 => comm_connect_f08ts.f90} | 0 ..._f08ts.F90 => comm_create_errhandler_f08ts.f90} | 0 ...comm_create_f08ts.F90 => comm_create_f08ts.f90} | 0 ...group_f08ts.F90 => comm_create_group_f08ts.f90} | 0 ...yval_f08ts.F90 => comm_create_keyval_f08ts.f90} | 0 ...e_attr_f08ts.F90 => comm_delete_attr_f08ts.f90} | 0 ...connect_f08ts.F90 => comm_disconnect_f08ts.f90} | 0 .../{comm_dup_f08ts.F90 => comm_dup_f08ts.f90} | 0 ...info_f08ts.F90 => comm_dup_with_info_f08ts.f90} | 0 .../{comm_free_f08ts.F90 => comm_free_f08ts.f90} | 0 ...keyval_f08ts.F90 => comm_free_keyval_f08ts.f90} | 0 ..._get_attr_f08ts.F90 => comm_get_attr_f08ts.f90} | 0 ...ler_f08ts.F90 => comm_get_errhandler_f08ts.f90} | 0 ..._get_info_f08ts.F90 => comm_get_info_f08ts.f90} | 0 ..._get_name_f08ts.F90 => comm_get_name_f08ts.f90} | 0 ..._parent_f08ts.F90 => comm_get_parent_f08ts.f90} | 0 .../{comm_group_f08ts.F90 => comm_group_f08ts.f90} | 0 .../{comm_idup_f08ts.F90 => comm_idup_f08ts.f90} | 0 .../{comm_join_f08ts.F90 => comm_join_f08ts.f90} | 0 .../{comm_rank_f08ts.F90 => comm_rank_f08ts.f90} | 0 ...group_f08ts.F90 => comm_remote_group_f08ts.f90} | 0 ...e_size_f08ts.F90 => comm_remote_size_f08ts.f90} | 0 ..._set_attr_f08ts.F90 => comm_set_attr_f08ts.f90} | 0 ...ler_f08ts.F90 => comm_set_errhandler_f08ts.f90} | 0 ..._set_info_f08ts.F90 => comm_set_info_f08ts.f90} | 0 ..._set_name_f08ts.F90 => comm_set_name_f08ts.f90} | 0 .../{comm_size_f08ts.F90 => comm_size_f08ts.f90} | 0 .../{comm_spawn_f08ts.F90 => comm_spawn_f08ts.f90} | 0 ...ple_f08ts.F90 => comm_spawn_multiple_f08ts.f90} | 0 .../{comm_split_f08ts.F90 => comm_split_f08ts.f90} | 0 ...it_type_f08ts.F90 => comm_split_type_f08ts.f90} | 0 ...t_inter_f08ts.F90 => comm_test_inter_f08ts.f90} | 0 ...d_swap_f08ts.F90 => compare_and_swap_f08ts.f90} | 0 ...dims_create_f08ts.F90 => dims_create_f08ts.f90} | 0 ...ts.F90 => dist_graph_create_adjacent_f08ts.f90} | 0 ...reate_f08ts.F90 => dist_graph_create_f08ts.f90} | 0 ...ts.F90 => dist_graph_neighbors_count_f08ts.f90} | 0 ...rs_f08ts.F90 => dist_graph_neighbors_f08ts.f90} | 0 ...er_free_f08ts.F90 => errhandler_free_f08ts.f90} | 0 ...error_class_f08ts.F90 => error_class_f08ts.f90} | 0 ...ror_string_f08ts.F90 => error_string_f08ts.f90} | 0 .../{exscan_f08ts.F90 => exscan_f08ts.f90} | 0 .../{f_sync_reg_f08ts.F90 => f_sync_reg_f08ts.f90} | 0 ...tch_and_op_f08ts.F90 => fetch_and_op_f08ts.f90} | 0 ...er_f08ts.F90 => file_call_errhandler_f08ts.f90} | 0 .../{file_close_f08ts.F90 => file_close_f08ts.f90} | 0 ..._f08ts.F90 => file_create_errhandler_f08ts.f90} | 0 ...file_delete_f08ts.F90 => file_delete_f08ts.f90} | 0 ...et_amode_f08ts.F90 => file_get_amode_f08ts.f90} | 0 ...city_f08ts.F90 => file_get_atomicity_f08ts.f90} | 0 ...et_f08ts.F90 => file_get_byte_offset_f08ts.f90} | 0 ...ler_f08ts.F90 => file_get_errhandler_f08ts.f90} | 0 ...et_group_f08ts.F90 => file_get_group_f08ts.f90} | 0 ..._get_info_f08ts.F90 => file_get_info_f08ts.f90} | 0 ...ition_f08ts.F90 => file_get_position_f08ts.f90} | 0 ...08ts.F90 => file_get_position_shared_f08ts.f90} | 0 ..._get_size_f08ts.F90 => file_get_size_f08ts.f90} | 0 ...nt_f08ts.F90 => file_get_type_extent_f08ts.f90} | 0 ..._get_view_f08ts.F90 => file_get_view_f08ts.f90} | 0 ...read_all_f08ts.F90 => file_iread_all_f08ts.f90} | 0 ...t_all_f08ts.F90 => file_iread_at_all_f08ts.f90} | 0 ..._iread_at_f08ts.F90 => file_iread_at_f08ts.f90} | 0 .../{file_iread_f08ts.F90 => file_iread_f08ts.f90} | 0 ...hared_f08ts.F90 => file_iread_shared_f08ts.f90} | 0 ...ite_all_f08ts.F90 => file_iwrite_all_f08ts.f90} | 0 ..._all_f08ts.F90 => file_iwrite_at_all_f08ts.f90} | 0 ...write_at_f08ts.F90 => file_iwrite_at_f08ts.f90} | 0 ...file_iwrite_f08ts.F90 => file_iwrite_f08ts.f90} | 0 ...ared_f08ts.F90 => file_iwrite_shared_f08ts.f90} | 0 .../{file_open_f08ts.F90 => file_open_f08ts.f90} | 0 ...locate_f08ts.F90 => file_preallocate_f08ts.f90} | 0 ...gin_f08ts.F90 => file_read_all_begin_f08ts.f90} | 0 ...l_end_f08ts.F90 => file_read_all_end_f08ts.f90} | 0 ..._read_all_f08ts.F90 => file_read_all_f08ts.f90} | 0 ..._f08ts.F90 => file_read_at_all_begin_f08ts.f90} | 0 ...nd_f08ts.F90 => file_read_at_all_end_f08ts.f90} | 0 ...at_all_f08ts.F90 => file_read_at_all_f08ts.f90} | 0 ...le_read_at_f08ts.F90 => file_read_at_f08ts.f90} | 0 .../{file_read_f08ts.F90 => file_read_f08ts.f90} | 0 ...f08ts.F90 => file_read_ordered_begin_f08ts.f90} | 0 ...d_f08ts.F90 => file_read_ordered_end_f08ts.f90} | 0 ...dered_f08ts.F90 => file_read_ordered_f08ts.f90} | 0 ...shared_f08ts.F90 => file_read_shared_f08ts.f90} | 0 .../{file_seek_f08ts.F90 => file_seek_f08ts.f90} | 0 ...shared_f08ts.F90 => file_seek_shared_f08ts.f90} | 0 ...city_f08ts.F90 => file_set_atomicity_f08ts.f90} | 0 ...ler_f08ts.F90 => file_set_errhandler_f08ts.f90} | 0 ..._set_info_f08ts.F90 => file_set_info_f08ts.f90} | 0 ..._set_size_f08ts.F90 => file_set_size_f08ts.f90} | 0 ..._set_view_f08ts.F90 => file_set_view_f08ts.f90} | 0 .../{file_sync_f08ts.F90 => file_sync_f08ts.f90} | 0 ...in_f08ts.F90 => file_write_all_begin_f08ts.f90} | 0 ..._end_f08ts.F90 => file_write_all_end_f08ts.f90} | 0 ...rite_all_f08ts.F90 => file_write_all_f08ts.f90} | 0 ...f08ts.F90 => file_write_at_all_begin_f08ts.f90} | 0 ...d_f08ts.F90 => file_write_at_all_end_f08ts.f90} | 0 ...t_all_f08ts.F90 => file_write_at_all_f08ts.f90} | 0 ..._write_at_f08ts.F90 => file_write_at_f08ts.f90} | 0 .../{file_write_f08ts.F90 => file_write_f08ts.f90} | 0 ...08ts.F90 => file_write_ordered_begin_f08ts.f90} | 0 ..._f08ts.F90 => file_write_ordered_end_f08ts.f90} | 0 ...ered_f08ts.F90 => file_write_ordered_f08ts.f90} | 0 ...hared_f08ts.F90 => file_write_shared_f08ts.f90} | 0 .../{finalize_f08ts.F90 => finalize_f08ts.f90} | 0 .../{finalized_f08ts.F90 => finalized_f08ts.f90} | 0 .../{free_mem_f08ts.F90 => free_mem_f08ts.f90} | 0 .../{gather_f08ts.F90 => gather_f08ts.f90} | 0 .../{gatherv_f08ts.F90 => gatherv_f08ts.f90} | 0 ...cumulate_f08ts.F90 => get_accumulate_f08ts.f90} | 0 ...get_address_f08ts.F90 => get_address_f08ts.f90} | 0 .../{get_count_f08ts.F90 => get_count_f08ts.f90} | 0 ...t_elements_f08ts.F90 => get_elements_f08ts.f90} | 0 ...ements_x_f08ts.F90 => get_elements_x_f08ts.f90} | 0 .../wrappers_f/{get_f08ts.F90 => get_f08ts.f90} | 0 ...ion_f08ts.F90 => get_library_version_f08ts.f90} | 0 ...name_f08ts.F90 => get_processor_name_f08ts.f90} | 0 ...get_version_f08ts.F90 => get_version_f08ts.f90} | 0 ...aph_create_f08ts.F90 => graph_create_f08ts.f90} | 0 .../{graph_get_f08ts.F90 => graph_get_f08ts.f90} | 0 .../{graph_map_f08ts.F90 => graph_map_f08ts.f90} | 0 ...t_f08ts.F90 => graph_neighbors_count_f08ts.f90} | 0 ...ighbors_f08ts.F90 => graph_neighbors_f08ts.f90} | 0 ...hdims_get_f08ts.F90 => graphdims_get_f08ts.f90} | 0 ...plete_f08ts.F90 => grequest_complete_f08ts.f90} | 0 ...st_start_f08ts.F90 => grequest_start_f08ts.f90} | 0 ...p_compare_f08ts.F90 => group_compare_f08ts.f90} | 0 ...erence_f08ts.F90 => group_difference_f08ts.f90} | 0 .../{group_excl_f08ts.F90 => group_excl_f08ts.f90} | 0 .../{group_free_f08ts.F90 => group_free_f08ts.f90} | 0 .../{group_incl_f08ts.F90 => group_incl_f08ts.f90} | 0 ...tion_f08ts.F90 => group_intersection_f08ts.f90} | 0 ...e_excl_f08ts.F90 => group_range_excl_f08ts.f90} | 0 ...e_incl_f08ts.F90 => group_range_incl_f08ts.f90} | 0 .../{group_rank_f08ts.F90 => group_rank_f08ts.f90} | 0 .../{group_size_f08ts.F90 => group_size_f08ts.f90} | 0 ...s_f08ts.F90 => group_translate_ranks_f08ts.f90} | 0 ...group_union_f08ts.F90 => group_union_f08ts.f90} | 0 .../{iallgather_f08ts.F90 => iallgather_f08ts.f90} | 0 ...iallgatherv_f08ts.F90 => iallgatherv_f08ts.f90} | 0 .../{iallreduce_f08ts.F90 => iallreduce_f08ts.f90} | 0 .../{ialltoall_f08ts.F90 => ialltoall_f08ts.f90} | 0 .../{ialltoallv_f08ts.F90 => ialltoallv_f08ts.f90} | 0 .../{ialltoallw_f08ts.F90 => ialltoallw_f08ts.f90} | 0 .../{ibarrier_f08ts.F90 => ibarrier_f08ts.f90} | 0 .../{ibcast_f08ts.F90 => ibcast_f08ts.f90} | 0 .../{ibsend_f08ts.F90 => ibsend_f08ts.f90} | 0 .../{iexscan_f08ts.F90 => iexscan_f08ts.f90} | 0 .../{igather_f08ts.F90 => igather_f08ts.f90} | 0 .../{igatherv_f08ts.F90 => igatherv_f08ts.f90} | 0 .../{improbe_f08ts.F90 => improbe_f08ts.f90} | 0 .../{imrecv_f08ts.F90 => imrecv_f08ts.f90} | 0 ...her_f08ts.F90 => ineighbor_allgather_f08ts.f90} | 0 ...rv_f08ts.F90 => ineighbor_allgatherv_f08ts.f90} | 0 ...oall_f08ts.F90 => ineighbor_alltoall_f08ts.f90} | 0 ...llv_f08ts.F90 => ineighbor_alltoallv_f08ts.f90} | 0 ...llw_f08ts.F90 => ineighbor_alltoallw_f08ts.f90} | 0 ...info_create_f08ts.F90 => info_create_f08ts.f90} | 0 ...info_delete_f08ts.F90 => info_delete_f08ts.f90} | 0 .../{info_dup_f08ts.F90 => info_dup_f08ts.f90} | 0 .../{info_free_f08ts.F90 => info_free_f08ts.f90} | 0 .../{info_get_f08ts.F90 => info_get_f08ts.f90} | 0 ...et_nkeys_f08ts.F90 => info_get_nkeys_f08ts.f90} | 0 ..._nthkey_f08ts.F90 => info_get_nthkey_f08ts.f90} | 0 ...uelen_f08ts.F90 => info_get_valuelen_f08ts.f90} | 0 .../{info_set_f08ts.F90 => info_set_f08ts.f90} | 0 .../wrappers_f/{init_f08ts.F90 => init_f08ts.f90} | 0 ...init_thread_f08ts.F90 => init_thread_f08ts.f90} | 0 ...initialized_f08ts.F90 => initialized_f08ts.f90} | 0 ...create_f08ts.F90 => intercomm_create_f08ts.f90} | 0 ...m_merge_f08ts.F90 => intercomm_merge_f08ts.f90} | 0 .../{iprobe_f08ts.F90 => iprobe_f08ts.f90} | 0 .../{irecv_f08ts.F90 => irecv_f08ts.f90} | 0 .../{ireduce_f08ts.F90 => ireduce_f08ts.f90} | 0 ...k_f08ts.F90 => ireduce_scatter_block_f08ts.f90} | 0 ...scatter_f08ts.F90 => ireduce_scatter_f08ts.f90} | 0 .../{irsend_f08ts.F90 => irsend_f08ts.f90} | 0 ...ead_main_f08ts.F90 => is_thread_main_f08ts.f90} | 0 .../{iscan_f08ts.F90 => iscan_f08ts.f90} | 0 .../{iscatter_f08ts.F90 => iscatter_f08ts.f90} | 0 .../{iscatterv_f08ts.F90 => iscatterv_f08ts.f90} | 0 .../{isend_f08ts.F90 => isend_f08ts.f90} | 0 .../{issend_f08ts.F90 => issend_f08ts.f90} | 0 ...lookup_name_f08ts.F90 => lookup_name_f08ts.f90} | 0 .../{mprobe_f08ts.F90 => mprobe_f08ts.f90} | 0 .../{mrecv_f08ts.F90 => mrecv_f08ts.f90} | 0 ...ther_f08ts.F90 => neighbor_allgather_f08ts.f90} | 0 ...erv_f08ts.F90 => neighbor_allgatherv_f08ts.f90} | 0 ...toall_f08ts.F90 => neighbor_alltoall_f08ts.f90} | 0 ...allv_f08ts.F90 => neighbor_alltoallv_f08ts.f90} | 0 ...allw_f08ts.F90 => neighbor_alltoallw_f08ts.f90} | 0 ...mutative_f08ts.F90 => op_commutative_f08ts.f90} | 0 .../{op_create_f08ts.F90 => op_create_f08ts.f90} | 0 .../{op_free_f08ts.F90 => op_free_f08ts.f90} | 0 .../{open_port_f08ts.F90 => open_port_f08ts.f90} | 0 ..._external_f08ts.F90 => pack_external_f08ts.f90} | 0 ...size_f08ts.F90 => pack_external_size_f08ts.f90} | 0 .../wrappers_f/{pack_f08ts.F90 => pack_f08ts.f90} | 0 .../{pack_size_f08ts.F90 => pack_size_f08ts.f90} | 0 .../{pcontrol_f08ts.F90 => pcontrol_f08ts.f90} | 0 .../{probe_f08ts.F90 => probe_f08ts.f90} | 0 ...blish_name_f08ts.F90 => publish_name_f08ts.f90} | 0 .../wrappers_f/{put_f08ts.F90 => put_f08ts.f90} | 0 ...ery_thread_f08ts.F90 => query_thread_f08ts.f90} | 0 ...raccumulate_f08ts.F90 => raccumulate_f08ts.f90} | 0 .../wrappers_f/{recv_f08ts.F90 => recv_f08ts.f90} | 0 .../{recv_init_f08ts.F90 => recv_init_f08ts.f90} | 0 .../{reduce_f08ts.F90 => reduce_f08ts.f90} | 0 ...duce_local_f08ts.F90 => reduce_local_f08ts.f90} | 0 ...ck_f08ts.F90 => reduce_scatter_block_f08ts.f90} | 0 ..._scatter_f08ts.F90 => reduce_scatter_f08ts.f90} | 0 ...atarep_f08ts.F90 => register_datarep_f08ts.f90} | 0 ...quest_free_f08ts.F90 => request_free_f08ts.f90} | 0 ...atus_f08ts.F90 => request_get_status_f08ts.f90} | 0 ...umulate_f08ts.F90 => rget_accumulate_f08ts.f90} | 0 .../wrappers_f/{rget_f08ts.F90 => rget_f08ts.f90} | 0 .../wrappers_f/{rput_f08ts.F90 => rput_f08ts.f90} | 0 .../{rsend_f08ts.F90 => rsend_f08ts.f90} | 0 .../{rsend_init_f08ts.F90 => rsend_init_f08ts.f90} | 0 .../wrappers_f/{scan_f08ts.F90 => scan_f08ts.f90} | 0 .../{scatter_f08ts.F90 => scatter_f08ts.f90} | 0 .../{scatterv_f08ts.F90 => scatterv_f08ts.f90} | 0 .../wrappers_f/{send_f08ts.F90 => send_f08ts.f90} | 0 .../{send_init_f08ts.F90 => send_init_f08ts.f90} | 0 .../{sendrecv_f08ts.F90 => sendrecv_f08ts.f90} | 0 ...eplace_f08ts.F90 => sendrecv_replace_f08ts.f90} | 0 .../{ssend_f08ts.F90 => ssend_f08ts.f90} | 0 .../{ssend_init_f08ts.F90 => ssend_init_f08ts.f90} | 0 .../{start_f08ts.F90 => start_f08ts.f90} | 0 .../{startall_f08ts.F90 => startall_f08ts.f90} | 0 ...ed_f08ts.F90 => status_set_cancelled_f08ts.f90} | 0 ...nts_f08ts.F90 => status_set_elements_f08ts.f90} | 0 ...x_f08ts.F90 => status_set_elements_x_f08ts.f90} | 0 ...ancelled_f08ts.F90 => test_cancelled_f08ts.f90} | 0 .../wrappers_f/{test_f08ts.F90 => test_f08ts.f90} | 0 .../{testall_f08ts.F90 => testall_f08ts.f90} | 0 .../{testany_f08ts.F90 => testany_f08ts.f90} | 0 .../{testsome_f08ts.F90 => testsome_f08ts.f90} | 0 .../{topo_test_f08ts.F90 => topo_test_f08ts.f90} | 0 ...type_commit_f08ts.F90 => type_commit_f08ts.f90} | 0 ...tiguous_f08ts.F90 => type_contiguous_f08ts.f90} | 0 ...rray_f08ts.F90 => type_create_darray_f08ts.f90} | 0 ...f08ts.F90 => type_create_f90_complex_f08ts.f90} | 0 ...f08ts.F90 => type_create_f90_integer_f08ts.f90} | 0 ...al_f08ts.F90 => type_create_f90_real_f08ts.f90} | 0 ...ts.F90 => type_create_hindexed_block_f08ts.f90} | 0 ...ed_f08ts.F90 => type_create_hindexed_f08ts.f90} | 0 ...tor_f08ts.F90 => type_create_hvector_f08ts.f90} | 0 ...8ts.F90 => type_create_indexed_block_f08ts.f90} | 0 ...yval_f08ts.F90 => type_create_keyval_f08ts.f90} | 0 ...zed_f08ts.F90 => type_create_resized_f08ts.f90} | 0 ...ruct_f08ts.F90 => type_create_struct_f08ts.f90} | 0 ...ay_f08ts.F90 => type_create_subarray_f08ts.f90} | 0 ...e_attr_f08ts.F90 => type_delete_attr_f08ts.f90} | 0 .../{type_dup_f08ts.F90 => type_dup_f08ts.f90} | 0 .../{type_free_f08ts.F90 => type_free_f08ts.f90} | 0 ...keyval_f08ts.F90 => type_free_keyval_f08ts.f90} | 0 ..._get_attr_f08ts.F90 => type_get_attr_f08ts.f90} | 0 ...tents_f08ts.F90 => type_get_contents_f08ts.f90} | 0 ...elope_f08ts.F90 => type_get_envelope_f08ts.f90} | 0 ..._extent_f08ts.F90 => type_get_extent_f08ts.f90} | 0 ...ent_x_f08ts.F90 => type_get_extent_x_f08ts.f90} | 0 ..._get_name_f08ts.F90 => type_get_name_f08ts.f90} | 0 ...nt_f08ts.F90 => type_get_true_extent_f08ts.f90} | 0 ..._f08ts.F90 => type_get_true_extent_x_f08ts.f90} | 0 ...pe_indexed_f08ts.F90 => type_indexed_f08ts.f90} | 0 ...ch_size_f08ts.F90 => type_match_size_f08ts.f90} | 0 ..._set_attr_f08ts.F90 => type_set_attr_f08ts.f90} | 0 ..._set_name_f08ts.F90 => type_set_name_f08ts.f90} | 0 .../{type_size_f08ts.F90 => type_size_f08ts.f90} | 0 ...type_size_x_f08ts.F90 => type_size_x_f08ts.f90} | 0 ...type_vector_f08ts.F90 => type_vector_f08ts.f90} | 0 ...xternal_f08ts.F90 => unpack_external_f08ts.f90} | 0 .../{unpack_f08ts.F90 => unpack_f08ts.f90} | 0 ...ish_name_f08ts.F90 => unpublish_name_f08ts.f90} | 0 .../wrappers_f/{wait_f08ts.F90 => wait_f08ts.f90} | 0 .../{waitall_f08ts.F90 => waitall_f08ts.f90} | 0 .../{waitany_f08ts.F90 => waitany_f08ts.f90} | 0 .../{waitsome_f08ts.F90 => waitsome_f08ts.f90} | 0 ...n_allocate_f08ts.F90 => win_allocate_f08ts.f90} | 0 ...red_f08ts.F90 => win_allocate_shared_f08ts.f90} | 0 .../{win_attach_f08ts.F90 => win_attach_f08ts.f90} | 0 ...ler_f08ts.F90 => win_call_errhandler_f08ts.f90} | 0 ...n_complete_f08ts.F90 => win_complete_f08ts.f90} | 0 ...amic_f08ts.F90 => win_create_dynamic_f08ts.f90} | 0 ...r_f08ts.F90 => win_create_errhandler_f08ts.f90} | 0 .../{win_create_f08ts.F90 => win_create_f08ts.f90} | 0 ...eyval_f08ts.F90 => win_create_keyval_f08ts.f90} | 0 ...te_attr_f08ts.F90 => win_delete_attr_f08ts.f90} | 0 .../{win_detach_f08ts.F90 => win_detach_f08ts.f90} | 0 .../{win_fence_f08ts.F90 => win_fence_f08ts.f90} | 0 ...flush_all_f08ts.F90 => win_flush_all_f08ts.f90} | 0 .../{win_flush_f08ts.F90 => win_flush_f08ts.f90} | 0 ...all_f08ts.F90 => win_flush_local_all_f08ts.f90} | 0 ...h_local_f08ts.F90 => win_flush_local_f08ts.f90} | 0 .../{win_free_f08ts.F90 => win_free_f08ts.f90} | 0 ..._keyval_f08ts.F90 => win_free_keyval_f08ts.f90} | 0 ...n_get_attr_f08ts.F90 => win_get_attr_f08ts.f90} | 0 ...dler_f08ts.F90 => win_get_errhandler_f08ts.f90} | 0 ...get_group_f08ts.F90 => win_get_group_f08ts.f90} | 0 ...n_get_info_f08ts.F90 => win_get_info_f08ts.f90} | 0 ...n_get_name_f08ts.F90 => win_get_name_f08ts.f90} | 0 ...n_lock_all_f08ts.F90 => win_lock_all_f08ts.f90} | 0 .../{win_lock_f08ts.F90 => win_lock_f08ts.f90} | 0 .../{win_post_f08ts.F90 => win_post_f08ts.f90} | 0 ...n_set_attr_f08ts.F90 => win_set_attr_f08ts.f90} | 0 ...dler_f08ts.F90 => win_set_errhandler_f08ts.f90} | 0 ...n_set_info_f08ts.F90 => win_set_info_f08ts.f90} | 0 ...n_set_name_f08ts.F90 => win_set_name_f08ts.f90} | 0 ..._query_f08ts.F90 => win_shared_query_f08ts.f90} | 0 .../{win_start_f08ts.F90 => win_start_f08ts.f90} | 0 .../{win_sync_f08ts.F90 => win_sync_f08ts.f90} | 0 .../{win_test_f08ts.F90 => win_test_f08ts.f90} | 0 ...lock_all_f08ts.F90 => win_unlock_all_f08ts.f90} | 0 .../{win_unlock_f08ts.F90 => win_unlock_f08ts.f90} | 0 .../{win_wait_f08ts.F90 => win_wait_f08ts.f90} | 0 .../{wtick_f08ts.F90 => wtick_f08ts.f90} | 0 .../{wtime_f08ts.F90 => wtime_f08ts.f90} | 0 src/include/mpi.h.in | 2 +- 365 files changed, 802 insertions(+), 587 deletions(-) rename src/binding/fortran/use_mpi_f08/{mpi_c_interface.F90 => mpi_c_interface.f90} (100%) rename src/binding/fortran/use_mpi_f08/{mpi_c_interface_cdesc.F90 => mpi_c_interface_cdesc.f90} (100%) rename src/binding/fortran/use_mpi_f08/{mpi_c_interface_glue.F90 => mpi_c_interface_glue.f90} (100%) rename src/binding/fortran/use_mpi_f08/{mpi_c_interface_nobuf.F90 => mpi_c_interface_nobuf.f90} (100%) delete mode 100644 src/binding/fortran/use_mpi_f08/mpi_c_interface_types.F90 rename src/binding/fortran/use_mpi_f08/{mpi_f08.F90 => mpi_f08.f90} (100%) rename src/binding/fortran/use_mpi_f08/{mpi_f08_callbacks.F90 => mpi_f08_callbacks.f90} (100%) delete mode 100644 src/binding/fortran/use_mpi_f08/mpi_f08_compile_constants.F90 rename src/binding/fortran/use_mpi_f08/{mpi_f08_link_constants.F90 => mpi_f08_link_constants.f90} (100%) rename src/binding/fortran/use_mpi_f08/{mpi_f08_types.F90 => mpi_f08_types.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{abort_f08ts.F90 => abort_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{accumulate_f08ts.F90 => accumulate_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{add_error_class_f08ts.F90 => add_error_class_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{add_error_code_f08ts.F90 => add_error_code_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{add_error_string_f08ts.F90 => add_error_string_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{aint_add_f08ts.F90 => aint_add_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{aint_diff_f08ts.F90 => aint_diff_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{allgather_f08ts.F90 => allgather_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{allgatherv_f08ts.F90 => allgatherv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{alloc_mem_f08ts.F90 => alloc_mem_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{allreduce_f08ts.F90 => allreduce_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{alltoall_f08ts.F90 => alltoall_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{alltoallv_f08ts.F90 => alltoallv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{alltoallw_f08ts.F90 => alltoallw_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{barrier_f08ts.F90 => barrier_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{bcast_f08ts.F90 => bcast_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{bsend_f08ts.F90 => bsend_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{bsend_init_f08ts.F90 => bsend_init_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{buffer_attach_f08ts.F90 => buffer_attach_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{buffer_detach_f08ts.F90 => buffer_detach_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{cancel_f08ts.F90 => cancel_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{cart_coords_f08ts.F90 => cart_coords_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{cart_create_f08ts.F90 => cart_create_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{cart_get_f08ts.F90 => cart_get_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{cart_map_f08ts.F90 => cart_map_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{cart_rank_f08ts.F90 => cart_rank_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{cart_shift_f08ts.F90 => cart_shift_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{cart_sub_f08ts.F90 => cart_sub_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{cartdim_get_f08ts.F90 => cartdim_get_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{close_port_f08ts.F90 => close_port_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_accept_f08ts.F90 => comm_accept_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_call_errhandler_f08ts.F90 => comm_call_errhandler_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_compare_f08ts.F90 => comm_compare_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_connect_f08ts.F90 => comm_connect_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_create_errhandler_f08ts.F90 => comm_create_errhandler_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_create_f08ts.F90 => comm_create_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_create_group_f08ts.F90 => comm_create_group_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_create_keyval_f08ts.F90 => comm_create_keyval_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_delete_attr_f08ts.F90 => comm_delete_attr_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_disconnect_f08ts.F90 => comm_disconnect_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_dup_f08ts.F90 => comm_dup_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_dup_with_info_f08ts.F90 => comm_dup_with_info_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_free_f08ts.F90 => comm_free_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_free_keyval_f08ts.F90 => comm_free_keyval_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_get_attr_f08ts.F90 => comm_get_attr_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_get_errhandler_f08ts.F90 => comm_get_errhandler_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_get_info_f08ts.F90 => comm_get_info_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_get_name_f08ts.F90 => comm_get_name_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_get_parent_f08ts.F90 => comm_get_parent_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_group_f08ts.F90 => comm_group_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_idup_f08ts.F90 => comm_idup_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_join_f08ts.F90 => comm_join_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_rank_f08ts.F90 => comm_rank_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_remote_group_f08ts.F90 => comm_remote_group_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_remote_size_f08ts.F90 => comm_remote_size_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_set_attr_f08ts.F90 => comm_set_attr_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_set_errhandler_f08ts.F90 => comm_set_errhandler_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_set_info_f08ts.F90 => comm_set_info_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_set_name_f08ts.F90 => comm_set_name_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_size_f08ts.F90 => comm_size_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_spawn_f08ts.F90 => comm_spawn_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_spawn_multiple_f08ts.F90 => comm_spawn_multiple_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_split_f08ts.F90 => comm_split_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_split_type_f08ts.F90 => comm_split_type_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{comm_test_inter_f08ts.F90 => comm_test_inter_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{compare_and_swap_f08ts.F90 => compare_and_swap_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{dims_create_f08ts.F90 => dims_create_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{dist_graph_create_adjacent_f08ts.F90 => dist_graph_create_adjacent_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{dist_graph_create_f08ts.F90 => dist_graph_create_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{dist_graph_neighbors_count_f08ts.F90 => dist_graph_neighbors_count_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{dist_graph_neighbors_f08ts.F90 => dist_graph_neighbors_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{errhandler_free_f08ts.F90 => errhandler_free_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{error_class_f08ts.F90 => error_class_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{error_string_f08ts.F90 => error_string_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{exscan_f08ts.F90 => exscan_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{f_sync_reg_f08ts.F90 => f_sync_reg_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{fetch_and_op_f08ts.F90 => fetch_and_op_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_call_errhandler_f08ts.F90 => file_call_errhandler_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_close_f08ts.F90 => file_close_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_create_errhandler_f08ts.F90 => file_create_errhandler_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_delete_f08ts.F90 => file_delete_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_get_amode_f08ts.F90 => file_get_amode_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_get_atomicity_f08ts.F90 => file_get_atomicity_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_get_byte_offset_f08ts.F90 => file_get_byte_offset_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_get_errhandler_f08ts.F90 => file_get_errhandler_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_get_group_f08ts.F90 => file_get_group_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_get_info_f08ts.F90 => file_get_info_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_get_position_f08ts.F90 => file_get_position_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_get_position_shared_f08ts.F90 => file_get_position_shared_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_get_size_f08ts.F90 => file_get_size_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_get_type_extent_f08ts.F90 => file_get_type_extent_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_get_view_f08ts.F90 => file_get_view_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_iread_all_f08ts.F90 => file_iread_all_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_iread_at_all_f08ts.F90 => file_iread_at_all_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_iread_at_f08ts.F90 => file_iread_at_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_iread_f08ts.F90 => file_iread_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_iread_shared_f08ts.F90 => file_iread_shared_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_iwrite_all_f08ts.F90 => file_iwrite_all_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_iwrite_at_all_f08ts.F90 => file_iwrite_at_all_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_iwrite_at_f08ts.F90 => file_iwrite_at_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_iwrite_f08ts.F90 => file_iwrite_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_iwrite_shared_f08ts.F90 => file_iwrite_shared_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_open_f08ts.F90 => file_open_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_preallocate_f08ts.F90 => file_preallocate_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_read_all_begin_f08ts.F90 => file_read_all_begin_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_read_all_end_f08ts.F90 => file_read_all_end_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_read_all_f08ts.F90 => file_read_all_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_read_at_all_begin_f08ts.F90 => file_read_at_all_begin_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_read_at_all_end_f08ts.F90 => file_read_at_all_end_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_read_at_all_f08ts.F90 => file_read_at_all_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_read_at_f08ts.F90 => file_read_at_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_read_f08ts.F90 => file_read_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_read_ordered_begin_f08ts.F90 => file_read_ordered_begin_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_read_ordered_end_f08ts.F90 => file_read_ordered_end_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_read_ordered_f08ts.F90 => file_read_ordered_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_read_shared_f08ts.F90 => file_read_shared_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_seek_f08ts.F90 => file_seek_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_seek_shared_f08ts.F90 => file_seek_shared_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_set_atomicity_f08ts.F90 => file_set_atomicity_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_set_errhandler_f08ts.F90 => file_set_errhandler_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_set_info_f08ts.F90 => file_set_info_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_set_size_f08ts.F90 => file_set_size_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_set_view_f08ts.F90 => file_set_view_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_sync_f08ts.F90 => file_sync_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_write_all_begin_f08ts.F90 => file_write_all_begin_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_write_all_end_f08ts.F90 => file_write_all_end_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_write_all_f08ts.F90 => file_write_all_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_write_at_all_begin_f08ts.F90 => file_write_at_all_begin_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_write_at_all_end_f08ts.F90 => file_write_at_all_end_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_write_at_all_f08ts.F90 => file_write_at_all_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_write_at_f08ts.F90 => file_write_at_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_write_f08ts.F90 => file_write_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_write_ordered_begin_f08ts.F90 => file_write_ordered_begin_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_write_ordered_end_f08ts.F90 => file_write_ordered_end_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_write_ordered_f08ts.F90 => file_write_ordered_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{file_write_shared_f08ts.F90 => file_write_shared_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{finalize_f08ts.F90 => finalize_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{finalized_f08ts.F90 => finalized_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{free_mem_f08ts.F90 => free_mem_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{gather_f08ts.F90 => gather_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{gatherv_f08ts.F90 => gatherv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{get_accumulate_f08ts.F90 => get_accumulate_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{get_address_f08ts.F90 => get_address_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{get_count_f08ts.F90 => get_count_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{get_elements_f08ts.F90 => get_elements_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{get_elements_x_f08ts.F90 => get_elements_x_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{get_f08ts.F90 => get_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{get_library_version_f08ts.F90 => get_library_version_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{get_processor_name_f08ts.F90 => get_processor_name_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{get_version_f08ts.F90 => get_version_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{graph_create_f08ts.F90 => graph_create_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{graph_get_f08ts.F90 => graph_get_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{graph_map_f08ts.F90 => graph_map_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{graph_neighbors_count_f08ts.F90 => graph_neighbors_count_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{graph_neighbors_f08ts.F90 => graph_neighbors_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{graphdims_get_f08ts.F90 => graphdims_get_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{grequest_complete_f08ts.F90 => grequest_complete_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{grequest_start_f08ts.F90 => grequest_start_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{group_compare_f08ts.F90 => group_compare_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{group_difference_f08ts.F90 => group_difference_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{group_excl_f08ts.F90 => group_excl_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{group_free_f08ts.F90 => group_free_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{group_incl_f08ts.F90 => group_incl_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{group_intersection_f08ts.F90 => group_intersection_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{group_range_excl_f08ts.F90 => group_range_excl_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{group_range_incl_f08ts.F90 => group_range_incl_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{group_rank_f08ts.F90 => group_rank_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{group_size_f08ts.F90 => group_size_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{group_translate_ranks_f08ts.F90 => group_translate_ranks_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{group_union_f08ts.F90 => group_union_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{iallgather_f08ts.F90 => iallgather_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{iallgatherv_f08ts.F90 => iallgatherv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{iallreduce_f08ts.F90 => iallreduce_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ialltoall_f08ts.F90 => ialltoall_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ialltoallv_f08ts.F90 => ialltoallv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ialltoallw_f08ts.F90 => ialltoallw_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ibarrier_f08ts.F90 => ibarrier_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ibcast_f08ts.F90 => ibcast_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ibsend_f08ts.F90 => ibsend_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{iexscan_f08ts.F90 => iexscan_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{igather_f08ts.F90 => igather_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{igatherv_f08ts.F90 => igatherv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{improbe_f08ts.F90 => improbe_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{imrecv_f08ts.F90 => imrecv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ineighbor_allgather_f08ts.F90 => ineighbor_allgather_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ineighbor_allgatherv_f08ts.F90 => ineighbor_allgatherv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ineighbor_alltoall_f08ts.F90 => ineighbor_alltoall_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ineighbor_alltoallv_f08ts.F90 => ineighbor_alltoallv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ineighbor_alltoallw_f08ts.F90 => ineighbor_alltoallw_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{info_create_f08ts.F90 => info_create_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{info_delete_f08ts.F90 => info_delete_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{info_dup_f08ts.F90 => info_dup_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{info_free_f08ts.F90 => info_free_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{info_get_f08ts.F90 => info_get_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{info_get_nkeys_f08ts.F90 => info_get_nkeys_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{info_get_nthkey_f08ts.F90 => info_get_nthkey_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{info_get_valuelen_f08ts.F90 => info_get_valuelen_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{info_set_f08ts.F90 => info_set_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{init_f08ts.F90 => init_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{init_thread_f08ts.F90 => init_thread_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{initialized_f08ts.F90 => initialized_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{intercomm_create_f08ts.F90 => intercomm_create_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{intercomm_merge_f08ts.F90 => intercomm_merge_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{iprobe_f08ts.F90 => iprobe_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{irecv_f08ts.F90 => irecv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ireduce_f08ts.F90 => ireduce_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ireduce_scatter_block_f08ts.F90 => ireduce_scatter_block_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ireduce_scatter_f08ts.F90 => ireduce_scatter_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{irsend_f08ts.F90 => irsend_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{is_thread_main_f08ts.F90 => is_thread_main_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{iscan_f08ts.F90 => iscan_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{iscatter_f08ts.F90 => iscatter_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{iscatterv_f08ts.F90 => iscatterv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{isend_f08ts.F90 => isend_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{issend_f08ts.F90 => issend_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{lookup_name_f08ts.F90 => lookup_name_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{mprobe_f08ts.F90 => mprobe_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{mrecv_f08ts.F90 => mrecv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{neighbor_allgather_f08ts.F90 => neighbor_allgather_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{neighbor_allgatherv_f08ts.F90 => neighbor_allgatherv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{neighbor_alltoall_f08ts.F90 => neighbor_alltoall_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{neighbor_alltoallv_f08ts.F90 => neighbor_alltoallv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{neighbor_alltoallw_f08ts.F90 => neighbor_alltoallw_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{op_commutative_f08ts.F90 => op_commutative_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{op_create_f08ts.F90 => op_create_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{op_free_f08ts.F90 => op_free_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{open_port_f08ts.F90 => open_port_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{pack_external_f08ts.F90 => pack_external_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{pack_external_size_f08ts.F90 => pack_external_size_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{pack_f08ts.F90 => pack_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{pack_size_f08ts.F90 => pack_size_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{pcontrol_f08ts.F90 => pcontrol_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{probe_f08ts.F90 => probe_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{publish_name_f08ts.F90 => publish_name_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{put_f08ts.F90 => put_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{query_thread_f08ts.F90 => query_thread_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{raccumulate_f08ts.F90 => raccumulate_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{recv_f08ts.F90 => recv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{recv_init_f08ts.F90 => recv_init_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{reduce_f08ts.F90 => reduce_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{reduce_local_f08ts.F90 => reduce_local_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{reduce_scatter_block_f08ts.F90 => reduce_scatter_block_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{reduce_scatter_f08ts.F90 => reduce_scatter_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{register_datarep_f08ts.F90 => register_datarep_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{request_free_f08ts.F90 => request_free_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{request_get_status_f08ts.F90 => request_get_status_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{rget_accumulate_f08ts.F90 => rget_accumulate_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{rget_f08ts.F90 => rget_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{rput_f08ts.F90 => rput_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{rsend_f08ts.F90 => rsend_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{rsend_init_f08ts.F90 => rsend_init_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{scan_f08ts.F90 => scan_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{scatter_f08ts.F90 => scatter_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{scatterv_f08ts.F90 => scatterv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{send_f08ts.F90 => send_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{send_init_f08ts.F90 => send_init_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{sendrecv_f08ts.F90 => sendrecv_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{sendrecv_replace_f08ts.F90 => sendrecv_replace_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ssend_f08ts.F90 => ssend_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{ssend_init_f08ts.F90 => ssend_init_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{start_f08ts.F90 => start_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{startall_f08ts.F90 => startall_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{status_set_cancelled_f08ts.F90 => status_set_cancelled_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{status_set_elements_f08ts.F90 => status_set_elements_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{status_set_elements_x_f08ts.F90 => status_set_elements_x_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{test_cancelled_f08ts.F90 => test_cancelled_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{test_f08ts.F90 => test_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{testall_f08ts.F90 => testall_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{testany_f08ts.F90 => testany_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{testsome_f08ts.F90 => testsome_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{topo_test_f08ts.F90 => topo_test_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_commit_f08ts.F90 => type_commit_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_contiguous_f08ts.F90 => type_contiguous_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_create_darray_f08ts.F90 => type_create_darray_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_create_f90_complex_f08ts.F90 => type_create_f90_complex_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_create_f90_integer_f08ts.F90 => type_create_f90_integer_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_create_f90_real_f08ts.F90 => type_create_f90_real_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_create_hindexed_block_f08ts.F90 => type_create_hindexed_block_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_create_hindexed_f08ts.F90 => type_create_hindexed_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_create_hvector_f08ts.F90 => type_create_hvector_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_create_indexed_block_f08ts.F90 => type_create_indexed_block_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_create_keyval_f08ts.F90 => type_create_keyval_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_create_resized_f08ts.F90 => type_create_resized_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_create_struct_f08ts.F90 => type_create_struct_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_create_subarray_f08ts.F90 => type_create_subarray_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_delete_attr_f08ts.F90 => type_delete_attr_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_dup_f08ts.F90 => type_dup_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_free_f08ts.F90 => type_free_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_free_keyval_f08ts.F90 => type_free_keyval_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_get_attr_f08ts.F90 => type_get_attr_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_get_contents_f08ts.F90 => type_get_contents_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_get_envelope_f08ts.F90 => type_get_envelope_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_get_extent_f08ts.F90 => type_get_extent_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_get_extent_x_f08ts.F90 => type_get_extent_x_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_get_name_f08ts.F90 => type_get_name_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_get_true_extent_f08ts.F90 => type_get_true_extent_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_get_true_extent_x_f08ts.F90 => type_get_true_extent_x_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_indexed_f08ts.F90 => type_indexed_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_match_size_f08ts.F90 => type_match_size_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_set_attr_f08ts.F90 => type_set_attr_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_set_name_f08ts.F90 => type_set_name_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_size_f08ts.F90 => type_size_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_size_x_f08ts.F90 => type_size_x_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{type_vector_f08ts.F90 => type_vector_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{unpack_external_f08ts.F90 => unpack_external_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{unpack_f08ts.F90 => unpack_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{unpublish_name_f08ts.F90 => unpublish_name_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{wait_f08ts.F90 => wait_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{waitall_f08ts.F90 => waitall_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{waitany_f08ts.F90 => waitany_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{waitsome_f08ts.F90 => waitsome_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_allocate_f08ts.F90 => win_allocate_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_allocate_shared_f08ts.F90 => win_allocate_shared_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_attach_f08ts.F90 => win_attach_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_call_errhandler_f08ts.F90 => win_call_errhandler_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_complete_f08ts.F90 => win_complete_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_create_dynamic_f08ts.F90 => win_create_dynamic_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_create_errhandler_f08ts.F90 => win_create_errhandler_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_create_f08ts.F90 => win_create_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_create_keyval_f08ts.F90 => win_create_keyval_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_delete_attr_f08ts.F90 => win_delete_attr_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_detach_f08ts.F90 => win_detach_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_fence_f08ts.F90 => win_fence_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_flush_all_f08ts.F90 => win_flush_all_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_flush_f08ts.F90 => win_flush_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_flush_local_all_f08ts.F90 => win_flush_local_all_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_flush_local_f08ts.F90 => win_flush_local_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_free_f08ts.F90 => win_free_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_free_keyval_f08ts.F90 => win_free_keyval_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_get_attr_f08ts.F90 => win_get_attr_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_get_errhandler_f08ts.F90 => win_get_errhandler_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_get_group_f08ts.F90 => win_get_group_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_get_info_f08ts.F90 => win_get_info_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_get_name_f08ts.F90 => win_get_name_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_lock_all_f08ts.F90 => win_lock_all_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_lock_f08ts.F90 => win_lock_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_post_f08ts.F90 => win_post_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_set_attr_f08ts.F90 => win_set_attr_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_set_errhandler_f08ts.F90 => win_set_errhandler_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_set_info_f08ts.F90 => win_set_info_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_set_name_f08ts.F90 => win_set_name_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_shared_query_f08ts.F90 => win_shared_query_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_start_f08ts.F90 => win_start_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_sync_f08ts.F90 => win_sync_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_test_f08ts.F90 => win_test_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_unlock_all_f08ts.F90 => win_unlock_all_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_unlock_f08ts.F90 => win_unlock_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{win_wait_f08ts.F90 => win_wait_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{wtick_f08ts.F90 => wtick_f08ts.f90} (100%) rename src/binding/fortran/use_mpi_f08/wrappers_f/{wtime_f08ts.F90 => wtime_f08ts.f90} (100%) hooks/post-receive -- MPICH primary repository

1 0

[mpich] MPICH primary repository branch, master, updated. v3.2b1-70-g03bf174
by noreply＠mpich.org 16 Apr '15

16 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "MPICH primary repository". The branch, master has been updated via 03bf17473d36d30bd5275d6df463b2038a1d1a19 (commit) from c4131d6bd3eb627f6e26a1d88763d21143ff7590 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- http://git.mpich.org/mpich.git/commitdiff/03bf17473d36d30bd5275d6df463b2038… commit 03bf17473d36d30bd5275d6df463b2038a1d1a19 Author: Pavan Balaji <balaji(a)anl.gov> Date: Thu Apr 16 13:19:51 2015 -0500 Replace xfail ticket number. Ticket #2243 was resolved as a duplicate of ticket #2183. Signed-off-by: Huiwei Lu <huiweilu(a)mcs.anl.gov> diff --git a/test/mpi/comm/testlist b/test/mpi/comm/testlist index 4ffbe9b..20f7f24 100644 --- a/test/mpi/comm/testlist +++ b/test/mpi/comm/testlist @@ -24,10 +24,10 @@ comm_group_half 8 mpiversion=3.0 comm_group_rand 2 mpiversion=3.0 comm_group_rand 4 mpiversion=3.0 comm_group_rand 8 mpiversion=3.0 -comm_idup 2 mpiversion=3.0 xfail=ticket2243 -comm_idup 4 mpiversion=3.0 xfail=ticket2243 -comm_idup 9 mpiversion=3.0 xfail=ticket2243 -comm_idup_mul 2 mpiversion=3.0 xfail=ticket2243 +comm_idup 2 mpiversion=3.0 xfail=ticket2183 +comm_idup 4 mpiversion=3.0 xfail=ticket2183 +comm_idup 9 mpiversion=3.0 xfail=ticket2183 +comm_idup_mul 2 mpiversion=3.0 xfail=ticket2183 comm_idup_overlap 2 mpiversion=3.0 xfail=ticket2238 dup_with_info 2 mpiversion=3.0 dup_with_info 4 mpiversion=3.0 ----------------------------------------------------------------------- Summary of changes: test/mpi/comm/testlist | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) hooks/post-receive -- MPICH primary repository

1 0

[mpich] MPICH primary repository branch, master, updated. v3.2b1-69-gc4131d6
by noreply＠mpich.org 16 Apr '15

16 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "MPICH primary repository". The branch, master has been updated via c4131d6bd3eb627f6e26a1d88763d21143ff7590 (commit) from 04060d1d639e74db1719873c7e0ed1998dd6c972 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- http://git.mpich.org/mpich.git/commitdiff/c4131d6bd3eb627f6e26a1d88763d2114… commit c4131d6bd3eb627f6e26a1d88763d21143ff7590 Author: Pavan Balaji <balaji(a)anl.gov> Date: Wed Apr 15 22:45:37 2015 -0500 Run putfence1 and getfence1 only with two processes. These tests seem to use a lot of memory per process, causing us to hit swap space when running with too many processes. Reducing it to two processes, allows this test to run on more machines. Signed-off-by: Huiwei Lu <huiweilu(a)mcs.anl.gov> diff --git a/test/mpi/rma/testlist.in b/test/mpi/rma/testlist.in index cf80e82..6abee4d 100644 --- a/test/mpi/rma/testlist.in +++ b/test/mpi/rma/testlist.in @@ -1,8 +1,8 @@ winname 2 allocmem 2 -putfence1 4 timeLimit=500 +putfence1 2 putfidx 4 -getfence1 4 timeLimit=500 +getfence1 2 accfence1 4 adlb_mimic1 3 accfence2 4 ----------------------------------------------------------------------- Summary of changes: test/mpi/rma/testlist.in | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) hooks/post-receive -- MPICH primary repository

1 0

[mpich] MPICH primary repository branch, master, updated. v3.2b1-68-g04060d1
by noreply＠mpich.org 15 Apr '15

15 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "MPICH primary repository". The branch, master has been updated via 04060d1d639e74db1719873c7e0ed1998dd6c972 (commit) from 1ed2b43472d2db8f88050f14bcd0222acff43048 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- http://git.mpich.org/mpich.git/commitdiff/04060d1d639e74db1719873c7e0ed1998… commit 04060d1d639e74db1719873c7e0ed1998dd6c972 Author: Pavan Balaji <balaji(a)anl.gov> Date: Wed Apr 15 23:36:31 2015 -0500 Increase bcast_full time limit. We increased the number of cases the bcast test was running in [e01a20b6]. This is causing it to timeout on some platforms, where the test now seems to take close to 3 minutes. This increased timeout should be sufficient on those platforms. No reviewer. diff --git a/test/mpi/coll/testlist b/test/mpi/coll/testlist index 61ad2a3..12787c9 100644 --- a/test/mpi/coll/testlist +++ b/test/mpi/coll/testlist @@ -32,7 +32,7 @@ allgatherv4 4 timeLimit=600 bcasttest 4 bcasttest 8 bcasttest 10 -bcast_full 4 +bcast_full 4 timeLimit=300 # More that 8 processes are required to get bcast to switch to the long # msg algorithm (see coll definitions in mpiimpl.h) bcast_min_datatypes 10 timeLimit=1200 ----------------------------------------------------------------------- Summary of changes: test/mpi/coll/testlist | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) hooks/post-receive -- MPICH primary repository

1 0

[mpich] MPICH primary repository branch, master, updated. v3.2b1-67-g1ed2b43
by noreply＠mpich.org 15 Apr '15

15 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "MPICH primary repository". The branch, master has been updated via 1ed2b43472d2db8f88050f14bcd0222acff43048 (commit) from e87c158f7cb9faca29de0b337dc62b7db7cd2946 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- http://git.mpich.org/mpich.git/commitdiff/1ed2b43472d2db8f88050f14bcd0222ac… commit 1ed2b43472d2db8f88050f14bcd0222acff43048 Author: Charles J Archer <charles.j.archer(a)intel.com> Date: Wed Apr 15 15:10:49 2015 -0700 OFI Netmod: Add CVAR enhancements for OFI provider selection * Rename MPIR_CVAR_DUMP_PROVIDERS to MPIR_CVAR_OFI_DUMP_PROVIDERS * Add MPIR_CVAR_OFI_USE_PROVIDER, which takes a string to desired provider name diff --git a/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_init.c b/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_init.c index cc9a6e9..3993088 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_init.c +++ b/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_init.c @@ -12,6 +12,32 @@ static inline int dump_and_choose_providers(info_t * prov, info_t ** prov_use); static inline int compile_time_checking(); +/* +=== BEGIN_MPI_T_CVAR_INFO_BLOCK === + +cvars: + - name : MPIR_CVAR_OFI_USE_PROVIDER + category : DEVELOPER + type : string + default : NULL + class : device + verbosity : MPI_T_VERBOSITY_MPIDEV_DETAIL + scope : MPI_T_SCOPE_LOCAL + description : >- + If non-null, choose an OFI provider by name + + - name : MPIR_CVAR_OFI_DUMP_PROVIDERS + category : DEVELOPER + type : boolean + default : false + class : device + verbosity : MPI_T_VERBOSITY_MPIDEV_DETAIL + scope : MPI_T_SCOPE_LOCAL + description : >- + If true, dump provider information at init + +=== END_MPI_T_CVAR_INFO_BLOCK === +*/ #undef FCNAME #define FCNAME DECL_FUNC(MPID_nem_ofi_init) int MPID_nem_ofi_init(MPIDI_PG_t * pg_p, int pg_rank, char **bc_val_p, int *val_max_sz_p) @@ -51,7 +77,7 @@ int MPID_nem_ofi_init(MPIDI_PG_t * pg_p, int pg_rank, char **bc_val_p, int *val_ /* We expect to register all memory up front for use with this */ /* endpoint, so the netmod requires dynamic memory regions */ /* ------------------------------------------------------------------------ */ - hints = fi_allocinfo(); + hints = fi_allocinfo(); hints->mode = FI_CONTEXT; hints->ep_attr->type = FI_EP_RDM; /* Reliable datagram */ hints->caps = FI_TAGGED; /* Tag matching interface */ @@ -73,7 +99,10 @@ int MPID_nem_ofi_init(MPIDI_PG_t * pg_p, int pg_rank, char **bc_val_p, int *val_ hints->domain_attr->threading = FI_THREAD_ENDPOINT; hints->domain_attr->control_progress = FI_PROGRESS_AUTO; hints->domain_attr->data_progress = FI_PROGRESS_AUTO; - + char *provname; + provname = MPIR_CVAR_OFI_USE_PROVIDER? + MPIU_Strdup(MPIR_CVAR_OFI_USE_PROVIDER):NULL; + hints->fabric_attr->prov_name = provname; FI_RC(fi_getinfo(fi_version, /* Interface version requested */ NULL, /* Optional name or fabric to resolve */ NULL, /* Service name or port number to request */ @@ -173,6 +202,11 @@ int MPID_nem_ofi_init(MPIDI_PG_t * pg_p, int pg_rank, char **bc_val_p, int *val_ /* --------------------------- */ /* Free providers info */ /* --------------------------- */ + if(provname) { + MPIU_Free(provname); + hints->fabric_attr->prov_name = NULL; + } + fi_freeinfo(hints); fi_freeinfo(prov_use); @@ -347,28 +381,12 @@ static inline int compile_time_checking() } -/* -=== BEGIN_MPI_T_CVAR_INFO_BLOCK === - -cvars: - - name : MPIR_CVAR_DUMP_PROVIDERS - category : DEVELOPER - type : boolean - default : false - class : device - verbosity : MPI_T_VERBOSITY_MPIDEV_DETAIL - scope : MPI_T_SCOPE_LOCAL - description : >- - If true, dump provider information at init - -=== END_MPI_T_CVAR_INFO_BLOCK === -*/ static inline int dump_and_choose_providers(info_t * prov, info_t ** prov_use) { info_t *p = prov; int i = 0; *prov_use = prov; - if (MPIR_CVAR_DUMP_PROVIDERS) { + if (MPIR_CVAR_OFI_DUMP_PROVIDERS) { fprintf(stdout, "Dumping Providers(first=%p):\n", prov); while(p) { fprintf(stdout, "%s", fi_tostr(p, FI_TYPE_INFO)); ----------------------------------------------------------------------- Summary of changes: .../ch3/channels/nemesis/netmod/ofi/ofi_init.c | 56 +++++++++++++------- 1 files changed, 37 insertions(+), 19 deletions(-) hooks/post-receive -- MPICH primary repository

1 0

[mpich] MPICH primary repository branch, master, updated. v3.2b1-66-ge87c158
by noreply＠mpich.org 15 Apr '15

15 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "MPICH primary repository". The branch, master has been updated via e87c158f7cb9faca29de0b337dc62b7db7cd2946 (commit) from eb0e7712de7e0d01c4c94b71ea88ae1ef6ac9a46 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- http://git.mpich.org/mpich.git/commitdiff/e87c158f7cb9faca29de0b337dc62b7db… commit e87c158f7cb9faca29de0b337dc62b7db7cd2946 Author: Sameh Sharkawi <sssharka(a)us.ibm.com> Date: Wed Apr 15 14:47:10 2015 -0400 PAMID: MPI_Allreduce/MPI_Reduce coredump w/ DOUBLE_INT datatype This commit includes multiple fixes: - Fixes for MPI_IN_PLACE checking. cudaGetPointerAttributes returns true on MPI_IN_PLACE which causes issues. Now we check on MPI_IN_PLACE before passing pointer to cuda. - Enabling PAMID geometries (in order to get to PAMID collectives) when MP_CUDA_AWARE=yes. This allows for intercepting CUDA buffer. - Disabling FCA when MP_CUDA_AWARE=yes if user enables FCA. - Copying user recv buffer into temp recv host buffer before collective starts, especially in MPI_IN_PLACE cases. (ibm) D203255 Signed-off-by: Tsai-Yang (Alan) Jea <tjea(a)us.ibm.com> diff --git a/src/mpid/pamid/include/mpidi_constants.h b/src/mpid/pamid/include/mpidi_constants.h index 649af8f..3fcb3b2 100644 --- a/src/mpid/pamid/include/mpidi_constants.h +++ b/src/mpid/pamid/include/mpidi_constants.h @@ -81,6 +81,7 @@ enum MPID_COLL_OFF = 0, MPID_COLL_ON = 1, MPID_COLL_FCA = 2, /* Selecting these is fairly easy so special case */ + MPID_COLL_CUDA = 3, /* This is used to enable PAMI geometry but sets default to MPICH */ }; /** \} */ diff --git a/src/mpid/pamid/src/coll/allgather/mpido_allgather.c b/src/mpid/pamid/src/coll/allgather/mpido_allgather.c index 429cf32..68e658a 100644 --- a/src/mpid/pamid/src/coll/allgather/mpido_allgather.c +++ b/src/mpid/pamid/src/coll/allgather/mpido_allgather.c @@ -378,7 +378,14 @@ MPIDO_Allgather(const void *sendbuf, if(is_recv_dev_buf) { rcbuf = MPIU_Malloc(rdt_extent * recvcount); - memset(rcbuf, 0, rdt_extent * recvcount); + if(sendbuf == MPI_IN_PLACE) + { + cudaError_t cudaerr = CudaMemcpy(rcbuf, recvbuf, rdt_extent * recvcount, cudaMemcpyDeviceToHost); + if (cudaSuccess != cudaerr) + fprintf(stderr, "cudaMemcpy failed: %s\n", CudaGetErrorString(cudaerr)); + } + else + memset(rcbuf, 0, rdt_extent * recvcount); } else rcbuf = recvbuf; diff --git a/src/mpid/pamid/src/coll/allgatherv/mpido_allgatherv.c b/src/mpid/pamid/src/coll/allgatherv/mpido_allgatherv.c index 7c3121a..c930edf 100644 --- a/src/mpid/pamid/src/coll/allgatherv/mpido_allgatherv.c +++ b/src/mpid/pamid/src/coll/allgatherv/mpido_allgatherv.c @@ -405,7 +405,14 @@ MPIDO_Allgatherv(const void *sendbuf, } rtotal_buf = (highest_displs+highest_recvcount)*rdt_extent; rcbuf = MPIU_Malloc(rtotal_buf); - memset(rcbuf, 0, rtotal_buf); + if(sendbuf == MPI_IN_PLACE) + { + cudaError_t cudaerr = CudaMemcpy(rcbuf, recvbuf, rtotal_buf, cudaMemcpyDeviceToHost); + if (cudaSuccess != cudaerr) + fprintf(stderr, "cudaMemcpy failed: %s\n", CudaGetErrorString(cudaerr)); + } + else + memset(rcbuf, 0, rtotal_buf); } else rcbuf = recvbuf; diff --git a/src/mpid/pamid/src/coll/allreduce/mpido_allreduce.c b/src/mpid/pamid/src/coll/allreduce/mpido_allreduce.c index e7b9222..a569ba1 100644 --- a/src/mpid/pamid/src/coll/allreduce/mpido_allreduce.c +++ b/src/mpid/pamid/src/coll/allreduce/mpido_allreduce.c @@ -138,7 +138,14 @@ int MPIDO_Allreduce(const void *sendbuf, if(is_recv_dev_buf) { rcbuf = MPIU_Malloc(dt_extent * count); - memset(rcbuf, 0, dt_extent * count); + if(sendbuf == MPI_IN_PLACE) + { + cudaError_t cudaerr = CudaMemcpy(rcbuf, recvbuf, dt_extent * count, cudaMemcpyDeviceToHost); + if (cudaSuccess != cudaerr) + fprintf(stderr, "cudaMemcpy failed: %s\n", CudaGetErrorString(cudaerr)); + } + else + memset(rcbuf, 0, dt_extent * count); } else rcbuf = recvbuf; diff --git a/src/mpid/pamid/src/coll/alltoall/mpido_alltoall.c b/src/mpid/pamid/src/coll/alltoall/mpido_alltoall.c index fedb2c8..ee25766 100644 --- a/src/mpid/pamid/src/coll/alltoall/mpido_alltoall.c +++ b/src/mpid/pamid/src/coll/alltoall/mpido_alltoall.c @@ -113,7 +113,14 @@ int MPIDO_Alltoall(const void *sendbuf, if(is_recv_dev_buf) { rcbuf = MPIU_Malloc(recvcount * rdt_extent); - memset(rcbuf, 0, recvcount * rdt_extent); + if(sendbuf == MPI_IN_PLACE) + { + cudaError_t cudaerr = CudaMemcpy(rcbuf, recvbuf, recvcount * rdt_extent, cudaMemcpyDeviceToHost); + if (cudaSuccess != cudaerr) + fprintf(stderr, "cudaMemcpy failed: %s\n", CudaGetErrorString(cudaerr)); + } + else + memset(rcbuf, 0, recvcount * rdt_extent); } else rcbuf = recvbuf; diff --git a/src/mpid/pamid/src/coll/gather/mpido_gather.c b/src/mpid/pamid/src/coll/gather/mpido_gather.c index cbe9672..13d3332 100644 --- a/src/mpid/pamid/src/coll/gather/mpido_gather.c +++ b/src/mpid/pamid/src/coll/gather/mpido_gather.c @@ -213,7 +213,14 @@ int MPIDO_Gather(const void *sendbuf, if(is_recv_dev_buf) { rcbuf = MPIU_Malloc(rdt_extent * recvcount); - memset(rcbuf, 0, rdt_extent * recvcount); + if(sendbuf == MPI_IN_PLACE) + { + cudaError_t cudaerr = CudaMemcpy(rcbuf, recvbuf, rdt_extent * recvcount, cudaMemcpyDeviceToHost); + if (cudaSuccess != cudaerr) + fprintf(stderr, "cudaMemcpy failed: %s\n", CudaGetErrorString(cudaerr)); + } + else + memset(rcbuf, 0, rdt_extent * recvcount); } else rcbuf = recvbuf; diff --git a/src/mpid/pamid/src/coll/gatherv/mpido_gatherv.c b/src/mpid/pamid/src/coll/gatherv/mpido_gatherv.c index 834a4e4..4213e95 100644 --- a/src/mpid/pamid/src/coll/gatherv/mpido_gatherv.c +++ b/src/mpid/pamid/src/coll/gatherv/mpido_gatherv.c @@ -119,7 +119,14 @@ int MPIDO_Gatherv(const void *sendbuf, } rtotal_buf = (highest_displs+highest_recvcount)*rdt_extent; rcbuf = MPIU_Malloc(rtotal_buf); - memset(rcbuf, 0, rtotal_buf); + if(sendbuf == MPI_IN_PLACE) + { + cudaError_t cudaerr = CudaMemcpy(rcbuf, recvbuf, rtotal_buf, cudaMemcpyDeviceToHost); + if (cudaSuccess != cudaerr) + fprintf(stderr, "cudaMemcpy failed: %s\n", CudaGetErrorString(cudaerr)); + } + else + memset(rcbuf, 0, rtotal_buf); } else rcbuf = recvbuf; diff --git a/src/mpid/pamid/src/coll/red_scat/mpido_red_scat.c b/src/mpid/pamid/src/coll/red_scat/mpido_red_scat.c index 4dd18c6..55870a8 100644 --- a/src/mpid/pamid/src/coll/red_scat/mpido_red_scat.c +++ b/src/mpid/pamid/src/coll/red_scat/mpido_red_scat.c @@ -73,7 +73,14 @@ int MPIDO_Reduce_scatter(const void *sendbuf, if(is_recv_dev_buf) { rcbuf = MPIU_Malloc(total_buf * dt_extent); - memset(rcbuf, 0, total_buf * dt_extent); + if(sendbuf == MPI_IN_PLACE) + { + cudaError_t cudaerr = CudaMemcpy(rcbuf, recvbuf, dt_extent * total_buf, cudaMemcpyDeviceToHost); + if (cudaSuccess != cudaerr) + fprintf(stderr, "cudaMemcpy failed: %s\n", CudaGetErrorString(cudaerr)); + } + else + memset(rcbuf, 0, total_buf * dt_extent); } else rcbuf = recvbuf; @@ -131,7 +138,7 @@ int MPIDO_Reduce_scatter_block(const void *sendbuf, scbuf = MPIU_Malloc(dt_extent * recvcount * size); cudaError_t cudaerr = CudaMemcpy(scbuf, sendbuf, dt_extent * recvcount * size, cudaMemcpyDeviceToHost); if (cudaSuccess != cudaerr) - fprintf(stderr, "cudaMemcpy failed: %s\n", CudaGetErrorString(cudaerr)); + fprintf(stderr, "cudaMemcpy failed: %s recvbuf: %p scbuf: %p is_send_dev_buf: %d is_recv_dev_buf: %p sendbuf: %p\n", CudaGetErrorString(cudaerr), recvbuf, scbuf, is_send_dev_buf,is_recv_dev_buf, sendbuf ); } else scbuf = sendbuf; @@ -139,7 +146,14 @@ int MPIDO_Reduce_scatter_block(const void *sendbuf, if(is_recv_dev_buf) { rcbuf = MPIU_Malloc(dt_extent * recvcount * size); - memset(rcbuf, 0, dt_extent * recvcount * size); + if(sendbuf == MPI_IN_PLACE) + { + cudaError_t cudaerr = CudaMemcpy(rcbuf, recvbuf, dt_extent * recvcount * size, cudaMemcpyDeviceToHost); + if (cudaSuccess != cudaerr) + fprintf(stderr, "cudaMemcpy failed: %s\n", CudaGetErrorString(cudaerr)); + } + else + memset(rcbuf, 0, recvcount * size * dt_extent); } else rcbuf = recvbuf; @@ -154,7 +168,7 @@ int MPIDO_Reduce_scatter_block(const void *sendbuf, { cudaError_t cudaerr = CudaMemcpy(recvbuf, rcbuf, dt_extent * recvcount * size, cudaMemcpyHostToDevice); if (cudaSuccess != cudaerr) - fprintf(stderr, "cudaMemcpy failed: %s\n", CudaGetErrorString(cudaerr)); + fprintf(stderr, "cudaMemcpy failed: %s recvbuf: %p rcbuf: %p is_send_dev_buf: %d is_recv_dev_buf: %p sendbuf: %p\n", CudaGetErrorString(cudaerr), recvbuf, rcbuf, is_send_dev_buf,is_recv_dev_buf, sendbuf ); MPIU_Free(rcbuf); } return cuda_res; diff --git a/src/mpid/pamid/src/coll/reduce/mpido_reduce.c b/src/mpid/pamid/src/coll/reduce/mpido_reduce.c index 0c27f07..1ef45fb 100644 --- a/src/mpid/pamid/src/coll/reduce/mpido_reduce.c +++ b/src/mpid/pamid/src/coll/reduce/mpido_reduce.c @@ -138,7 +138,14 @@ int MPIDO_Reduce(const void *sendbuf, if(is_recv_dev_buf) { rcbuf = MPIU_Malloc(dt_extent * count); - memset(rcbuf, 0, dt_extent * count); + if(sendbuf == MPI_IN_PLACE) + { + cudaError_t cudaerr = CudaMemcpy(rcbuf, recvbuf, dt_extent * count, cudaMemcpyDeviceToHost); + if (cudaSuccess != cudaerr) + fprintf(stderr, "cudaMemcpy failed: %s\n", CudaGetErrorString(cudaerr)); + } + else + memset(rcbuf, 0, dt_extent * count); } else rcbuf = recvbuf; diff --git a/src/mpid/pamid/src/coll/scan/mpido_scan.c b/src/mpid/pamid/src/coll/scan/mpido_scan.c index 3fbb5f3..40c56ea 100644 --- a/src/mpid/pamid/src/coll/scan/mpido_scan.c +++ b/src/mpid/pamid/src/coll/scan/mpido_scan.c @@ -156,7 +156,14 @@ int MPIDO_Doscan(const void *sendbuf, void *recvbuf, if(is_recv_dev_buf) { rcbuf = MPIU_Malloc(dt_extent * count); - memset(rcbuf, 0, dt_extent * count); + if(sendbuf == MPI_IN_PLACE) + { + cudaError_t cudaerr = CudaMemcpy(rcbuf, recvbuf, dt_extent * count, cudaMemcpyDeviceToHost); + if (cudaSuccess != cudaerr) + fprintf(stderr, "cudaMemcpy failed: %s\n", CudaGetErrorString(cudaerr)); + } + else + memset(rcbuf, 0, dt_extent * count); } else rcbuf = recvbuf; diff --git a/src/mpid/pamid/src/coll/scatter/mpido_scatter.c b/src/mpid/pamid/src/coll/scatter/mpido_scatter.c index 6ab1479..e36ea27 100644 --- a/src/mpid/pamid/src/coll/scatter/mpido_scatter.c +++ b/src/mpid/pamid/src/coll/scatter/mpido_scatter.c @@ -161,7 +161,7 @@ int MPIDO_Scatter(const void *sendbuf, if(is_recv_dev_buf) { rcbuf = MPIU_Malloc(rdt_extent * recvcount); - memset(rcbuf, 0, rdt_extent * recvcount); + CudaMemcpy(rcbuf, recvbuf, rdt_extent * recvcount, cudaMemcpyDeviceToHost); } else rcbuf = recvbuf; diff --git a/src/mpid/pamid/src/coll/scatterv/mpido_scatterv.c b/src/mpid/pamid/src/coll/scatterv/mpido_scatterv.c index 1487dc1..213b298 100644 --- a/src/mpid/pamid/src/coll/scatterv/mpido_scatterv.c +++ b/src/mpid/pamid/src/coll/scatterv/mpido_scatterv.c @@ -281,7 +281,7 @@ int MPIDO_Scatterv(const void *sendbuf, if(is_recv_dev_buf) { rcbuf = MPIU_Malloc(recvcount * rdt_extent); - memset(rcbuf, 0, recvcount * rdt_extent); + CudaMemcpy(rcbuf, recvbuf, recvcount * rdt_extent, cudaMemcpyDeviceToHost); } else rcbuf = recvbuf; diff --git a/src/mpid/pamid/src/comm/mpid_selectcolls.c b/src/mpid/pamid/src/comm/mpid_selectcolls.c index 2efff76..db4ac0c 100644 --- a/src/mpid/pamid/src/comm/mpid_selectcolls.c +++ b/src/mpid/pamid/src/comm/mpid_selectcolls.c @@ -257,7 +257,7 @@ void MPIDI_Comm_coll_envvars(MPID_Comm *comm) comm->mpid.user_selected_type[i] = MPID_COLL_NOSELECTION; if(MPIDI_Process.verbose >= MPIDI_VERBOSE_DETAILS_0 && comm->rank == 0) fprintf(stderr,"Setting up collective %d on comm %p\n", i, comm); - if((comm->mpid.coll_count[i][0] == 0) && (comm->mpid.coll_count[i][1] == 0)) + if(((comm->mpid.coll_count[i][0] == 0) && (comm->mpid.coll_count[i][1] == 0)) || MPIDI_Process.optimized.collectives == MPID_COLL_CUDA) { comm->mpid.user_selected_type[i] = MPID_COLL_USE_MPICH; comm->mpid.user_selected[i] = 0; diff --git a/src/mpid/pamid/src/mpid_init.c b/src/mpid/pamid/src/mpid_init.c index a2bc89d..f47cf29 100644 --- a/src/mpid/pamid/src/mpid_init.c +++ b/src/mpid/pamid/src/mpid_init.c @@ -641,8 +641,8 @@ void MPIDI_Init_collsel_extension() MPIDI_Process.optimized.auto_select_colls = MPID_AUTO_SELECT_COLLS_NONE; #ifndef __BGQ__ - //If collective selection will be disabled, check on fca, if both not required, disable pami alltogether - if(MPIDI_Process.optimized.auto_select_colls == MPID_AUTO_SELECT_COLLS_NONE && MPIDI_Process.optimized.collectives != MPID_COLL_FCA) + //If collective selection will be disabled, check on fca and CUDA if both not required, disable pami alltogether + if(MPIDI_Process.optimized.auto_select_colls == MPID_AUTO_SELECT_COLLS_NONE && MPIDI_Process.optimized.collectives != MPID_COLL_FCA && MPIDI_Process.optimized.collectives != MPID_COLL_CUDA) MPIDI_Process.optimized.collectives = MPID_COLL_OFF; #endif } diff --git a/src/mpid/pamid/src/mpidi_env.c b/src/mpid/pamid/src/mpidi_env.c index f6934c6..bb924ac 100644 --- a/src/mpid/pamid/src/mpidi_env.c +++ b/src/mpid/pamid/src/mpidi_env.c @@ -1156,6 +1156,17 @@ MPIDI_Env_setup(int rank, int requested) fprintf(stderr, "Error loading libcudart\n");fflush(stderr);sleep(1);exit(1); } } + else if(MPIDI_Process.cuda_aware_support_on) + { + if(MPIDI_Process.optimized.collectives == MPID_COLL_FCA) + if(rank == 0) + { + fprintf(stderr, "Warning: FCA is not supported with CUDA Aware support\n");fflush(stderr); + } + + MPIDI_Process.optimized.collectives = MPID_COLL_CUDA; + MPIDI_Process.optimized.select_colls = 0; + } #endif /* Exit if any deprecated environment variables were specified. */ diff --git a/src/mpid/pamid/src/mpidi_util.c b/src/mpid/pamid/src/mpidi_util.c index fa0b5f4..37ebc8f 100644 --- a/src/mpid/pamid/src/mpidi_util.c +++ b/src/mpid/pamid/src/mpidi_util.c @@ -1969,19 +1969,25 @@ inline bool MPIDI_enable_cuda() inline bool MPIDI_cuda_is_device_buf(const void* ptr) { - bool result = false; + bool result = false; #if CUDA_AWARE_SUPPORT - struct cudaPointerAttributes cuda_attr; - cudaError_t e= CudaPointerGetAttributes ( & cuda_attr, ptr); + if(MPIDI_Process.cuda_aware_support_on) + { + if(ptr != MPI_IN_PLACE) + { + struct cudaPointerAttributes cuda_attr; + cudaError_t e= CudaPointerGetAttributes ( & cuda_attr, ptr); - if (e != cudaSuccess) - result = false; - else if (cuda_attr.memoryType == cudaMemoryTypeDevice) - result = true; - else - result = false; + if (e != cudaSuccess) + result = false; + else if (cuda_attr.memoryType == cudaMemoryTypeDevice) + result = true; + else + result = false; + } + } #endif - return result; + return result; } ----------------------------------------------------------------------- Summary of changes: src/mpid/pamid/include/mpidi_constants.h | 1 + .../pamid/src/coll/allgather/mpido_allgather.c | 9 ++++++- .../pamid/src/coll/allgatherv/mpido_allgatherv.c | 9 ++++++- .../pamid/src/coll/allreduce/mpido_allreduce.c | 9 ++++++- src/mpid/pamid/src/coll/alltoall/mpido_alltoall.c | 9 ++++++- src/mpid/pamid/src/coll/gather/mpido_gather.c | 9 ++++++- src/mpid/pamid/src/coll/gatherv/mpido_gatherv.c | 9 ++++++- src/mpid/pamid/src/coll/red_scat/mpido_red_scat.c | 22 +++++++++++++--- src/mpid/pamid/src/coll/reduce/mpido_reduce.c | 9 ++++++- src/mpid/pamid/src/coll/scan/mpido_scan.c | 9 ++++++- src/mpid/pamid/src/coll/scatter/mpido_scatter.c | 2 +- src/mpid/pamid/src/coll/scatterv/mpido_scatterv.c | 2 +- src/mpid/pamid/src/comm/mpid_selectcolls.c | 2 +- src/mpid/pamid/src/mpid_init.c | 4 +- src/mpid/pamid/src/mpidi_env.c | 11 ++++++++ src/mpid/pamid/src/mpidi_util.c | 26 ++++++++++++------- 16 files changed, 115 insertions(+), 27 deletions(-) hooks/post-receive -- MPICH primary repository

1 0

[mpich] MPICH primary repository branch, master, updated. v3.2b1-65-geb0e771
by noreply＠mpich.org 14 Apr '15

14 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "MPICH primary repository". The branch, master has been updated via eb0e7712de7e0d01c4c94b71ea88ae1ef6ac9a46 (commit) from 5d4128f8f7ea831ab591f27bee61dc826b002454 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- http://git.mpich.org/mpich.git/commitdiff/eb0e7712de7e0d01c4c94b71ea88ae1ef… commit eb0e7712de7e0d01c4c94b71ea88ae1ef6ac9a46 Author: Min Si <msi(a)il.is.s.u-tokyo.ac.jp> Date: Tue Apr 14 13:31:47 2015 -0500 Fixed the Fortran common symbol issue on Mac. The linker on Darwin does not allow common symbols, thus libtool adds the -fno-common option by default for shared libraries. However, the common symbols defined in different shared libraries and object files still can not be treated as the same symbol. For example: with gfortran, the same common block in the shared libraries and the object files will have different memory locations separately; with ifort, the same common block in different shared libraries will get the same memory location but still get a different location in the object file. The -Wl,-commons,use_dylibs option asks linker to check dylibs for definitions and use them to replace tentative definitions(commons) from object files, thus it solves the issue of the common symbol mismatch between the object file and the dylibs (i.e., by setting the address of a common symbol to the place located in the first dylib that is linked with the object file and contains this symbol). It needs to be added only in the linking stage for the final executable file. The -flat-namespace option allows linker to unify the same common symbols in different dylibs. It needs to be added in linking stage for both the shared library and the final executable file. (see man ld for their definition) Although gfortran works fine by only adding -flat-namespace, and ifort works by only adding -Wl,-commons,use_dylibs, we should add both options here as a generic solution to make sure everything safe. Signed-off-by: Ken Raffenetti <raffenet(a)mcs.anl.gov> diff --git a/configure.ac b/configure.ac index 0af4994..8279397 100644 --- a/configure.ac +++ b/configure.ac @@ -6000,6 +6000,36 @@ if test "X$enable_shared" = "Xyes" ; then AS_CASE([$host], [*-*-darwin*], [ + + # The linker on Darwin does not allow common symbols, thus libtool + # adds the -fno-common option by default for shared libraries. + # However, the common symbols defined in different shared libraries + # and object files still can not be treated as the same symbol. + # For example: + # with gfortran, the same common block in the shared libraries and + # the object files will have different memory locations separately; + # with ifort, the same common block in different shared libraries + # will get the same memory location but still get a different location + # in the object file. + + # The -Wl,-commons,use_dylibs option asks linker to check dylibs for + # definitions and use them to replace tentative definitions(commons) + # from object files, thus it solves the issue of the common symbol + # mismatch between the object file and the dylibs (i.e., by setting + # the address of a common symbol to the place located in the first + # dylib that is linked with the object file and contains this symbol). + # It needs to be added only in the linking stage for the final + # executable file. + + # On the other hand, the -flat-namespace option allows linker to + # unify the same common symbols in different dylibs. It needs to be + # added in linking stage for both the shared library and the final + # executable file. + + # Although gfortran works fine by only adding -flat-namespace, and + # ifort works by only adding -Wl,-commons,use_dylibs, we should add + # both options here as a generic solution to make sure everything safe. + # sanity check that -Wl,-flat_namespace works on darwin, unless the user # asked us not to add it if test "X$enable_two_level_namespace" = "Xno"; then @@ -6027,31 +6057,28 @@ if test "X$enable_shared" = "Xyes" ; then # We only need to bother with -Wl,-commons,-use_dylibs if we are # building fortran bindings (no common block usage in our C libs). if test "X$enable_f77" = "Xyes" ; then - # We also don't need this argument if flat_namespace is used. - if test "X$enable_two_level_namespace" != "Xno" ; then - # TODO, move this into a PAC macro with real autoconf caching - pac_cv_wl_commons_use_dylibs_works=no - AC_MSG_CHECKING([if the F77 compiler accepts -Wl,-commons,use_dylibs]) - AC_LANG_PUSH([Fortran 77]) - PAC_PUSH_FLAG([LDFLAGS]) - PAC_APPEND_FLAG([-Wl,-commons,use_dylibs], [LDFLAGS]) - AC_LINK_IFELSE([AC_LANG_PROGRAM([],[ INTEGER i])], - [AC_MSG_RESULT([yes]) - pac_cv_wl_commons_use_dylibs_works=yes], - [AC_MSG_RESULT([no])]) - PAC_POP_FLAG([LDFLAGS]) - AC_LANG_POP([Fortran 77]) - - # Add the flag to the WRAPPER_LDFLAGS, since this common block issue - # is really only a problem for dynamically linked user programs. - # - # Technically we may not be able to use the same form of the argument - # for all four compilers (CC/CXX/F77/FC). But we only think this is - # necessary for Darwin for now, so this unconditional, single-var - # approximation will work for now. - if test "X$pac_cv_wl_commons_use_dylibs_works" = "Xyes" ; then - PAC_APPEND_FLAG([-Wl,-commons,use_dylibs], [WRAPPER_LDFLAGS]) - fi + # TODO, move this into a PAC macro with real autoconf caching + pac_cv_wl_commons_use_dylibs_works=no + AC_MSG_CHECKING([if the F77 compiler accepts -Wl,-commons,use_dylibs]) + AC_LANG_PUSH([Fortran 77]) + PAC_PUSH_FLAG([LDFLAGS]) + PAC_APPEND_FLAG([-Wl,-commons,use_dylibs], [LDFLAGS]) + AC_LINK_IFELSE([AC_LANG_PROGRAM([],[ INTEGER i])], + [AC_MSG_RESULT([yes]) + pac_cv_wl_commons_use_dylibs_works=yes], + [AC_MSG_RESULT([no])]) + PAC_POP_FLAG([LDFLAGS]) + AC_LANG_POP([Fortran 77]) + + # Add the flag to the WRAPPER_LDFLAGS, since this common block issue + # is really only a problem for dynamically linked user programs. + # + # Technically we may not be able to use the same form of the argument + # for all four compilers (CC/CXX/F77/FC). But we only think this is + # necessary for Darwin for now, so this unconditional, single-var + # approximation will work for now. + if test "X$pac_cv_wl_commons_use_dylibs_works" = "Xyes" ; then + PAC_APPEND_FLAG([-Wl,-commons,use_dylibs], [WRAPPER_LDFLAGS]) fi fi ] ----------------------------------------------------------------------- Summary of changes: configure.ac | 77 +++++++++++++++++++++++++++++++++++++++------------------- 1 files changed, 52 insertions(+), 25 deletions(-) hooks/post-receive -- MPICH primary repository

1 0

[mpich] MPICH primary repository branch, master, updated. v3.2b1-64-g5d4128f
by noreply＠mpich.org 14 Apr '15

14 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "MPICH primary repository". The branch, master has been updated via 5d4128f8f7ea831ab591f27bee61dc826b002454 (commit) from 36a581a06316b6985bebc7bd1ee57ca47f5775a6 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- http://git.mpich.org/mpich.git/commitdiff/5d4128f8f7ea831ab591f27bee61dc826… commit 5d4128f8f7ea831ab591f27bee61dc826b002454 Author: Charles J Archer <charles.j.archer(a)intel.com> Date: Tue Apr 14 09:26:32 2015 -0700 OFI tsearch removed from API in favor of FI_PEEK+trecvmsg diff --git a/src/mpid/ch3/channels/nemesis/netmod/ofi/errnames.txt b/src/mpid/ch3/channels/nemesis/netmod/ofi/errnames.txt index 620e52d..44063ab 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/ofi/errnames.txt +++ b/src/mpid/ch3/channels/nemesis/netmod/ofi/errnames.txt @@ -34,8 +34,8 @@ **ofi_fabricclose %s %d %s %s:OFI fabric close failed (%s:%d:%s:%s) **ofi_domainclose:OFI domain close failed **ofi_domainclose %s %d %s %s:OFI domain close failed (%s:%d:%s:%s) -**ofi_tsearch:OFI tsearch failed -**ofi_tsearch %s %d %s %s:OFI tsearch failed (%s:%d:%s:%s) +**ofi_peek:OFI peek failed +**ofi_peek %s %d %s %s:OFI peek failed (%s:%d:%s:%s) **ofi_poll:OFI poll failed **ofi_poll %s %d %s %s:OFI poll failed (%s:%d:%s:%s) **ofi_cancel:OFI cancel failed diff --git a/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_impl.h b/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_impl.h index 652cea6..065920a 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_impl.h +++ b/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_impl.h @@ -34,6 +34,7 @@ typedef struct fi_tx_attr tx_attr_t; typedef struct fi_cq_tagged_entry cq_tagged_entry_t; typedef struct fi_cq_err_entry cq_err_entry_t; typedef struct fi_context context_t; +typedef struct fi_msg_tagged msg_tagged_t; typedef int (*event_callback_fn) (cq_tagged_entry_t * wc, MPID_Request *); typedef int (*req_fn) (MPIDI_VC_t *, MPID_Request *, int *); @@ -200,6 +201,9 @@ fn_fail: \ #define MPID_PORT_SHIFT (32) #define OFI_KVSAPPSTRLEN 1024 +#define PEEK_INIT 0 +#define PEEK_FOUND 1 + /* ******************************** */ /* Request manipulation inlines */ /* ******************************** */ diff --git a/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_init.c b/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_init.c index 5024bfa..cc9a6e9 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_init.c +++ b/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_init.c @@ -337,11 +337,9 @@ static inline int compile_time_checking() MPIU_ERR_SET2(e, MPI_ERR_OTHER, "**ofi_avclose", "**ofi_avclose %s %d %s %s", a, b, a, a); MPIU_ERR_SET2(e, MPI_ERR_OTHER, "**ofi_epclose", "**ofi_epclose %s %d %s %s", a, b, a, a); MPIU_ERR_SET2(e, MPI_ERR_OTHER, "**ofi_cqclose", "**ofi_cqclose %s %d %s %s", a, b, a, a); - MPIU_ERR_SET2(e, MPI_ERR_OTHER, "**ofi_fabricclose", "**ofi_fabricclose %s %d %s %s", a, b, a, - a); - MPIU_ERR_SET2(e, MPI_ERR_OTHER, "**ofi_domainclose", "**ofi_domainclose %s %d %s %s", a, b, a, - a); - MPIU_ERR_SET2(e, MPI_ERR_OTHER, "**ofi_tsearch", "**ofi_tsearch %s %d %s %s", a, b, a, a); + MPIU_ERR_SET2(e, MPI_ERR_OTHER, "**ofi_fabricclose", "**ofi_fabricclose %s %d %s %s", a, b, a,a); + MPIU_ERR_SET2(e, MPI_ERR_OTHER, "**ofi_domainclose", "**ofi_domainclose %s %d %s %s", a, b, a,a); + MPIU_ERR_SET2(e, MPI_ERR_OTHER, "**ofi_peek", "**ofi_peek %s %d %s %s", a, b, a, a); MPIU_ERR_SET2(e, MPI_ERR_OTHER, "**ofi_poll", "**ofi_poll %s %d %s %s", a, b, a, a); MPIU_ERR_SET2(e, MPI_ERR_OTHER, "**ofi_cancel", "**ofi_cancel %s %d %s %s", a, b, a, a); #endif diff --git a/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_progress.c b/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_progress.c index 7c9d1c8..cc2048f 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_progress.c +++ b/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_progress.c @@ -9,9 +9,8 @@ */ #include "ofi_impl.h" -#define TSEARCH_INIT 0 -#define TSEARCH_NOT_FOUND 1 -#define TSEARCH_FOUND 2 +#define NORMAL_PEEK 0 +#define CLAIM_PEEK 1 /* ------------------------------------------------------------------------ */ /* This routine looks up the request that contains a context object */ @@ -22,43 +21,19 @@ static inline MPID_Request *context_to_req(void *ofi_context) } /* ------------------------------------------------------------------------ */ -/* Populate the status object from the return of the tsearch */ +/* peek_callback called when a successful peek is completed */ /* ------------------------------------------------------------------------ */ #undef FCNAME -#define FCNAME DECL_FUNC(search_complete) -static int search_complete(uint64_t tag, size_t msglen, MPID_Request * rreq) +#define FCNAME DECL_FUNC(peek_callback) +static int peek_callback(cq_tagged_entry_t * wc, MPID_Request * rreq) { int mpi_errno = MPI_SUCCESS; BEGIN_FUNC(FCNAME); - rreq->status.MPI_SOURCE = get_source(tag); - rreq->status.MPI_TAG = get_tag(tag); - rreq->status.MPI_ERROR = MPI_SUCCESS; - MPIR_STATUS_SET_COUNT(rreq->status, msglen); - END_FUNC(FCNAME); - return mpi_errno; -} - -/* ------------------------------------------------------------------------ */ -/* Check if wc->data is filled. If wc->data a message was found */ -/* and we fill out the status. Otherwise, it's not found, and we set the */ -/* state of the search request to 1, not found */ -/* ------------------------------------------------------------------------ */ -#undef FCNAME -#define FCNAME DECL_FUNC(tsearch_callback) -static int tsearch_callback(cq_tagged_entry_t * wc, MPID_Request * rreq) -{ - int mpi_errno = MPI_SUCCESS; - BEGIN_FUNC(FCNAME); - if (wc->data) { - REQ_OFI(rreq)->match_state = TSEARCH_FOUND; - rreq->status.MPI_SOURCE = get_source(wc->tag); - rreq->status.MPI_TAG = get_tag(wc->tag); - MPIR_STATUS_SET_COUNT(rreq->status, wc->len); - rreq->status.MPI_ERROR = MPI_SUCCESS; - } - else { - REQ_OFI(rreq)->match_state = TSEARCH_NOT_FOUND; - } + REQ_OFI(rreq)->match_state = PEEK_FOUND; + rreq->status.MPI_SOURCE = get_source(wc->tag); + rreq->status.MPI_TAG = get_tag(wc->tag); + MPIR_STATUS_SET_COUNT(rreq->status, wc->len); + rreq->status.MPI_ERROR = MPI_SUCCESS; END_FUNC(FCNAME); return mpi_errno; } @@ -92,54 +67,49 @@ int MPID_nem_ofi_iprobe_impl(struct MPIDI_VC *vc, rreq = &rreq_s; rreq->dev.OnDataAvail = NULL; } - REQ_OFI(rreq)->event_callback = tsearch_callback; - REQ_OFI(rreq)->match_state = TSEARCH_INIT; + REQ_OFI(rreq)->event_callback = peek_callback; + REQ_OFI(rreq)->match_state = PEEK_INIT; OFI_ADDR_INIT(source, vc, remote_proc); match_bits = init_recvtag(&mask_bits, comm->context_id + context_offset, source, tag); - /* ------------------------------------------------------------------------ */ - /* fi_tsearch: */ - /* Initiate a search for a match in the hardware or software queue. */ - /* The search can complete immediately with a match found (or not, ENOMSG). */ - /* It can also enqueue a context entry into the completion queue to make the */ - /* search nonblocking. This code will poll until the entry is complete. */ - /* ------------------------------------------------------------------------ */ - ret = fi_tsearch(gl_data.endpoint, /* Tagged Endpoint */ - &match_bits, /* Match bits */ - mask_bits, /* Bits to ignore */ - 0, /* Flags */ - &remote_proc, /* Remote Address */ - &len, /* Out: incoming msglen */ - &(REQ_OFI(rreq)->ofi_context)); /* Nonblocking context */ - if (ret == -FI_ENOMSG) { + /* ------------------------------------------------------------------------- */ + /* fi_recvmsg with FI_PEEK: */ + /* Initiate a search for a match in the hardware or software queue. */ + /* The search can complete immediately with -ENOMSG. */ + /* I successful, libfabric will enqueue a context entry into the completion */ + /* queue to make the search nonblocking. This code will poll until the */ + /* entry is enqueued. */ + /* ------------------------------------------------------------------------- */ + msg_tagged_t msg; + uint64_t msgflags = FI_PEEK; + msg.msg_iov = NULL; + msg.desc = NULL; + msg.iov_count = 0; + msg.addr = remote_proc; + msg.tag = match_bits; + msg.ignore = mask_bits; + msg.context = (void *) &(REQ_OFI(rreq)->ofi_context); + msg.data = 0; + if(*flag == CLAIM_PEEK) + msgflags|=FI_CLAIM; + ret = fi_trecvmsg(gl_data.endpoint,&msg,msgflags); + if(ret == -ENOMSG) { + if (rreq_ptr) { + MPIDI_CH3_Request_destroy(rreq); + *rreq_ptr = NULL; *flag = 0; - goto fn_exit; - } - else if (ret == 1) { - *flag = 1; - search_complete(match_bits, len, rreq); - *status = rreq->status; - goto fn_exit; - } - else { - MPIU_ERR_CHKANDJUMP4((ret < 0), mpi_errno, MPI_ERR_OTHER, - "**ofi_tsearch", "**ofi_tsearch %s %d %s %s", - __SHORT_FILE__, __LINE__, FCNAME, fi_strerror(-ret)); + } + MPID_nem_ofi_poll(MPID_NONBLOCKING_POLL); + goto fn_exit; } - while (TSEARCH_INIT == REQ_OFI(rreq)->match_state) - MPID_nem_ofi_poll(MPID_BLOCKING_POLL); + MPIU_ERR_CHKANDJUMP4((ret < 0), mpi_errno, MPI_ERR_OTHER, + "**ofi_peek", "**ofi_peek %s %d %s %s", + __SHORT_FILE__, __LINE__, FCNAME, fi_strerror(-ret)); - if (REQ_OFI(rreq)->match_state == TSEARCH_NOT_FOUND) { - if (rreq_ptr) { - MPIDI_CH3_Request_destroy(rreq); - *rreq_ptr = NULL; - } - *flag = 0; - } - else { - *status = rreq->status; - *flag = 1; - } + while (PEEK_INIT == REQ_OFI(rreq)->match_state) + MPID_nem_ofi_poll(MPID_BLOCKING_POLL); + *status = rreq->status; + *flag = 1; END_FUNC_RC(FCNAME); } @@ -152,6 +122,7 @@ int MPID_nem_ofi_iprobe(struct MPIDI_VC *vc, { int rc; BEGIN_FUNC(FCNAME); + *flag = 0; rc = MPID_nem_ofi_iprobe_impl(vc, source, tag, comm, context_offset, flag, status, NULL); END_FUNC(FCNAME); return rc; @@ -169,8 +140,9 @@ int MPID_nem_ofi_improbe(struct MPIDI_VC *vc, int old_error = status->MPI_ERROR; int s; BEGIN_FUNC(FCNAME); + *flag = NORMAL_PEEK; s = MPID_nem_ofi_iprobe_impl(vc, source, tag, comm, context_offset, flag, status, message); - if (flag && *flag) { + if (*flag) { status->MPI_ERROR = old_error; (*message)->kind = MPID_REQUEST_MPROBE; } @@ -186,6 +158,7 @@ int MPID_nem_ofi_anysource_iprobe(int tag, { int rc; BEGIN_FUNC(FCNAME); + *flag = NORMAL_PEEK; rc = MPID_nem_ofi_iprobe(NULL, MPI_ANY_SOURCE, tag, comm, context_offset, flag, status); END_FUNC(FCNAME); return rc; @@ -200,6 +173,7 @@ int MPID_nem_ofi_anysource_improbe(int tag, { int rc; BEGIN_FUNC(FCNAME); + *flag = CLAIM_PEEK; rc = MPID_nem_ofi_improbe(NULL, MPI_ANY_SOURCE, tag, comm, context_offset, flag, message, status); END_FUNC(FCNAME); diff --git a/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_tagged.c b/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_tagged.c index 23abe0e..c73f618 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_tagged.c +++ b/src/mpid/ch3/channels/nemesis/netmod/ofi/ofi_tagged.c @@ -250,13 +250,25 @@ int MPID_nem_ofi_recv_posted(struct MPIDI_VC *vc, struct MPID_Request *rreq) /* ---------------- */ /* Post the receive */ /* ---------------- */ - FI_RC(fi_trecv(gl_data.endpoint, - recv_buffer, - data_sz, - gl_data.mr, - remote_proc, - match_bits, mask_bits, &(REQ_OFI(rreq)->ofi_context)), trecv); - MPID_nem_ofi_poll(MPID_NONBLOCKING_POLL); + uint64_t msgflags; + iovec_t iov; + msg_tagged_t msg; + iov.iov_base = recv_buffer; + iov.iov_len = data_sz; + if(REQ_OFI(rreq)->match_state == PEEK_FOUND) + msgflags = FI_CLAIM; + else + msgflags = 0ULL; + + msg.msg_iov = &iov; + msg.desc = NULL; + msg.iov_count = 1; + msg.addr = remote_proc; + msg.tag = match_bits; + msg.ignore = mask_bits; + msg.context = (void *) &(REQ_OFI(rreq)->ofi_context); + msg.data = 0; + FI_RC(fi_trecvmsg(gl_data.endpoint,&msg,msgflags), trecv); END_FUNC_RC(FCNAME); } ----------------------------------------------------------------------- Summary of changes: .../ch3/channels/nemesis/netmod/ofi/errnames.txt | 4 +- .../ch3/channels/nemesis/netmod/ofi/ofi_impl.h | 4 + .../ch3/channels/nemesis/netmod/ofi/ofi_init.c | 8 +- .../ch3/channels/nemesis/netmod/ofi/ofi_progress.c | 130 ++++++++------------ .../ch3/channels/nemesis/netmod/ofi/ofi_tagged.c | 26 +++- 5 files changed, 80 insertions(+), 92 deletions(-) hooks/post-receive -- MPICH primary repository

1 0

[mpich] MPICH primary repository branch, master, updated. v3.2b1-63-g36a581a
by noreply＠mpich.org 11 Apr '15

11 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "MPICH primary repository". The branch, master has been updated via 36a581a06316b6985bebc7bd1ee57ca47f5775a6 (commit) from daf29e33662359f73dcd903bda42633752b96dda (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- http://git.mpich.org/mpich.git/commitdiff/36a581a06316b6985bebc7bd1ee57ca47… commit 36a581a06316b6985bebc7bd1ee57ca47f5775a6 Author: Pavan Balaji <balaji(a)anl.gov> Date: Sat Apr 11 09:27:30 2015 -0500 Free communicators when not using them. When we skip non-comm-world communicators, we need to make sure to skip them. No reviewer. diff --git a/test/mpi/coll/bcast.c b/test/mpi/coll/bcast.c index 993bdfb..f465d01 100644 --- a/test/mpi/coll/bcast.c +++ b/test/mpi/coll/bcast.c @@ -31,8 +31,10 @@ int main(int argc, char *argv[]) continue; #if defined BCAST_COMM_WORLD_ONLY - if (comm != MPI_COMM_WORLD) + if (comm != MPI_COMM_WORLD) { + MTestFreeComm(&comm); continue; + } #endif /* BCAST_COMM_WORLD_ONLY */ /* Determine the sender and receiver */ ----------------------------------------------------------------------- Summary of changes: test/mpi/coll/bcast.c | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) hooks/post-receive -- MPICH primary repository

1 0

[mpich] MPICH primary repository branch, master, updated. v3.2b1-62-gdaf29e3
by noreply＠mpich.org 10 Apr '15

10 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "MPICH primary repository". The branch, master has been updated via daf29e33662359f73dcd903bda42633752b96dda (commit) via 2f97f4297beffe3994bb4a7ba25fc22217c81a55 (commit) from 79e239819cd638f7e0fc2c6c9b597ab3b685805b (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- http://git.mpich.org/mpich.git/commitdiff/daf29e33662359f73dcd903bda4263375… commit daf29e33662359f73dcd903bda42633752b96dda Author: Ken Raffenetti <raffenet(a)mcs.anl.gov> Date: Wed Apr 8 09:59:42 2015 -0500 portals4: tuning Changes the value of various static limits in the Portals4 netmod, based on experimentation results and suggestions from collaborators. 1. Bump most ni_limits from 32K to 64K. These limits relate closely to queue depth. We can reasonably expect to support a queue depth of 64K. 2. Limit issued origin events to 500. This translates to sending ~250 operations to Portals at a time, which over IB is roughly the saturation point. TODO: turn this into a CVAR. 3. Limit per target issued operations to 50. This will give the target a better chance to process events without being overwhelmed by a single process. TODO: turn this into a CVAR, also. 4. Allocate more buffer space for incoming control messages. Observed results, especially with larger messages, showed that more buffer space cuts down on flow-control events. Signed-off-by: Antonio J. Pena <apenya(a)mcs.anl.gov> diff --git a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_init.c b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_init.c index ae9099f..fd972bb 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_init.c +++ b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_init.c @@ -12,10 +12,13 @@ #error Checkpointing not implemented #endif -#define UNEXPECTED_HDR_COUNT 32768 -#define EVENT_COUNT 32768 -#define LIST_SIZE 32768 -#define ENTRY_COUNT 32768 +#define UNEXPECTED_HDR_COUNT (1024*64) +#define EVENT_COUNT (1024*64) +#define LIST_SIZE (1024*64) +#define MAX_ENTRIES (1024*64) +#define ENTRY_COUNT (1024*64) +/* FIXME: turn ORIGIN_EVENTS into a CVAR */ +#define ORIGIN_EVENTS (500) #define NID_KEY "NID" #define PID_KEY "PID" #define PTI_KEY "PTI" @@ -245,7 +248,7 @@ static int ptl_init(MPIDI_PG_t *pg_p, int pg_rank, char **bc_val_p, int *val_max MPIU_ERR_CHKANDJUMP1(ret, mpi_errno, MPI_ERR_OTHER, "**ptlmdbind", "**ptlmdbind %s", MPID_nem_ptl_strerror(ret)); /* currently, rportlas only works with a single NI and EQ */ - ret = MPID_nem_ptl_rptl_init(MPIDI_Process.my_pg->size, EVENT_COUNT, get_target_info); + ret = MPID_nem_ptl_rptl_init(MPIDI_Process.my_pg->size, ORIGIN_EVENTS, get_target_info); MPIU_ERR_CHKANDJUMP1(ret, mpi_errno, MPI_ERR_OTHER, "**ptlniinit", "**ptlniinit %s", MPID_nem_ptl_strerror(ret)); /* allow rportal to manage the primary portal and retransmit if needed */ diff --git a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_nm.c b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_nm.c index 01c0c43..bb1d361 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_nm.c +++ b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_nm.c @@ -8,8 +8,8 @@ #include <mpl_utlist.h> #include "rptl.h" -#define NUM_RECV_BUFS 8 -#define BUFSIZE (1024*1024) +#define NUM_RECV_BUFS 2 +#define BUFSIZE (1024*1024*50) #define CTL_TAG 0 #define GET_TAG 1 #define PAYLOAD_SIZE (PTL_MAX_EAGER - sizeof(MPIDI_CH3_Pkt_t)) diff --git a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_poll.c b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_poll.c index 9ae3be1..a94eb8a 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_poll.c +++ b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_poll.c @@ -103,7 +103,7 @@ static int append_overflow(int i) me.match_id = id_any; me.match_bits = 0; me.ignore_bits = ~((ptl_match_bits_t)0); - me.min_free = PTL_MAX_EAGER; + me.min_free = PTL_LARGE_THRESHOLD; /* if there is no space to append the entry, process outstanding events and try again */ ret = PtlMEAppend(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_pt, &me, PTL_OVERFLOW_LIST, (void *)(size_t)i, diff --git a/src/mpid/ch3/channels/nemesis/netmod/portals4/rptl.c b/src/mpid/ch3/channels/nemesis/netmod/portals4/rptl.c index 74a39ee..c3742fc 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/portals4/rptl.c +++ b/src/mpid/ch3/channels/nemesis/netmod/portals4/rptl.c @@ -7,6 +7,10 @@ #include "ptl_impl.h" #include "rptl.h" +/* FIXME: turn this into a CVAR, or fraction of the event limit from + rptl_init */ +#define PER_TARGET_THRESHOLD 50 + /* * Prereqs: * @@ -93,6 +97,7 @@ static int find_target(ptl_process_t id, struct rptl_target **target) t->op_pool = NULL; t->data_op_list = NULL; t->control_op_list = NULL; + t->issued_data_ops = 0; } *target = t; @@ -220,7 +225,7 @@ static int poke_progress(void) /* we should not get any NACKs on the control portal */ assert(op->state != RPTL_OP_STATE_NACKED); - if (rptl_info.origin_events_left < 2) { + if (rptl_info.origin_events_left < 2 || target->issued_data_ops > PER_TARGET_THRESHOLD) { /* too few origin events left. we can't issue this op * or any following op to this target in order to * maintain ordering */ @@ -228,6 +233,7 @@ static int poke_progress(void) } rptl_info.origin_events_left -= 2; + target->issued_data_ops++; /* force request for an ACK even if the user didn't ask * for it. replace the user pointer with the OP id. */ @@ -255,7 +261,7 @@ static int poke_progress(void) if (op->state == RPTL_OP_STATE_NACKED) break; - if (rptl_info.origin_events_left < 2) { + if (rptl_info.origin_events_left < 2 || target->issued_data_ops > PER_TARGET_THRESHOLD) { /* too few origin events left. we can't issue * this op or any following op to this target in * order to maintain ordering */ @@ -263,6 +269,7 @@ static int poke_progress(void) } rptl_info.origin_events_left -= 2; + target->issued_data_ops++; /* force request for an ACK even if the user didn't * ask for it. replace the user pointer with the OP @@ -283,7 +290,7 @@ static int poke_progress(void) if (op->state == RPTL_OP_STATE_NACKED) break; - if (rptl_info.origin_events_left < 1) { + if (rptl_info.origin_events_left < 1 || target->issued_data_ops > PER_TARGET_THRESHOLD) { /* too few origin events left. we can't issue * this op or any following op to this target in * order to maintain ordering */ @@ -291,6 +298,7 @@ static int poke_progress(void) } rptl_info.origin_events_left--; + target->issued_data_ops++; ret = PtlGet(op->u.get.md_handle, op->u.get.local_offset, op->u.get.length, op->u.get.target_id, op->u.get.pt_index, op->u.get.match_bits, @@ -539,6 +547,7 @@ static int get_event_info(ptl_event_t * event, struct rptl **ret_rptl, struct rp op = (struct rptl_op *) event->user_ptr; rptl_info.origin_events_left++; + op->target->issued_data_ops--; /* see if there are any pending ops to be issued */ ret = poke_progress(); diff --git a/src/mpid/ch3/channels/nemesis/netmod/portals4/rptl.h b/src/mpid/ch3/channels/nemesis/netmod/portals4/rptl.h index f99523c..c57b8dd 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/portals4/rptl.h +++ b/src/mpid/ch3/channels/nemesis/netmod/portals4/rptl.h @@ -158,6 +158,8 @@ struct rptl_target { struct rptl_target *next; struct rptl_target *prev; + + int issued_data_ops; }; struct rptl_info { http://git.mpich.org/mpich.git/commitdiff/2f97f4297beffe3994bb4a7ba25fc2221… commit 2f97f4297beffe3994bb4a7ba25fc22217c81a55 Author: Ken Raffenetti <raffenet(a)mcs.anl.gov> Date: Fri Apr 3 11:29:13 2015 -0500 portals4: revert [722d85a4] and [d459c025] The 2 commits being reverted introduced a "safe" PtlMEAppend function that would call MPID_nem_ptl_poll to process some events in case there was no space to append the match list entry. However the poll function is not reentrant safe, which could lead to ordering problems. The increased list entry limit from [c6c0d6f6] should prevent PTL_NO_SPACE errors from happening, except in the extreme case. If we still find we are hitting this error, a proper fix can be done in the Rportals layer. Signed-off-by: Antonio J. Pena <apenya(a)mcs.anl.gov> diff --git a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_impl.h b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_impl.h index 4071f72..8f39d73 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_impl.h +++ b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_impl.h @@ -208,26 +208,6 @@ int MPID_nem_ptl_lmt_handle_cookie(MPIDI_VC_t *vc, MPID_Request *req, MPID_IOV s int MPID_nem_ptl_lmt_done_send(MPIDI_VC_t *vc, MPID_Request *req); int MPID_nem_ptl_lmt_done_recv(MPIDI_VC_t *vc, MPID_Request *req); -/* a safe PtlMEAppend for when there is no space available */ -static inline int MPID_nem_ptl_me_append(ptl_handle_ni_t ni_handle, - ptl_pt_index_t pt_index, - const ptl_me_t *me, - ptl_list_t ptl_list, - void *user_ptr, - ptl_handle_me_t *me_handle) -{ - int ret; - - while (1) { - ret = PtlMEAppend(ni_handle, pt_index, me, ptl_list, user_ptr, me_handle); - if (ret != PTL_NO_SPACE) - break; - MPID_nem_ptl_poll(1); - } - - return ret; -} - /* packet handlers */ int MPID_nem_ptl_pkt_cancel_send_req_handler(MPIDI_VC_t *vc, MPIDI_CH3_Pkt_t *pkt, diff --git a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_nm.c b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_nm.c index 39f8d8f..01c0c43 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_nm.c +++ b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_nm.c @@ -51,8 +51,8 @@ int MPID_nem_ptl_nm_init(void) for (i = 0; i < NUM_RECV_BUFS; ++i) { overflow_me.start = recvbufs + (i * BUFSIZE); - ret = MPID_nem_ptl_me_append(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_control_pt, &overflow_me, - PTL_OVERFLOW_LIST, (void *)(size_t)i, &me_handles[i]); + ret = PtlMEAppend(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_control_pt, &overflow_me, + PTL_OVERFLOW_LIST, (void *)(size_t)i, &me_handles[i]); MPIU_ERR_CHKANDJUMP1(ret, mpi_errno, MPI_ERR_OTHER, "**ptlmeappend", "**ptlmeappend %s", MPID_nem_ptl_strerror(ret)); } @@ -122,8 +122,8 @@ static inline int meappend_large(ptl_process_t id, MPID_Request *req, ptl_match_ ++REQ_PTL(req)->num_gets; - ret = MPID_nem_ptl_me_append(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_control_pt, &me, PTL_PRIORITY_LIST, req, - &foo_me_handle); + ret = PtlMEAppend(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_control_pt, &me, PTL_PRIORITY_LIST, req, + &foo_me_handle); MPIU_ERR_CHKANDJUMP1(ret, mpi_errno, MPI_ERR_OTHER, "**ptlmeappend", "**ptlmeappend %s", MPID_nem_ptl_strerror(ret)); MPIU_DBG_MSG_FMT(CH3_CHANNEL, VERBOSE, (MPIU_DBG_FDEST, "PtlMEAppend(req=%p tag=%#lx)", req, NPTL_MATCH_GET_TAG(match_bits))); @@ -494,8 +494,8 @@ int MPID_nem_ptl_nm_ctl_event_handler(const ptl_event_t *e) overflow_me.start = recvbufs + (buf_idx * BUFSIZE); - ret = MPID_nem_ptl_me_append(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_control_pt, &overflow_me, - PTL_OVERFLOW_LIST, e->user_ptr, &me_handles[buf_idx]); + ret = PtlMEAppend(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_control_pt, &overflow_me, + PTL_OVERFLOW_LIST, e->user_ptr, &me_handles[buf_idx]); MPIU_ERR_CHKANDJUMP1(ret, mpi_errno, MPI_ERR_OTHER, "**ptlmeappend", "**ptlmeappend %s", MPID_nem_ptl_strerror(ret)); } diff --git a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_poll.c b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_poll.c index 195791d..9ae3be1 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_poll.c +++ b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_poll.c @@ -106,8 +106,8 @@ static int append_overflow(int i) me.min_free = PTL_MAX_EAGER; /* if there is no space to append the entry, process outstanding events and try again */ - ret = MPID_nem_ptl_me_append(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_pt, &me, PTL_OVERFLOW_LIST, (void *)(size_t)i, - &overflow_me_handle[i]); + ret = PtlMEAppend(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_pt, &me, PTL_OVERFLOW_LIST, (void *)(size_t)i, + &overflow_me_handle[i]); MPIU_ERR_CHKANDJUMP1(ret, mpi_errno, MPI_ERR_OTHER, "**ptlmeappend", "**ptlmeappend %s", MPID_nem_ptl_strerror(ret)); fn_exit: diff --git a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_recv.c b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_recv.c index e69e9b1..ec6d90a 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_recv.c +++ b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_recv.c @@ -543,7 +543,7 @@ int MPID_nem_ptl_recv_posted(MPIDI_VC_t *vc, MPID_Request *rreq) } - ret = MPID_nem_ptl_me_append(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_pt, &me, PTL_PRIORITY_LIST, rreq, &REQ_PTL(rreq)->put_me); + ret = PtlMEAppend(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_pt, &me, PTL_PRIORITY_LIST, rreq, &REQ_PTL(rreq)->put_me); MPIU_ERR_CHKANDJUMP1(ret, mpi_errno, MPI_ERR_OTHER, "**ptlmeappend", "**ptlmeappend %s", MPID_nem_ptl_strerror(ret)); DBG_MSG_MEAPPEND("REG", vc ? vc->pg_rank : MPI_ANY_SOURCE, me, rreq); MPIU_DBG_MSG_P(CH3_CHANNEL, VERBOSE, " buf=%p", me.start); diff --git a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_send.c b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_send.c index f742ae8..32c4275 100644 --- a/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_send.c +++ b/src/mpid/ch3/channels/nemesis/netmod/portals4/ptl_send.c @@ -41,8 +41,8 @@ static void big_meappend(void *buf, ptl_size_t left_to_send, MPIDI_VC_t *vc, ptl else me.length = left_to_send; - ret = MPID_nem_ptl_me_append(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_get_pt, &me, PTL_PRIORITY_LIST, sreq, - &REQ_PTL(sreq)->get_me_p[i]); + ret = PtlMEAppend(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_get_pt, &me, PTL_PRIORITY_LIST, sreq, + &REQ_PTL(sreq)->get_me_p[i]); DBG_MSG_MEAPPEND("CTL", vc->pg_rank, me, sreq); MPIU_Assert(ret == 0); /* increment the cc for each get operation */ @@ -276,8 +276,8 @@ static int send_msg(ptl_hdr_data_t ssend_flag, struct MPIDI_VC *vc, const void * MPIU_CHKPMEM_MALLOC(REQ_PTL(sreq)->get_me_p, ptl_handle_me_t *, sizeof(ptl_handle_me_t), mpi_errno, "get_me_p"); - ret = MPID_nem_ptl_me_append(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_get_pt, &me, PTL_PRIORITY_LIST, sreq, - &REQ_PTL(sreq)->get_me_p[0]); + ret = PtlMEAppend(MPIDI_nem_ptl_ni, MPIDI_nem_ptl_get_pt, &me, PTL_PRIORITY_LIST, sreq, + &REQ_PTL(sreq)->get_me_p[0]); MPIU_ERR_CHKANDJUMP1(ret, mpi_errno, MPI_ERR_OTHER, "**ptlmeappend", "**ptlmeappend %s", MPID_nem_ptl_strerror(ret)); DBG_MSG_MEAPPEND("CTL", vc->pg_rank, me, sreq); /* increment the cc for the get operation */ ----------------------------------------------------------------------- Summary of changes: .../channels/nemesis/netmod/portals4/ptl_impl.h | 20 -------------------- .../channels/nemesis/netmod/portals4/ptl_init.c | 13 ++++++++----- .../ch3/channels/nemesis/netmod/portals4/ptl_nm.c | 16 ++++++++-------- .../channels/nemesis/netmod/portals4/ptl_poll.c | 6 +++--- .../channels/nemesis/netmod/portals4/ptl_recv.c | 2 +- .../channels/nemesis/netmod/portals4/ptl_send.c | 8 ++++---- .../ch3/channels/nemesis/netmod/portals4/rptl.c | 15 ++++++++++++--- .../ch3/channels/nemesis/netmod/portals4/rptl.h | 2 ++ 8 files changed, 38 insertions(+), 44 deletions(-) hooks/post-receive -- MPICH primary repository

1 0