[cig-commits] r12824 - seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-09-05 17:38:51 -0700 (Fri, 05 Sep 2008)
New Revision: 12824

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/main_program.F90
Log:
fixed a syntax problem in my test to check that there is no overlap between arrays due to the "equivalence" statement


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/main_program.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/main_program.F90	2008-09-05 23:59:16 UTC (rev 12823)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/main_program.F90	2008-09-06 00:38:51 UTC (rev 12824)
@@ -428,13 +428,15 @@
 ! make sure there is no overlap between arrays due to the "equivalence" statement
   etax_crust_mantle = -10._CUSTOM_REAL
   gammax_crust_mantle = +20._CUSTOM_REAL
-  if(any(etax_crust_mantle) > -9.999_CUSTOM_REAL .or. any(gammax_crust_mantle) < 19.999_CUSTOM_REAL) &
-    stop 'error: memory overlap between arrays in equivalence statement'
+  if(maxval(abs(etax_crust_mantle + 10._CUSTOM_REAL)) > 0.001_CUSTOM_REAL .or. &
+     maxval(abs(gammax_crust_mantle - 20._CUSTOM_REAL)) > 0.001_CUSTOM_REAL) &
+       stop 'error: memory overlap between arrays in equivalence statement'
 
   gammax_crust_mantle = +20._CUSTOM_REAL
   etax_crust_mantle = -10._CUSTOM_REAL
-  if(any(etax_crust_mantle) > -9.999_CUSTOM_REAL .or. any(gammax_crust_mantle) < 19.999_CUSTOM_REAL) &
-    stop 'error: memory overlap between arrays in equivalence statement'
+  if(maxval(abs(etax_crust_mantle + 10._CUSTOM_REAL)) > 0.001_CUSTOM_REAL .or. &
+     maxval(abs(gammax_crust_mantle - 20._CUSTOM_REAL)) > 0.001_CUSTOM_REAL) &
+       stop 'error: memory overlap between arrays in equivalence statement'
 
 ! YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY