Skip to content

Commit

Permalink
Buildbot ran the code beautifier.
Browse files Browse the repository at this point in the history
  • Loading branch information
buildbot authored and buildbot committed Jun 8, 2017
1 parent d2b9e6e commit 71447d4
Show file tree
Hide file tree
Showing 6 changed files with 29 additions and 29 deletions.
4 changes: 2 additions & 2 deletions src/cuda/compute_add_sources_viscoelastic_cuda.cu
View file
Original file line number Diff line number Diff line change
Expand Up @@ -230,7 +230,7 @@ __global__ void add_sources_el_SIM_TYPE_2_OR_3_kernel(realw* accel,
realw* source_adjoint,
realw* xir_store,
realw* etar_store,
realw* gammar_store,
realw* gammar_store,
int* d_ibool,
int* ispec_is_elastic,
int* ispec_selected_rec,
Expand Down Expand Up @@ -274,7 +274,7 @@ void FC_FUNC_(add_sources_el_sim_type_2_or_3,
realw* h_source_adjoint,
int* nrec,
int* nadj_rec_local,
int* NTSTEP_BETWEEN_READ_ADJSRC,
int* NTSTEP_BETWEEN_READ_ADJSRC,
int* it) {

TRACE("\tadd_sources_el_sim_type_2_or_3");
Expand Down
12 changes: 6 additions & 6 deletions src/specfem3D/compute_add_sources_acoustic.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -32,14 +32,14 @@ subroutine compute_add_sources_acoustic()
use constants
use specfem_par, only: station_name,network_name,adj_source_file,nrec_local,number_receiver_global, &
nsources_local,tshift_src,DT,t0,SU_FORMAT,USE_LDDRK,istage,source_adjoint, &
hxir_store,hetar_store,hgammar_store,USE_EXTERNAL_SOURCE_FILE,&
user_source_time_function,USE_BINARY_FOR_SEISMOGRAMS,&
ibool,NSOURCES,myrank,it,ispec_selected_source,islice_selected_source,&
hxir_store,hetar_store,hgammar_store,USE_EXTERNAL_SOURCE_FILE, &
user_source_time_function,USE_BINARY_FOR_SEISMOGRAMS, &
ibool,NSOURCES,myrank,it,ispec_selected_source,islice_selected_source, &
sourcearrays,kappastore,SIMULATION_TYPE,NSTEP, &
nrec,islice_selected_rec,ispec_selected_rec, &
nadj_rec_local,NTSTEP_BETWEEN_READ_ADJSRC

use specfem_par_acoustic, only : potential_dot_dot_acoustic,ispec_is_acoustic
use specfem_par_acoustic, only: potential_dot_dot_acoustic,ispec_is_acoustic

implicit none

Expand Down Expand Up @@ -216,10 +216,10 @@ subroutine compute_add_sources_acoustic_backward()

use constants
use specfem_par, only: nsources_local,tshift_src,DT,t0,USE_LDDRK,istage,USE_EXTERNAL_SOURCE_FILE,user_source_time_function, &
ibool,NSOURCES,myrank,it,islice_selected_source,ispec_selected_source,&
ibool,NSOURCES,myrank,it,islice_selected_source,ispec_selected_source, &
sourcearrays,kappastore,SIMULATION_TYPE,NSTEP

use specfem_par_acoustic, only : ispec_is_acoustic,b_potential_dot_dot_acoustic
use specfem_par_acoustic, only: ispec_is_acoustic,b_potential_dot_dot_acoustic

implicit none

Expand Down
12 changes: 6 additions & 6 deletions src/specfem3D/compute_add_sources_poroelastic.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -31,15 +31,15 @@ subroutine compute_add_sources_poroelastic()

use constants
use specfem_par, only: station_name,network_name,adj_source_file,USE_FORCE_POINT_SOURCE, &
tshift_src,dt,t0,USE_LDDRK,istage,USE_EXTERNAL_SOURCE_FILE,user_source_time_function,&
tshift_src,dt,t0,USE_LDDRK,istage,USE_EXTERNAL_SOURCE_FILE,user_source_time_function, &
USE_BINARY_FOR_SEISMOGRAMS,ibool, &
NSOURCES,myrank,it,islice_selected_source,ispec_selected_source,&
sourcearrays,SIMULATION_TYPE,NSTEP,&
nrec,islice_selected_rec,ispec_selected_rec,&
nadj_rec_local,NTSTEP_BETWEEN_READ_ADJSRC,&
NSOURCES,myrank,it,islice_selected_source,ispec_selected_source, &
sourcearrays,SIMULATION_TYPE,NSTEP, &
nrec,islice_selected_rec,ispec_selected_rec, &
nadj_rec_local,NTSTEP_BETWEEN_READ_ADJSRC, &
hxir_store,hetar_store,hgammar_store,source_adjoint

use specfem_par_poroelastic, only : b_accels_poroelastic,b_accelw_poroelastic,accels_poroelastic,accelw_poroelastic,&
use specfem_par_poroelastic, only: b_accels_poroelastic,b_accelw_poroelastic,accels_poroelastic,accelw_poroelastic, &
rhoarraystore,phistore,tortstore,ispec_is_poroelastic

implicit none
Expand Down
24 changes: 12 additions & 12 deletions src/specfem3D/compute_add_sources_viscoelastic.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -34,13 +34,13 @@ subroutine compute_add_sources_viscoelastic()
free_surface_ijk,free_surface_jacobian2Dw,noise_sourcearray,irec_master_noise, &
normal_x_noise,normal_y_noise,normal_z_noise,mask_noise,noise_surface_movie, &
nrec_local,number_receiver_global,nsources_local,tshift_src,dt,t0,SU_FORMAT, &
USE_LDDRK,istage,USE_EXTERNAL_SOURCE_FILE,user_source_time_function,&
USE_BINARY_FOR_SEISMOGRAMS,NSPEC_AB,NGLOB_AB,ibool,NSOURCES,myrank,it,islice_selected_source,&
USE_LDDRK,istage,USE_EXTERNAL_SOURCE_FILE,user_source_time_function, &
USE_BINARY_FOR_SEISMOGRAMS,NSPEC_AB,NGLOB_AB,ibool,NSOURCES,myrank,it,islice_selected_source, &
ispec_selected_source,sourcearrays,SIMULATION_TYPE,NSTEP, &
nrec,islice_selected_rec,ispec_selected_rec,nadj_rec_local, &
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY,hxir_store,hetar_store,hgammar_store,source_adjoint

use specfem_par_elastic, only : accel,ispec_is_elastic
use specfem_par_elastic, only: accel,ispec_is_elastic

#ifdef DEBUG_COUPLED
include "../../../add_to_compute_add_sources_viscoelastic_1.F90"
Expand Down Expand Up @@ -244,12 +244,12 @@ subroutine compute_add_sources_viscoelastic_backward()
normal_x_noise,normal_y_noise,normal_z_noise, &
mask_noise,noise_surface_movie, &
nsources_local,tshift_src,dt,t0, &
USE_LDDRK,istage,USE_EXTERNAL_SOURCE_FILE,user_source_time_function,&
USE_LDDRK,istage,USE_EXTERNAL_SOURCE_FILE,user_source_time_function, &
NSPEC_AB,NGLOB_AB,ibool, &
NSOURCES,myrank,it,islice_selected_source,ispec_selected_source,&
NSOURCES,myrank,it,islice_selected_source,ispec_selected_source, &
sourcearrays,SIMULATION_TYPE,NSTEP,NOISE_TOMOGRAPHY

use specfem_par_elastic, only : b_accel,ispec_is_elastic
use specfem_par_elastic, only: b_accel,ispec_is_elastic

#ifdef DEBUG_COUPLED
include "../../../add_to_compute_add_sources_viscoelastic_1.F90"
Expand Down Expand Up @@ -371,10 +371,10 @@ subroutine compute_add_sources_viscoelastic_GPU()
irec_master_noise,noise_surface_movie, &
nrec_local,number_receiver_global, &
nsources_local,tshift_src,dt,t0,SU_FORMAT, &
USE_LDDRK,istage,USE_EXTERNAL_SOURCE_FILE,user_source_time_function,USE_BINARY_FOR_SEISMOGRAMS,&
NSOURCES,it,SIMULATION_TYPE,NSTEP,&
nrec,islice_selected_rec,&
nadj_rec_local,NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY,&
USE_LDDRK,istage,USE_EXTERNAL_SOURCE_FILE,user_source_time_function,USE_BINARY_FOR_SEISMOGRAMS, &
NSOURCES,it,SIMULATION_TYPE,NSTEP, &
nrec,islice_selected_rec, &
nadj_rec_local,NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
Mesh_pointer,source_adjoint


Expand Down Expand Up @@ -494,10 +494,10 @@ subroutine compute_add_sources_viscoelastic_GPU()

if (it < NSTEP) then
call add_sources_el_sim_type_2_or_3(Mesh_pointer, &
source_adjoint,&
source_adjoint, &
nrec, &
nadj_rec_local, &
NTSTEP_BETWEEN_READ_ADJSRC,&
NTSTEP_BETWEEN_READ_ADJSRC, &
it)
endif ! it
endif ! nadj_rec_local
Expand Down
4 changes: 2 additions & 2 deletions src/specfem3D/compute_forces_viscoelastic_calling_routine.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -372,7 +372,7 @@ subroutine compute_forces_viscoelastic_backward_calling()
! note: we will add all source contributions in the first pass, when iphase == 1
! to avoid calling the same routine twice and to check if the source element is an inner/outer element
call compute_add_sources_viscoelastic_backward()

endif ! iphase

! assemble all the contributions between slices using MPI
Expand Down Expand Up @@ -546,7 +546,7 @@ subroutine compute_forces_viscoelastic_GPU_calling()
! note: we will add all source contributions in the first pass, when iphase == 1
! to avoid calling the same routine twice and to check if the source element is an inner/outer element
call compute_add_sources_viscoelastic_GPU()

endif ! iphase

! assemble all the contributions between slices using MPI
Expand Down
2 changes: 1 addition & 1 deletion src/specfem3D/write_output_SU.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -147,7 +147,7 @@ subroutine write_output_SU()

endif

if (SAVE_SEISMOGRAMS_PRESSURE) then
if (SAVE_SEISMOGRAMS_PRESSURE) then
! write seismograms (dz)
open(unit=IOUT_SU, file=trim(final_LOCAL_PATH)//trim(procname)//'_dp_SU', &
status='unknown', access='direct', recl=4, iostat=ier)
Expand Down

0 comments on commit 71447d4

Please sign in to comment.