Mercurial > hg > sv-dependency-builds
annotate src/fftw-3.3.8/mpi/f03-wrap.sh @ 169:223a55898ab9 tip default
Add null config files
| author | Chris Cannam <cannam@all-day-breakfast.com> |
|---|---|
| date | Mon, 02 Mar 2020 14:03:47 +0000 |
| parents | bd3cc4d1df30 |
| children |
| rev | line source |
|---|---|
| cannam@167 | 1 #! /bin/sh |
| cannam@167 | 2 |
| cannam@167 | 3 # Script to generate Fortran 2003 wrappers for FFTW's MPI functions. This |
| cannam@167 | 4 # is necessary because MPI provides no way to deal with C MPI_Comm handles |
| cannam@167 | 5 # from Fortran (where MPI_Comm == integer), but does provide a way to |
| cannam@167 | 6 # deal with Fortran MPI_Comm handles from C (via MPI_Comm_f2c). So, |
| cannam@167 | 7 # every FFTW function that takes an MPI_Comm argument needs a wrapper |
| cannam@167 | 8 # function that takes a Fortran integer and converts it to MPI_Comm. |
| cannam@167 | 9 |
| cannam@167 | 10 echo "/* Generated automatically. DO NOT EDIT! */" |
| cannam@167 | 11 echo |
| cannam@167 | 12 |
| cannam@167 | 13 echo "#include \"fftw3-mpi.h\"" |
| cannam@167 | 14 echo "#include \"ifftw-mpi.h\"" |
| cannam@167 | 15 echo |
| cannam@167 | 16 |
| cannam@167 | 17 # Declare prototypes using FFTW_EXTERN, important for Windows DLLs |
| cannam@167 | 18 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 | 19 |
| cannam@167 | 20 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 | 21 |
| cannam@167 | 22 |