[cig-commits] r14275 - mc/3D/CitcomS/trunk/lib

[tan2 at geodynamics.org]

Author: tan2
Date: 2009-03-09 17:58:34 -0700 (Mon, 09 Mar 2009)
New Revision: 14275

Modified:
   mc/3D/CitcomS/trunk/lib/Determine_net_rotation.c
Log:
Disable HC related stuff if USE_GGRD is not set

Modified: mc/3D/CitcomS/trunk/lib/Determine_net_rotation.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Determine_net_rotation.c	2009-03-10 00:26:24 UTC (rev 14274)
+++ mc/3D/CitcomS/trunk/lib/Determine_net_rotation.c	2009-03-10 00:58:34 UTC (rev 14275)
@@ -45,8 +45,11 @@
 #include "parallel_related.h"
 #include "parsing.h"
 #include "output.h"
+
+#ifdef USE_GGRD
 void hc_ludcmp_3x3(HC_PREC [3][3],int,int *);
 void hc_lubksb_3x3(HC_PREC [3][3],int,int *,HC_PREC *);
+#endif
 
 double determine_netr_tp(float, float, float, float, float, int, double *, double *);
 void sub_netr(float, float, float, float *, float *, double *);
@@ -278,8 +281,10 @@
     omega[2] = c9[8];
 
     /* solve */
+#ifdef USE_GGRD
     hc_ludcmp_3x3(coef,n3,ind);
     hc_lubksb_3x3(coef,n3,ind,omega);
+#endif
     amp = sqrt(omega[0]*omega[0] + omega[1]*omega[1] + omega[2]*omega[2]);
     break;
   default:
@@ -370,7 +375,7 @@
 //      AND MAILING.
 //
 
-
+#ifdef USE_GGRD
 #define NR_TINY 1.0e-20;
 /* 
 
@@ -464,5 +469,5 @@
   }
 }
 
+#endif
 
-