[cig-commits] [commit] devel: removed duplicate implicit none (bef2f14)

cig_noreply at geodynamics.org cig_noreply at geodynamics.org
Thu Dec 11 10:24:25 PST 2014


Repository : https://github.com/geodynamics/specfem2d

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/5d9c6086eb1fd7747d58089e11875116d45b4277...9b5755d28b601d380cb365841af5f95863815e3d

>---------------------------------------------------------------

commit bef2f14fd030cacd591fa2d5d0307e826bc34a66
Author: rmodrak <rmodrak at princeton.edu>
Date:   Thu Dec 11 13:09:50 2014 -0500

    removed duplicate implicit none


>---------------------------------------------------------------

bef2f14fd030cacd591fa2d5d0307e826bc34a66
 src/specfem2D/write_seismograms.F90 | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/specfem2D/write_seismograms.F90 b/src/specfem2D/write_seismograms.F90
index d91fdfd..9d3e8a5 100644
--- a/src/specfem2D/write_seismograms.F90
+++ b/src/specfem2D/write_seismograms.F90
@@ -246,8 +246,6 @@
                           st_zval,SU_FORMAT,save_ASCII_seismograms, &
                           save_binary_seismograms_single,save_binary_seismograms_double,subsamp_seismos
 
-  implicit none
-
 ! uncomment this to save the ASCII *.sem* seismograms in binary instead, to save disk space and/or writing time
 ! we could/should move this flag to DATA/Par_file one day.
 !



More information about the CIG-COMMITS mailing list