[cig-commits] r14744 - seismo/3D/ADJOINT_TOMO/flexwin

[leif at geodynamics.org]

Author: leif
Date: 2009-04-17 12:52:11 -0700 (Fri, 17 Apr 2009)
New Revision: 14744

Added:
   seismo/3D/ADJOINT_TOMO/flexwin/copy_float.c
Modified:
   seismo/3D/ADJOINT_TOMO/flexwin/make_gfortran
Log:
Work-around for missing 'copy_float' function in libsac.a v101.3.
(The older SAC v101.2 does not have this bug.  Even older versions of
SAC are not supported, since they don't install libsac.a to begin
with.)


Added: seismo/3D/ADJOINT_TOMO/flexwin/copy_float.c
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/copy_float.c	                        (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/copy_float.c	2009-04-17 19:52:11 UTC (rev 14744)
@@ -0,0 +1,8 @@
+
+#include <string.h>
+
+/* this function is missing from libsac.a v101.3 */
+void copy_float(float *src, float *dest, int n)
+{
+    memmove(dest, src, n * sizeof(float));
+}

Modified: seismo/3D/ADJOINT_TOMO/flexwin/make_gfortran
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/make_gfortran	2009-04-17 16:33:51 UTC (rev 14743)
+++ seismo/3D/ADJOINT_TOMO/flexwin/make_gfortran	2009-04-17 19:52:11 UTC (rev 14744)
@@ -30,8 +30,8 @@
 	$(FC) ${CFLAGS} -c -o $@ $< 
 
 
-flexwin:flexwin.f90 ${LIB2} 
-	$(FC) ${CFLAGS} flexwin.f90 -o flexwin ${LIB2} -L${TAULIBDIR} -L${SACLIBDIR} ${LIBS} 
+flexwin:flexwin.f90 copy_float.o ${LIB2} 
+	$(FC) ${CFLAGS} flexwin.f90 -o flexwin copy_float.o ${LIB2} -L${TAULIBDIR} -L${SACLIBDIR} ${LIBS} 
 
 clean:
 	rm -f  ${LIB2} ${PROGS} *.o *.mod