[cig-commits] [commit] devel: Removes trailing underscore (e47893d)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/9473eea83e6cad4b6bd8adbaee3e9c074ce3b975...95b31791a026eedc69a0970b245c691394cfbc71

>---------------------------------------------------------------

commit e47893d98df7a0675adb7e7d9ab2e3c866304826
Author: Matthieu Lefebvre <ml15 at princeton.edu>
Date:   Thu Oct 2 18:51:34 2014 -0400

    Removes trailing underscore


>---------------------------------------------------------------

e47893d98df7a0675adb7e7d9ab2e3c866304826
 src/generate_databases/parse_sep.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/generate_databases/parse_sep.c b/src/generate_databases/parse_sep.c
index e36aa3d..085bd54 100644
--- a/src/generate_databases/parse_sep.c
+++ b/src/generate_databases/parse_sep.c
@@ -125,13 +125,21 @@ void parse_sep_header(char *header_name,
 
 /*****************************************************************************/
 /*** Aliases for Fortran bindings ***/
+/*
+void parse_sep_header_(char *header_name, 
+                       int *n1, int *n2, int *n3, 
+                       float *o1, float *o2, float *o3, 
+                       float *f1, float *f2, float *f3, 
+                       char *in)
+    __attribute__((alias("parse_sep_header")));
+*/
 
 void parse_sep_header_(char *header_name, 
                        int *n1, int *n2, int *n3, 
                        float *o1, float *o2, float *o3, 
                        float *f1, float *f2, float *f3, 
                        char *in) {
-  parse_sep_header_(header_name, n1, n2, n3, o1, o2, o3, f1, f2, f3, in);
+  parse_sep_header(header_name, n1, n2, n3, o1, o2, o3, f1, f2, f3, in);
 }
 //  __attribute__((alias("parse_sep_header")));  // not known to PGI compilers
 /*****************************************************************************/