bug fix in compute_forces_acoustic_noDev.f90 and save_and_compare_cpu…

…_vs_gpu.c
cenjinzhiyu · May 23, 2013 · c024ff2 · c024ff2
1 parent 7bdbbd8
commit c024ff2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/cuda/save_and_compare_cpu_vs_gpu.c b/src/cuda/save_and_compare_cpu_vs_gpu.c
@@ -30,6 +30,7 @@
 #include <stdlib.h>
 #include <math.h>
 #include <errno.h>
+#include <string.h>
 
 #ifdef WITH_MPI
 #include <mpi.h>
@@ -111,6 +112,7 @@ void get_max_from_surface_file_(int* nodes_per_iterationf,int* NSTEP) {
   float* vector = (float*)malloc(nodes_per_iteration*sizeof(float));
   float max_val;
   int i;
+  max_val = 0.0;
   for(it=0;it<*NSTEP;it++) {
     int pos = (sizeof(float)*nodes_per_iteration)*(it);
     fseek(fp,pos,SEEK_SET);

diff --git a/src/specfem3D/compute_forces_acoustic_noDev.f90 b/src/specfem3D/compute_forces_acoustic_noDev.f90
@@ -44,7 +44,7 @@ subroutine compute_forces_acoustic_noDev(iphase,NSPEC_AB,NGLOB_AB, &
 !
   use specfem_par,only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ,TINYVAL_SNGL,&
                         STACEY_ABSORBING_CONDITIONS,PML_CONDITIONS
-  use pml_par, only: ELASTIC_SIMULATION,NSPEC_CPML,is_CPML, spec_to_CPML, &
+  use pml_par, only: NSPEC_CPML,is_CPML, spec_to_CPML, &
                      k_store_x,k_store_y,k_store_z,d_store_x,d_store_y,d_store_z,alpha_store,&
                      PML_dpotential_dxl,PML_dpotential_dyl,PML_dpotential_dzl,&
                      PML_dpotential_dxl_new,PML_dpotential_dyl_new,PML_dpotential_dzl_new,&