use correct precision in f03-wrap.c, avoiding a (harmless) implicit p…

…ointer cast that prevented compilation under C++; thanks to Kyle Spyksma for the bug report
NBDaner · Aug 5, 2011 · d7feb2d · d7feb2d
1 parent 50d1244
commit d7feb2d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/mpi/genf03-wrap.pl b/mpi/genf03-wrap.pl
@@ -15,6 +15,8 @@ sub canonicalize_type {
     $type =~ s/^ //;
     $type =~ s/ $//;
     $type =~ s/([^\* ])\*/$1 \*/g;
+    $type =~ s/double/R/;
+    $type =~ s/fftw_([A-Za-z0-9_]+)/X(\1)/;
     return $type;
 }