[cig-commits] r4104 - cs/spatialdata-0.1/trunk/tests/libtests/spatialdb

[baagaard at geodynamics.org]

Author: baagaard
Date: 2006-07-25 17:37:42 -0700 (Tue, 25 Jul 2006)
New Revision: 4104

Added:
   cs/spatialdata-0.1/trunk/tests/libtests/spatialdb/testf77query.h
Log:
Added forgotten file.

Added: cs/spatialdata-0.1/trunk/tests/libtests/spatialdb/testf77query.h
===================================================================
--- cs/spatialdata-0.1/trunk/tests/libtests/spatialdb/testf77query.h	2006-07-26 00:29:12 UTC (rev 4103)
+++ cs/spatialdata-0.1/trunk/tests/libtests/spatialdb/testf77query.h	2006-07-26 00:37:42 UTC (rev 4104)
@@ -0,0 +1,41 @@
+/*  -*- C -*-  */
+/*
+ * ======================================================================
+ *
+ *                           Brad T. Aagaard
+ *                        U.S. Geological Survey
+ *
+ * {LicenseText}
+ *
+ * ======================================================================
+ */
+
+#if !defined(spatialdata_spatialdb_testf77query_h)
+#define spatialdata_spatialdb_testf77query_h
+
+/** Fortran name mangling */
+#define testf77query \
+  FC_FUNC_(testf77query, TESTF77QUERY)
+/** Call spatialdb_query_f().
+ *
+ * @param db Pointer to SpatialDB
+ * @param pVals Pointer to computed values (output from query)
+ * @param numVals Number of values expected (size of pVals array)
+ * @param x C coordinate of location for query
+ * @param y Y coordinate of location for query
+ * @param z Z coordinate of location for query
+ * @param cs Pointer to CoordSys
+ *
+ * @returns 0 on success, 1 on failure (i.e., values not set)
+ */
+int testf77query(void* db,
+		 double** pVals,
+		 int numVals,
+		 double x,
+		 double y,
+		 double z,
+		 void* cs);
+
+#endif /* spatialdata_spatialdb_testf77query_h */
+
+/* End of file  */