[Numpy-svn] r4372 - branches/numpy.scons/numpy/distutils/scons/doc

[numpy-svn at scipy.org]

Author: cdavid
Date: 2007-11-01 05:45:17 -0500 (Thu, 01 Nov 2007)
New Revision: 4372

Added:
   branches/numpy.scons/numpy/distutils/scons/doc/FORTRAN
Log:
Add fortran doc (macro to define for f2py)

Added: branches/numpy.scons/numpy/distutils/scons/doc/FORTRAN
===================================================================
--- branches/numpy.scons/numpy/distutils/scons/doc/FORTRAN	2007-11-01 10:38:22 UTC (rev 4371)
+++ branches/numpy.scons/numpy/distutils/scons/doc/FORTRAN	2007-11-01 10:45:17 UTC (rev 4372)
@@ -0,0 +1,34 @@
+#if defined(PREPEND_FORTRAN)
+        #if defined(NO_APPEND_FORTRAN)
+                #if defined(UPPERCASE_FORTRAN)
+                #define F_FUNC(f,F) _##F
+                #else
+                #define F_FUNC(f,F) _##f
+                #endif
+        #else
+                #if defined(UPPERCASE_FORTRAN)
+                        #define F_FUNC(f,F) _##F##_
+                #else
+                        #define F_FUNC(f,F) _##f##_
+                #endif
+        #endif
+#else
+        #if defined(NO_APPEND_FORTRAN)
+                #if defined(UPPERCASE_FORTRAN)
+                        #define F_FUNC(f,F) F
+                #else
+                        #define F_FUNC(f,F) f
+                #endif
+        #else
+                #if defined(UPPERCASE_FORTRAN)
+                        #define F_FUNC(f,F) F##_
+                #else
+                        #define F_FUNC(f,F) f##_
+                #endif
+        #endif
+#endif
+#if defined(UNDERSCORE_G77)
+        #define F_FUNC_US(f,F) F_FUNC(f##_,F##_)
+#else
+        #define F_FUNC_US(f,F) F_FUNC(f,F)
+#endif