diff src/fftw-3.3.5/mpi/f03-wrap.sh @ 42:2cd0e3b3e1fd

Current fftw source

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/fftw-3.3.5/mpi/f03-wrap.sh	Tue Oct 18 13:40:26 2016 +0100
@@ -0,0 +1,22 @@
+#! /bin/sh
+
+# Script to generate Fortran 2003 wrappers for FFTW's MPI functions.  This
+# is necessary because MPI provides no way to deal with C MPI_Comm handles
+# from Fortran (where MPI_Comm == integer), but does provide a way to
+# deal with Fortran MPI_Comm handles from C (via MPI_Comm_f2c).  So,
+# every FFTW function that takes an MPI_Comm argument needs a wrapper
+# function that takes a Fortran integer and converts it to MPI_Comm.
+
+echo "/* Generated automatically.  DO NOT EDIT! */"
+echo
+
+echo "#include \"fftw3-mpi.h\""
+echo "#include \"ifftw-mpi.h\""
+echo
+
+# Declare prototypes using FFTW_EXTERN, important for Windows DLLs
+grep -v 'mpi.h' fftw3-mpi.h | gcc -E - |grep "fftw_mpi_init" |tr ';' '\n' | grep "MPI_Comm" | perl genf03-wrap.pl | grep "MPI_Fint" | sed 's/^/FFTW_EXTERN /;s/$/;/'
+
+grep -v 'mpi.h' fftw3-mpi.h | gcc -E - |grep "fftw_mpi_init" |tr ';' '\n' | grep "MPI_Comm" | perl genf03-wrap.pl
+
+