[cig-commits] r18150 - in seismo/2D/SPECFEM2D/trunk: UTILS/attenuation src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-03-27 05:15:09 -0700 (Sun, 27 Mar 2011)
New Revision: 18150

Modified:
   seismo/2D/SPECFEM2D/trunk/UTILS/attenuation/attenuation_code_2D.c
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/attenuation_compute_param.c
Log:
fixed warnings in attenuation_compute_param.c and in function qromb


Modified: seismo/2D/SPECFEM2D/trunk/UTILS/attenuation/attenuation_code_2D.c
===================================================================
--- seismo/2D/SPECFEM2D/trunk/UTILS/attenuation/attenuation_code_2D.c	2011-03-27 12:07:34 UTC (rev 18149)
+++ seismo/2D/SPECFEM2D/trunk/UTILS/attenuation/attenuation_code_2D.c	2011-03-27 12:15:09 UTC (rev 18150)
@@ -587,6 +587,8 @@
     h[j+1]=0.25*h[j];
   }
   nrerror("Too many steps in routine QROMB");
+/* return an error code if needed */
+  return -1.;
 }
 
 #undef EPS

Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/attenuation_compute_param.c
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/attenuation_compute_param.c	2011-03-27 12:07:34 UTC (rev 18149)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/attenuation_compute_param.c	2011-03-27 12:15:09 UTC (rev 18150)
@@ -19,7 +19,7 @@
 /* Underscores should or should not follow this function name, depending on the compiler and its options.
    It is called in "attenuation_model.f90".
 */
-int attenuation_compute_param_(int *nmech_in, double *Qp_in, double *Qs_in, double *f1_in, double *f2_in,
+void attenuation_compute_param_(int *nmech_in, double *Qp_in, double *Qs_in, double *f1_in, double *f2_in,
              double *tau_sigma_nu1, double *tau_sigma_nu2,
              double *tau_epsilon_nu1, double *tau_epsilon_nu2
              )
@@ -625,6 +625,8 @@
     h[j+1]=0.25*h[j];
   }
   nrerror("Too many steps in routine QROMB");
+/* return an error code if needed */
+  return -1.;
 }
 
 #undef EPS