[cig-commits] [commit] devel: fixed legal header in write_output_SU (ae0db77)

[cig_noreply at geodynamics.org]

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

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

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

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

    fixed legal header in write_output_SU


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

ae0db778873e2cd38477f5562ee300a91b1b6936
 src/specfem2D/write_output_SU.f90   | 43 +++++++++++++++++++++++++++++++++++++
 src/specfem2D/write_seismograms.F90 |  2 +-
 2 files changed, 44 insertions(+), 1 deletion(-)

diff --git a/src/specfem2D/write_output_SU.f90 b/src/specfem2D/write_output_SU.f90
index dbff9c3..964b57c 100644
--- a/src/specfem2D/write_output_SU.f90
+++ b/src/specfem2D/write_output_SU.f90
@@ -1,3 +1,46 @@
+
+!========================================================================
+!
+!                   S P E C F E M 2 D  Version 7 . 0
+!                   --------------------------------
+!
+!     Main historical authors: Dimitri Komatitsch and Jeroen Tromp
+!                        Princeton University, USA
+!                and CNRS / University of Marseille, France
+!                 (there are currently many more authors!)
+! (c) Princeton University and CNRS / University of Marseille, April 2014
+!
+! This software is a computer program whose purpose is to solve
+! the two-dimensional viscoelastic anisotropic or poroelastic wave equation
+! using a spectral-element method (SEM).
+!
+! This software is governed by the CeCILL license under French law and
+! abiding by the rules of distribution of free software. You can use,
+! modify and/or redistribute the software under the terms of the CeCILL
+! license as circulated by CEA, CNRS and Inria at the following URL
+! "http://www.cecill.info".
+!
+! As a counterpart to the access to the source code and rights to copy,
+! modify and redistribute granted by the license, users are provided only
+! with a limited warranty and the software's author, the holder of the
+! economic rights, and the successive licensors have only limited
+! liability.
+!
+! In this respect, the user's attention is drawn to the risks associated
+! with loading, using, modifying and/or developing or reproducing the
+! software by the user in light of its specific status of free software,
+! that may mean that it is complicated to manipulate, and that also
+! therefore means that it is reserved for developers and experienced
+! professionals having in-depth computer knowledge. Users are therefore
+! encouraged to load and test the software's suitability as regards their
+! requirements in conditions enabling the security of their systems and/or
+! data to be ensured and, more generally, to use and operate it in the
+! same conditions as regards security.
+!
+! The full text of the license is available in file "LICENSE".
+!
+!========================================================================
+
   subroutine write_output_SU(x_source,z_source,irec,buffer_binary,number_of_components)
 
   use specfem_par, only : sisux,sisuz,siscurl,station_name,network_name, &
diff --git a/src/specfem2D/write_seismograms.F90 b/src/specfem2D/write_seismograms.F90
index 9b7c921..d91fdfd 100644
--- a/src/specfem2D/write_seismograms.F90
+++ b/src/specfem2D/write_seismograms.F90
@@ -232,7 +232,7 @@
 
 
 
-
+!================================================================
 
   subroutine write_seismograms_to_file(x_source,z_source)