cannam@167: #! /bin/sh
cannam@167: 
cannam@167: # Script to generate Fortran 2003 wrappers for FFTW's MPI functions.  This
cannam@167: # is necessary because MPI provides no way to deal with C MPI_Comm handles
cannam@167: # from Fortran (where MPI_Comm == integer), but does provide a way to
cannam@167: # deal with Fortran MPI_Comm handles from C (via MPI_Comm_f2c).  So,
cannam@167: # every FFTW function that takes an MPI_Comm argument needs a wrapper
cannam@167: # function that takes a Fortran integer and converts it to MPI_Comm.
cannam@167: 
cannam@167: echo "/* Generated automatically.  DO NOT EDIT! */"
cannam@167: echo
cannam@167: 
cannam@167: echo "#include \"fftw3-mpi.h\""
cannam@167: echo "#include \"ifftw-mpi.h\""
cannam@167: echo
cannam@167: 
cannam@167: # Declare prototypes using FFTW_EXTERN, important for Windows DLLs
cannam@167: grep -v 'mpi.h' fftw3-mpi.h | gcc -E -I../api - |grep "fftw_mpi_init" |tr ';' '\n' | grep "MPI_Comm" | perl genf03-wrap.pl | grep "MPI_Fint" | sed 's/^/FFTW_EXTERN /;s/$/;/'
cannam@167: 
cannam@167: grep -v 'mpi.h' fftw3-mpi.h | gcc -E -I../api - |grep "fftw_mpi_init" |tr ';' '\n' | grep "MPI_Comm" | perl genf03-wrap.pl
cannam@167: 
cannam@167: