a few minor cosmetic changes

cenjinzhiyu · Aug 7, 2016 · 485bd5c · 485bd5c
1 parent 15ddb20
commit 485bd5c
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 5 deletions.
diff --git a/src/specfem3D/compute_stacey_viscoelastic.F90 b/src/specfem3D/compute_stacey_viscoelastic.F90
@@ -106,9 +106,10 @@ subroutine compute_stacey_viscoelastic(NSPEC_AB,NGLOB_AB,accel, &
 
           ! gets velocity
           iglob=ibool(i,j,k,ispec)
-          vx=veloc(1,iglob)
-          vy=veloc(2,iglob)
-          vz=veloc(3,iglob)
+
+          vx = veloc(1,iglob)
+          vy = veloc(2,iglob)
+          vz = veloc(3,iglob)
 
 #ifdef DEBUG_COUPLED
     include "../../../add_to_compute_stacey_viscoelastic_2.F90"

diff --git a/src/specfem3D/specfem3D_par.F90 b/src/specfem3D/specfem3D_par.F90
@@ -115,8 +115,8 @@ module specfem_par
   real(kind=CUSTOM_REAL) :: stf_used_total
   integer :: nsources_local
   ! source encoding
-  ! for acoustic sources: takes +/- 1 sign, depending on sign(Mxx)[ = sign(Myy) = sign(Mzz)
-  ! since they have to equal in the acoustic setting]
+  ! for acoustic sources: takes +/- 1 sign, depending on sign(Mxx)
+  ! [ = sign(Myy) = sign(Mzz) since they have to be equal in the acoustic setting]
   real(kind=CUSTOM_REAL), dimension(:), allocatable :: pm1_source_encoding
   real(kind=CUSTOM_REAL), dimension(:,:), allocatable :: user_source_time_function
 

diff --git a/utils/clean_listings_specfem.pl b/utils/clean_listings_specfem.pl
@@ -125,6 +125,7 @@
 # DK DK this could be dangerous if these words appear in strings or print statements
       $line =~ s#end\s*if#endif#ogi;
       $line =~ s#end\s*do#enddo#ogi;
+      $line =~ s# go\s*to # goto #ogi;
       $line =~ s#elseif#else if#ogi;
       $line =~ s#use\s*::\s*mpi#use mpi#ogi;
       $line =~ s#enddo_LOOP_IJK#ENDDO_LOOP_IJK#ogi;