[cig-commits] r18201 - in seismo/3D/SPECFEM3D/trunk: . doc/USER_MANUAL src/check_mesh_quality_CUBIT_Abaqus src/decompose_mesh_SCOTCH src/generate_databases src/meshfem3D src/shared src/specfem3D utils/Visualization/Paraview
danielpeter at geodynamics.org
danielpeter at geodynamics.org
Thu Apr 7 22:12:13 PDT 2011
Author: danielpeter
Date: 2011-04-07 22:12:13 -0700 (Thu, 07 Apr 2011)
New Revision: 18201
Modified:
seismo/3D/SPECFEM3D/trunk/Makefile.in
seismo/3D/SPECFEM3D/trunk/configure
seismo/3D/SPECFEM3D/trunk/configure.ac
seismo/3D/SPECFEM3D/trunk/doc/USER_MANUAL/manual_SPECFEM3D.pdf
seismo/3D/SPECFEM3D/trunk/doc/USER_MANUAL/manual_SPECFEM3D.tex
seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/Makefile.in
seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/check_mesh_quality_CUBIT_Abaqus.f90
seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/constants.h
seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/convert_skewness_to_angle.f90
seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/multiply_CUBIT_Abaqus_mesh_by_1000.f90
seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/Makefile.in
seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/constants_decompose_mesh_SCOTCH.h
seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90
seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/part_decompose_mesh_SCOTCH.f90
seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/program_decompose_mesh_SCOTCH.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/Makefile.in
seismo/3D/SPECFEM3D/trunk/src/generate_databases/calc_jacobian.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_mass_matrices.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_MPI.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_absorbing_boundary.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_coupling_surfaces.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_global.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_model.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/memory_eval.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_aniso.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_external_values.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_tomography.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/program_generate_databases.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/save_arrays_solver.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/Makefile.in
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/compute_parameters.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/constants.h.in
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_name_database.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_regions_mesh.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_visual_files.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_subregions.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_subregions_heuristic.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_superbrick.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_MPI_cutplanes_eta.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_MPI_cutplanes_xi.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_flags_boundaries.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_global.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_value_parameters.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/precision.h.in
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/program_meshfem3D.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/read_parameter_file.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/read_value_parameters.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/save_databases.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/store_boundaries.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/store_coords.f90
seismo/3D/SPECFEM3D/trunk/src/shared/assemble_MPI_scalar.f90
seismo/3D/SPECFEM3D/trunk/src/shared/check_mesh_resolution.f90
seismo/3D/SPECFEM3D/trunk/src/shared/combine_surf_data.f90
seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90
seismo/3D/SPECFEM3D/trunk/src/shared/compute_arrays_source.f90
seismo/3D/SPECFEM3D/trunk/src/shared/compute_boundary_kernel.f90
seismo/3D/SPECFEM3D/trunk/src/shared/compute_kernels.f90
seismo/3D/SPECFEM3D/trunk/src/shared/constants.h.in
seismo/3D/SPECFEM3D/trunk/src/shared/convolve_source_timefunction.f90
seismo/3D/SPECFEM3D/trunk/src/shared/create_movie_shakemap_AVS_DX_GMT.f90
seismo/3D/SPECFEM3D/trunk/src/shared/create_name_database.f90
seismo/3D/SPECFEM3D/trunk/src/shared/create_serial_name_database.f90
seismo/3D/SPECFEM3D/trunk/src/shared/define_derivation_matrices.f90
seismo/3D/SPECFEM3D/trunk/src/shared/detect_surface.f90
seismo/3D/SPECFEM3D/trunk/src/shared/exit_mpi.f90
seismo/3D/SPECFEM3D/trunk/src/shared/get_attenuation_model.f90
seismo/3D/SPECFEM3D/trunk/src/shared/get_cmt.f90
seismo/3D/SPECFEM3D/trunk/src/shared/get_element_face.f90
seismo/3D/SPECFEM3D/trunk/src/shared/get_jacobian_boundaries.f90
seismo/3D/SPECFEM3D/trunk/src/shared/get_shape2D.f90
seismo/3D/SPECFEM3D/trunk/src/shared/get_shape3D.f90
seismo/3D/SPECFEM3D/trunk/src/shared/get_value_parameters.f90
seismo/3D/SPECFEM3D/trunk/src/shared/gll_library.f90
seismo/3D/SPECFEM3D/trunk/src/shared/hex_nodes.f90
seismo/3D/SPECFEM3D/trunk/src/shared/lagrange_poly.f90
seismo/3D/SPECFEM3D/trunk/src/shared/netlib_specfun_erf.f90
seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90
seismo/3D/SPECFEM3D/trunk/src/shared/param_reader.c
seismo/3D/SPECFEM3D/trunk/src/shared/precision.h.in
seismo/3D/SPECFEM3D/trunk/src/shared/prepare_assemble_MPI.f90
seismo/3D/SPECFEM3D/trunk/src/shared/read_parameter_file.f90
seismo/3D/SPECFEM3D/trunk/src/shared/read_topo_bathy_file.f90
seismo/3D/SPECFEM3D/trunk/src/shared/read_value_parameters.f90
seismo/3D/SPECFEM3D/trunk/src/shared/recompute_jacobian.f90
seismo/3D/SPECFEM3D/trunk/src/shared/save_header_file.f90
seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90
seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90
seismo/3D/SPECFEM3D/trunk/src/shared/sort_array_coordinates.f90
seismo/3D/SPECFEM3D/trunk/src/shared/utm_geo.f90
seismo/3D/SPECFEM3D/trunk/src/shared/write_VTK_data.f90
seismo/3D/SPECFEM3D/trunk/src/shared/write_c_binary.c
seismo/3D/SPECFEM3D/trunk/src/specfem3D/Makefile.in
seismo/3D/SPECFEM3D/trunk/src/specfem3D/PML_init.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/comp_source_time_function.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_acoustic.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_elastic.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_adj_source_frechet.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_acoustic_el.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_elastic_ac.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_PML.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_pot.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic_Dev.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic_noDev.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_gradient.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_interpolated_dva.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_stacey_acoustic.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_stacey_elastic.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/create_color_image.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/detect_mesh_surfaces.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/finalize_simulation.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/iterate_time.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/locate_receivers.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/locate_source.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/noise_tomography.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/program_specfem3D.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/read_mesh_databases.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/read_topography_bathymetry.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/save_adjoint_kernels.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_GLL_points.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_movie_meshes.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_sources_receivers.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_par.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/write_movie_output.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/write_output_ASCII.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/write_seismograms.f90
seismo/3D/SPECFEM3D/trunk/utils/Visualization/Paraview/create_slice_VTK.f90
Log:
updates source code headers; updates package version number to version 2.0.1
Modified: seismo/3D/SPECFEM3D/trunk/Makefile.in
===================================================================
--- seismo/3D/SPECFEM3D/trunk/Makefile.in 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/Makefile.in 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,11 +1,12 @@
#=====================================================================
#
-# S p e c f e m 3 D V e r s i o n 1 . 4
+# S p e c f e m 3 D V e r s i o n 2 . 0
# ---------------------------------------
#
-# Dimitri Komatitsch and Jeroen Tromp
-# Seismological Laboratory - California Institute of Technology
-# (c) California Institute of Technology July 2005
+# Main authors: Dimitri Komatitsch and Jeroen Tromp
+# Princeton University, USA and University of Pau / CNRS / INRIA
+# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+# April 2011
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/configure
===================================================================
--- seismo/3D/SPECFEM3D/trunk/configure 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/configure 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,6 +1,6 @@
#! /bin/sh
# Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.67 for Specfem 3D 2.0.0.
+# Generated by GNU Autoconf 2.67 for Specfem 3D 2.0.1.
#
# Report bugs to <jtromp AT princeton.edu>.
#
@@ -551,8 +551,8 @@
# Identity of this package.
PACKAGE_NAME='Specfem 3D'
PACKAGE_TARNAME='Specfem3D'
-PACKAGE_VERSION='2.0.0'
-PACKAGE_STRING='Specfem 3D 2.0.0'
+PACKAGE_VERSION='2.0.1'
+PACKAGE_STRING='Specfem 3D 2.0.1'
PACKAGE_BUGREPORT='jtromp AT princeton.edu'
PACKAGE_URL=''
@@ -1245,7 +1245,7 @@
# Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF
-\`configure' configures Specfem 3D 2.0.0 to adapt to many kinds of systems.
+\`configure' configures Specfem 3D 2.0.1 to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]...
@@ -1310,7 +1310,7 @@
if test -n "$ac_init_help"; then
case $ac_init_help in
- short | recursive ) echo "Configuration of Specfem 3D 2.0.0:";;
+ short | recursive ) echo "Configuration of Specfem 3D 2.0.1:";;
esac
cat <<\_ACEOF
@@ -1434,7 +1434,7 @@
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
-Specfem 3D configure 2.0.0
+Specfem 3D configure 2.0.1
generated by GNU Autoconf 2.67
Copyright (C) 2010 Free Software Foundation, Inc.
@@ -1619,7 +1619,7 @@
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
-It was created by Specfem 3D $as_me 2.0.0, which was
+It was created by Specfem 3D $as_me 2.0.1, which was
generated by GNU Autoconf 2.67. Invocation command line was
$ $0 $@
@@ -6541,7 +6541,7 @@
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
ac_log="
-This file was extended by Specfem 3D $as_me 2.0.0, which was
+This file was extended by Specfem 3D $as_me 2.0.1, which was
generated by GNU Autoconf 2.67. Invocation command line was
CONFIG_FILES = $CONFIG_FILES
@@ -6603,7 +6603,7 @@
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
ac_cs_version="\\
-Specfem 3D config.status 2.0.0
+Specfem 3D config.status 2.0.1
configured by $0, generated by GNU Autoconf 2.67,
with options \\"\$ac_cs_config\\"
Modified: seismo/3D/SPECFEM3D/trunk/configure.ac
===================================================================
--- seismo/3D/SPECFEM3D/trunk/configure.ac 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/configure.ac 2011-04-08 05:12:13 UTC (rev 18201)
@@ -10,7 +10,7 @@
AC_PREREQ(2.61)
-AC_INIT([Specfem 3D], [2.0.0], [jtromp AT princeton.edu], [Specfem3D])
+AC_INIT([Specfem 3D], [2.0.1], [jtromp AT princeton.edu], [Specfem3D])
AC_CONFIG_SRCDIR([README])
AC_CONFIG_HEADER([config.h])
AC_CONFIG_MACRO_DIR([m4])
Modified: seismo/3D/SPECFEM3D/trunk/doc/USER_MANUAL/manual_SPECFEM3D.pdf
===================================================================
(Binary files differ)
Modified: seismo/3D/SPECFEM3D/trunk/doc/USER_MANUAL/manual_SPECFEM3D.tex
===================================================================
--- seismo/3D/SPECFEM3D/trunk/doc/USER_MANUAL/manual_SPECFEM3D.tex 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/doc/USER_MANUAL/manual_SPECFEM3D.tex 2011-04-08 05:12:13 UTC (rev 18201)
@@ -268,7 +268,7 @@
The SPECFEM3D software package comes in a gzipped tar ball. In the
directory in which you want to install the package, type
\begin{lyxcode}
-{\small tar~-zxvf~SPECFEM3D\_V2.0.0.tar.gz}{\small \par}
+{\small tar~-zxvf~SPECFEM3D\_V2.0.1.tar.gz}{\small \par}
\end{lyxcode}
The directory \texttt{\small SPECFEM3D/} will then contain
the source code. To configure the software for your system, run the
@@ -1405,8 +1405,8 @@
back-azimuth of the station. Note that \texttt{baz} is only supplied
when \texttt{ifile} = 4 or 5.
-\item Similarly, a sample program to compute adjoint sources for amplitude finite-frequency kernels
-may be found in \texttt{utils/adjoint\_sources/amplitude} and used in the same way as described for
+\item Similarly, a sample program to compute adjoint sources for amplitude finite-frequency kernels
+may be found in \texttt{utils/adjoint\_sources/amplitude} and used in the same way as described for
traveltime measurements
\begin{lyxcode}
xcreate\_adjsrc\_amplitude~t1~t2~ifile{[}0-5]~E/N/Z-ascii-files~{[}baz].
@@ -2469,7 +2469,7 @@
Princeton University, USA,
and University of Pau / CNRS / INRIA, France
-$\copyright$ Princeton University and University of Pau / CNRS / INRIA, November 2010
+$\copyright$ Princeton University and University of Pau / CNRS / INRIA, April 2011
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published
@@ -2634,7 +2634,7 @@
fix: e.g. specify > ./configure FC=gfortran MPIF90=/usr/local/openmpi-gfortran/bin/mpif90
-\item [after executing \texttt{xmeshfem3D} I've got elements with skewness of 81\% percent, what does this mean:]
+\item [after executing \texttt{xmeshfem3D} I've got elements with skewness of 81\% percent, what does this mean:]
Look at the skewness table printed in the \texttt{output\_mesher.txt} file after executing \texttt{xmeshfem3D} for the
example given in \texttt{examples/meshfem3D\_examples/simple\_model/}:
\begin{lyxcode}
@@ -2661,7 +2661,7 @@
about 6 \% of all elements have distortions with a skewness value between 0.6 and 0.65. The skewness values give you a hint of how good your mesh is. In an ideal world, you would want to have no distortions, just like the 81\% from above. Those elements give you the best approximate values by the GLL quadrature used in the spectral-element method. However, having weakly distorted elements is still fine and the solutions are still accurate enough. So empirically, values up to around 0.7 are tolerable, above that you should consider remeshing...
-To give you an idea why some of the elements are distorted, see the following figure \ref{fig:mesh.vp} of the mesh you obtain in the example \texttt{examples/meshfem3D\_examples/simple\_model/}.
+To give you an idea why some of the elements are distorted, see the following figure \ref{fig:mesh.vp} of the mesh you obtain in the example \texttt{examples/meshfem3D\_examples/simple\_model/}.
\begin{figure}[htbp]
\noindent \begin{centering}
\includegraphics[width=.9\textwidth]{figures/mesh_vp.jpg}
@@ -2671,9 +2671,9 @@
\end{figure}
You will see that the mesh contains a doubling layer, where we stitch elements together such that the size of two elements will transition to the size of one element (very useful to keep the ratio of wavespeed / element\_size about constant). Those elements in this doubling layer have higher skewness values and make up those 6 \% in the histogram.
-\item [the code gives following error message "need at least one receiver":]
+\item [the code gives following error message "need at least one receiver":]
This means that no stations given in the input file \texttt{in\_data\_files/STATIONS} could be located within the dimensions of the mesh. This can happen for example when the mesh was created with the in-house mesher \texttt{xmeshfem3D} while using the Universal Transverse Mercator (UTM) projection but the simulation with \texttt{xspecfem3D} was suppressing this projection from latitude/longitude to x/y/z coordinates.
-
+
In such cases, try to change your \texttt{in\_data\_files/Par\_file} and set e.g.:
\begin{lyxcode}
SUPPRESS\_UTM\_PROJECTION = .false. ~\\
@@ -2684,7 +2684,7 @@
must be converted to UTM coordinates. As an example, if you use \texttt{.false.} within \texttt{Mesh\_Par\_file} then you create a mesh with \texttt{xmeshfem3D} using the UTM projection from lat/lon as input format to UTM projected coordinates to store the mesh point positions, which is fine. The error then may occur if in the \texttt{Par\_file} you have this set to \texttt{.true.} so that the \texttt{xgenerate\_databases} and \texttt{xspecfem3D} suppress the UTM projection and assume that all coordinates you use now for source and receiver locations are given in meters (that is, converted) already. So it won't find the specified locations in the used mesh. As a solutions, just change the flag in \texttt{Par\_file} to be the same as in \texttt{Mesh\_Par\_file} and rerun \texttt{xgenerate\_databases} and \texttt{xspecfem3D} to make sure that your simulation works fine.
-\item [I get the following error message "forward simulation became unstable and blew up":]
+\item [I get the following error message "forward simulation became unstable and blew up":]
In most cases this means that your time step size \texttt{DT} is chosen too big. Look at your files \texttt{output\_mesher.txt} or \texttt{output\_solver.txt} created in the folder \texttt{in\_out\_files/OUTPUT\_FILES/}. In these output files, find the section:
\begin{lyxcode}
... ~\\
Modified: seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/Makefile.in
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/Makefile.in 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/Makefile.in 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,11 +1,12 @@
#=====================================================================
#
-# S p e c f e m 3 D V e r s i o n 1 . 4
+# S p e c f e m 3 D V e r s i o n 2 . 0
# ---------------------------------------
#
-# Dimitri Komatitsch and Jeroen Tromp
-# Seismological Laboratory - California Institute of Technology
-# (c) California Institute of Technology July 2005
+# Main authors: Dimitri Komatitsch and Jeroen Tromp
+# Princeton University, USA and University of Pau / CNRS / INRIA
+# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+# April 2011
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/check_mesh_quality_CUBIT_Abaqus.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/check_mesh_quality_CUBIT_Abaqus.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/check_mesh_quality_CUBIT_Abaqus.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/constants.h
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/constants.h 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/constants.h 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,3 +1,28 @@
+!=====================================================================
+!
+! S p e c f e m 3 D V e r s i o n 2 . 0
+! ---------------------------------------
+!
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
! number of GLL points in each direction of an element (degree plus one)
integer, parameter :: NGLLX = 5
Modified: seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/convert_skewness_to_angle.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/convert_skewness_to_angle.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/convert_skewness_to_angle.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/multiply_CUBIT_Abaqus_mesh_by_1000.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/multiply_CUBIT_Abaqus_mesh_by_1000.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/check_mesh_quality_CUBIT_Abaqus/multiply_CUBIT_Abaqus_mesh_by_1000.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,3 +1,28 @@
+!=====================================================================
+!
+! S p e c f e m 3 D V e r s i o n 2 . 0
+! ---------------------------------------
+!
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
program multiply_CUBIT_Abaqus_mesh
Modified: seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/Makefile.in
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/Makefile.in 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/Makefile.in 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,11 +1,12 @@
#=====================================================================
#
-# S p e c f e m 3 D V e r s i o n 1 . 4
+# S p e c f e m 3 D V e r s i o n 2 . 0
# ---------------------------------------
#
-# Dimitri Komatitsch and Jeroen Tromp
-# Seismological Laboratory - California Institute of Technology
-# (c) California Institute of Technology July 2005
+# Main authors: Dimitri Komatitsch and Jeroen Tromp
+# Princeton University, USA and University of Pau / CNRS / INRIA
+# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+# April 2011
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/constants_decompose_mesh_SCOTCH.h
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/constants_decompose_mesh_SCOTCH.h 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/constants_decompose_mesh_SCOTCH.h 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,3 +1,29 @@
+!=====================================================================
+!
+! S p e c f e m 3 D V e r s i o n 2 . 0
+! ---------------------------------------
+!
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
! Number of slices for mesh partitioning
integer, parameter :: nparts = 4
Modified: seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,5 +1,30 @@
-!program pre_meshfem3D
+!=====================================================================
+!
+! S p e c f e m 3 D V e r s i o n 2 . 0
+! ---------------------------------------
+!
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
module decompose_mesh_SCOTCH
use part_decompose_mesh_SCOTCH
Modified: seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/part_decompose_mesh_SCOTCH.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/part_decompose_mesh_SCOTCH.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/part_decompose_mesh_SCOTCH.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,3 +1,29 @@
+!=====================================================================
+!
+! S p e c f e m 3 D V e r s i o n 2 . 0
+! ---------------------------------------
+!
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
module part_decompose_mesh_SCOTCH
implicit none
Modified: seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/program_decompose_mesh_SCOTCH.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/program_decompose_mesh_SCOTCH.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/program_decompose_mesh_SCOTCH.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,3 +1,29 @@
+!=====================================================================
+!
+! S p e c f e m 3 D V e r s i o n 2 . 0
+! ---------------------------------------
+!
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
program pre_meshfem3D
use decompose_mesh_SCOTCH,only: nparts,localpath_name, outputpath_name,&
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/Makefile.in
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/Makefile.in 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/Makefile.in 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,11 +1,12 @@
#=====================================================================
#
-# S p e c f e m 3 D V e r s i o n 1 . 4
+# S p e c f e m 3 D V e r s i o n 2 . 0
# ---------------------------------------
#
-# Dimitri Komatitsch and Jeroen Tromp
-# Seismological Laboratory - California Institute of Technology
-# (c) California Institute of Technology July 2005
+# Main authors: Dimitri Komatitsch and Jeroen Tromp
+# Princeton University, USA and University of Pau / CNRS / INRIA
+# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+# April 2011
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/calc_jacobian.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/calc_jacobian.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/calc_jacobian.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_mass_matrices.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_mass_matrices.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_mass_matrices.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_MPI.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_MPI.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_MPI.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_absorbing_boundary.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_absorbing_boundary.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_absorbing_boundary.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_coupling_surfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_coupling_surfaces.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_coupling_surfaces.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_global.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_global.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_global.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_model.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_model.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_model.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/memory_eval.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/memory_eval.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/memory_eval.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_aniso.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_aniso.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_aniso.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_external_values.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_external_values.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_external_values.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_tomography.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_tomography.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_tomography.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/program_generate_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/program_generate_databases.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/program_generate_databases.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/save_arrays_solver.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/save_arrays_solver.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/save_arrays_solver.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/Makefile.in
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/Makefile.in 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/Makefile.in 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,11 +1,12 @@
#=====================================================================
#
-# S p e c f e m 3 D V e r s i o n 1 . 4
+# S p e c f e m 3 D V e r s i o n 2 . 0
# ---------------------------------------
#
-# Dimitri Komatitsch and Jeroen Tromp
-# Seismological Laboratory - California Institute of Technology
-# (c) California Institute of Technology July 2005
+# Main authors: Dimitri Komatitsch and Jeroen Tromp
+# Princeton University, USA and University of Pau / CNRS / INRIA
+# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+# April 2011
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/compute_parameters.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/compute_parameters.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/constants.h.in
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/constants.h.in 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/constants.h.in 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,11 +1,12 @@
!=====================================================================
!
-! S p e c f e m 3 D V e r s i o n 1 . 4
+! S p e c f e m 3 D V e r s i o n 2 . 0
! ---------------------------------------
!
-! Dimitri Komatitsch and Jeroen Tromp
-! Seismological Laboratory - California Institute of Technology
-! (c) California Institute of Technology July 2005
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_name_database.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_name_database.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_name_database.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_regions_mesh.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_regions_mesh.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_visual_files.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_visual_files.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_visual_files.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_subregions.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_subregions.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_subregions.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_subregions_heuristic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_subregions_heuristic.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_subregions_heuristic.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_superbrick.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_superbrick.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_superbrick.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,13 +1,12 @@
!=====================================================================
!
-! S p e c f e m 3 D G l o b e V e r s i o n 5 . 0
-! --------------------------------------------------
+! S p e c f e m 3 D V e r s i o n 2 . 0
+! ---------------------------------------
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
-! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! March 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_MPI_cutplanes_eta.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_MPI_cutplanes_eta.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_MPI_cutplanes_eta.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_MPI_cutplanes_xi.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_MPI_cutplanes_xi.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_MPI_cutplanes_xi.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_flags_boundaries.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_flags_boundaries.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_flags_boundaries.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_global.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_global.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_global.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_value_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_value_parameters.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/get_value_parameters.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/precision.h.in
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/precision.h.in 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/precision.h.in 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,11 +1,12 @@
!=====================================================================
!
-! S p e c f e m 3 D V e r s i o n 1 . 4
+! S p e c f e m 3 D V e r s i o n 2 . 0
! ---------------------------------------
!
-! Dimitri Komatitsch and Jeroen Tromp
-! Seismological Laboratory - California Institute of Technology
-! (c) California Institute of Technology July 2005
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/program_meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/program_meshfem3D.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/program_meshfem3D.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/read_parameter_file.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/read_parameter_file.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/read_parameter_file.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/read_value_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/read_value_parameters.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/read_value_parameters.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/save_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/save_databases.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/save_databases.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/store_boundaries.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/store_boundaries.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/store_boundaries.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/store_coords.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/store_coords.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/store_coords.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/assemble_MPI_scalar.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/assemble_MPI_scalar.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/assemble_MPI_scalar.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/check_mesh_resolution.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/check_mesh_resolution.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/check_mesh_resolution.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/combine_surf_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/combine_surf_data.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/combine_surf_data.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/compute_arrays_source.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/compute_arrays_source.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/compute_arrays_source.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/compute_boundary_kernel.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/compute_boundary_kernel.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/compute_boundary_kernel.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/compute_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/compute_kernels.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/compute_kernels.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/constants.h.in
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/constants.h.in 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/constants.h.in 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,11 +1,12 @@
!=====================================================================
!
-! S p e c f e m 3 D V e r s i o n 1 . 4
+! S p e c f e m 3 D V e r s i o n 2 . 0
! ---------------------------------------
!
-! Dimitri Komatitsch and Jeroen Tromp
-! Seismological Laboratory - California Institute of Technology
-! (c) California Institute of Technology July 2005
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
@@ -23,6 +24,7 @@
!
!=====================================================================
+
! @configure_input@
!
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/convolve_source_timefunction.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/convolve_source_timefunction.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/convolve_source_timefunction.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/create_movie_shakemap_AVS_DX_GMT.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/create_movie_shakemap_AVS_DX_GMT.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/create_movie_shakemap_AVS_DX_GMT.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/create_name_database.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/create_name_database.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/create_name_database.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/create_serial_name_database.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/create_serial_name_database.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/create_serial_name_database.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/define_derivation_matrices.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/define_derivation_matrices.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/define_derivation_matrices.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/detect_surface.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/detect_surface.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/detect_surface.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/exit_mpi.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/exit_mpi.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/exit_mpi.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/get_attenuation_model.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/get_attenuation_model.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/get_attenuation_model.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/get_cmt.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/get_cmt.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/get_cmt.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/get_element_face.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/get_element_face.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/get_element_face.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,6 +1,28 @@
+!=====================================================================
!
-!----
+! S p e c f e m 3 D V e r s i o n 2 . 0
+! ---------------------------------------
!
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
subroutine get_element_face_id(ispec,xcoord,ycoord,zcoord,&
ibool,nspec,nglob, &
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/get_jacobian_boundaries.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/get_jacobian_boundaries.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/get_jacobian_boundaries.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/get_shape2D.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/get_shape2D.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/get_shape2D.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/get_shape3D.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/get_shape3D.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/get_shape3D.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/get_value_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/get_value_parameters.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/get_value_parameters.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/gll_library.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/gll_library.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/gll_library.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,3 +1,28 @@
+!=====================================================================
+!
+! S p e c f e m 3 D V e r s i o n 2 . 0
+! ---------------------------------------
+!
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
!=======================================================================
!
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/hex_nodes.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/hex_nodes.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/hex_nodes.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/lagrange_poly.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/lagrange_poly.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/lagrange_poly.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/netlib_specfun_erf.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/netlib_specfun_erf.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/netlib_specfun_erf.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,3 +1,28 @@
+!=====================================================================
+!
+! S p e c f e m 3 D V e r s i o n 2 . 0
+! ---------------------------------------
+!
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
subroutine calerf(ARG,RESULT,JINT)
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/param_reader.c
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/param_reader.c 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/param_reader.c 2011-04-08 05:12:13 UTC (rev 18201)
@@ -7,7 +7,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/precision.h.in
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/precision.h.in 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/precision.h.in 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,11 +1,12 @@
!=====================================================================
!
-! S p e c f e m 3 D V e r s i o n 1 . 4
+! S p e c f e m 3 D V e r s i o n 2 . 0
! ---------------------------------------
!
-! Dimitri Komatitsch and Jeroen Tromp
-! Seismological Laboratory - California Institute of Technology
-! (c) California Institute of Technology July 2005
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
@@ -23,6 +24,7 @@
!
!=====================================================================
+
! @configure_input@
!
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/prepare_assemble_MPI.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/prepare_assemble_MPI.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/prepare_assemble_MPI.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/read_parameter_file.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/read_parameter_file.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/read_parameter_file.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/read_topo_bathy_file.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/read_topo_bathy_file.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/read_topo_bathy_file.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/read_value_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/read_value_parameters.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/read_value_parameters.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/recompute_jacobian.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/recompute_jacobian.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/recompute_jacobian.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/save_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/save_header_file.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/save_header_file.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/sort_array_coordinates.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/sort_array_coordinates.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/sort_array_coordinates.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,13 +1,12 @@
!=====================================================================
!
-! S p e c f e m 3 D G l o b e V e r s i o n 4 . 0
-! --------------------------------------------------
+! S p e c f e m 3 D V e r s i o n 2 . 0
+! ---------------------------------------
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
-! Seismological Laboratory, California Institute of Technology, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) California Institute of Technology and University of Pau / CNRS / INRIA
-! February 2008
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/utm_geo.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/utm_geo.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/utm_geo.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,5 +1,31 @@
!=====================================================================
!
+! S p e c f e m 3 D V e r s i o n 2 . 0
+! ---------------------------------------
+!
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA and University of Pau / CNRS / INRIA
+! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! April 2011
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
+!=====================================================================
+!
! UTM (Universal Transverse Mercator) projection from the USGS
!
!=====================================================================
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/write_VTK_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/write_VTK_data.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/write_VTK_data.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/write_c_binary.c
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/write_c_binary.c 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/write_c_binary.c 2011-04-08 05:12:13 UTC (rev 18201)
@@ -7,7 +7,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
@@ -66,16 +66,16 @@
/* ---------------------------------------
-
+
IO performance test
-
+
Software Optimization for High Performance Computing: Creating Faster Applications
-
+
By Isom L. Crawford and Kevin R. Wadleigh
Jul 18, 2003
-
+
- uses functions fopen/fread/fwrite for binary file I/O
-
+
--------------------------------------- */
#define __USE_GNU
@@ -85,9 +85,9 @@
#define MIN(x,y) ((x) < (y) ? (x) : (y))
/* fastest performance on nehalem nodes:
-
+
Linux 2.6.18-164.11.1.el5 #1 SMP Wed Jan 20 10:04:55 EST 2010 x86_64 x86_64 x86_64 GNU/Linux
-
+
achieved with 16 KB buffers: */
//#define MAX_B 65536 // 64 KB
@@ -110,119 +110,119 @@
//void
//FC_FUNC_(open_file_abs_r_fbin,OPEN_FILE_ABS_R_FBIN)(int *fid, char *filename,int *length, int *filesize){
void open_file_abs_r_fbin(int *fid, char *filename,int *length, int *filesize){
-
+
// opens file for read access
-
+
//This sequence assigns the MAX_B array work_buffer to the file pointer
// to be used for its buffering. performance should benefit.
char * fncopy;
char * blank;
FILE *ft;
-
+
// checks filesize
if( *filesize == 0 ){
perror("Error file size for reading");
exit(EXIT_FAILURE);
}
-
+
// Trim the file name.
fncopy = strndup(filename, *length);
blank = strchr(fncopy, ' ');
if (blank != NULL) {
fncopy[blank - fncopy] = '\0';
}
-
+
// opens file
ft = fopen( fncopy, "r+" );
if( ft == NULL ) { perror("fopen"); exit(-1); }
-
+
// sets mode for full buffering
work_buffer[*fid] = (char *)malloc(MAX_B);
setvbuf( ft, work_buffer[*fid], _IOFBF, (size_t)MAX_B );
-
+
// stores file index id fid: from 0 to 8
fp_abs[*fid] = ft;
-
+
free(fncopy);
}
//void
//FC_FUNC_(open_file_abs_w_fbin,OPEN_FILE_ABS_W_FBIN)(int *fid, char *filename, int *length, int *filesize){
void open_file_abs_w_fbin(int *fid, char *filename, int *length, int *filesize){
-
+
// opens file for write access
-
+
//This sequence assigns the MAX_B array work_buffer to the file pointer
// to be used for its buffering. performance should benefit.
char * fncopy;
char * blank;
FILE *ft;
-
+
// checks filesize
if( *filesize == 0 ){
perror("Error file size for reading");
exit(EXIT_FAILURE);
}
-
+
// Trim the file name.
fncopy = strndup(filename, *length);
blank = strchr(fncopy, ' ');
if (blank != NULL) {
fncopy[blank - fncopy] = '\0';
}
-
+
// opens file
ft = fopen( fncopy, "w+" );
if( ft == NULL ) { perror("fopen"); exit(-1); }
-
+
// sets mode for full buffering
work_buffer[*fid] = (char *)malloc(MAX_B);
setvbuf( ft, work_buffer[*fid], _IOFBF, (size_t)MAX_B );
-
+
// stores file index id fid: from 0 to 8
fp_abs[*fid] = ft;
-
+
free(fncopy);
-
+
}
//void
//FC_FUNC_(close_file_abs_fbin,CLOSE_FILE_ABS_FBIN)(int * fid){
void close_file_abs_fbin(int * fid){
-
+
// closes file
-
+
fclose(fp_abs[*fid]);
-
+
free(work_buffer[*fid]);
-
+
}
//void
//FC_FUNC_(write_abs_fbin,WRITE_ABS_FBIN)(int *fid, void *buffer, int *length, int *index){
void write_abs_fbin(int *fid, void *buffer, int *length, int *index){
-
+
// writes binary file data in chunks of MAX_B
-
+
FILE *ft;
int itemlen,remlen,donelen,ret;
void *buf;
-
+
// file pointer
ft = fp_abs[*fid];
-
+
donelen = 0;
remlen = *length;
buf = buffer;
ret = 0;
-
+
//float dat[2];
//memcpy(dat,buffer,*length);
//printf("buffer: %f %f\n",dat[0],dat[1]);
-
+
// writes items of maximum MAX_B to the file
while (remlen > 0){
-
+
itemlen = MIN(remlen,MAX_B);
ret = fwrite(buf,1,itemlen,ft);
if (ret > 0){
@@ -234,42 +234,42 @@
remlen = 0;
}
}
-
+
}
//void
//FC_FUNC_(read_abs_fbin,READ_ABS_FBIN)(int *fid, void *buffer, int *length, int *index){
void read_abs_fbin(int *fid, void *buffer, int *length, int *index){
-
+
// reads binary file data in chunks of MAX_B
-
+
FILE *ft;
int ret,itemlen,remlen,donelen,pos;
void *buf;
-
+
// file pointer
ft = fp_abs[*fid];
-
+
// positions file pointer (for reverse time access)
pos = (*length) * (*index -1 );
fseek(ft, pos , SEEK_SET);
-
+
donelen = 0;
remlen = *length;
buf = buffer;
ret = 0;
-
+
// reads items of maximum MAX_B to the file
while (remlen > 0){
-
+
// checks end of file
if (ferror(ft) || feof(ft)) return;
-
+
itemlen = MIN(remlen,MAX_B);
ret = fread(buf,1,itemlen,ft);
-
+
if (ferror(ft) || feof(ft)) return;
-
+
if (ret > 0){
donelen = donelen + ret;
remlen = remlen - MAX_B;
@@ -279,7 +279,7 @@
remlen = 0;
}
}
-
+
//float dat[2];
//memcpy(dat,buffer,*length);
//printf("return buffer: %f %f\n",dat[0],dat[1]);
@@ -289,27 +289,27 @@
/* ---------------------------------------
-
+
IO performance test
-
-
+
+
A Performance Comparison of "read" and "mmap" in the Solaris 8 OS
-
+
By Oyetunde Fadele, September 2002
-
+
http://developers.sun.com/solaris/articles/read_mmap.html
-
+
or
-
+
High-performance network programming, Part 2: Speed up processing at both the client and server
-
+
by Girish Venkatachalam
-
+
http://www.ibm.com/developerworks/aix/library/au-highperform2/
-
-
+
+
- uses functions mmap/memcpy for mapping file I/O
-
+
------------------------------------- */
@@ -327,28 +327,28 @@
//void
//FC_FUNC_(open_file_abs_w_map,OPEN_FILE_ABS_W_MAP)(int *fid, char *filename, int *length, int *filesize){
void open_file_abs_w_map(int *fid, char *filename, int *length, int *filesize){
-
+
// opens file for write access
-
+
int ft;
int result;
char *map;
char *fncopy;
char *blank;
-
+
// checks filesize
if( *filesize == 0 ){
perror("Error file size for writing");
exit(EXIT_FAILURE);
}
-
+
// Trim the file name.
fncopy = strndup(filename, *length);
blank = strchr(fncopy, ' ');
if (blank != NULL) {
fncopy[blank - fncopy] = '\0';
}
-
+
/* Open a file for writing.
* - Creating the file if it doesn't exist.
* - Truncating it to 0 size if it already exists. (not really needed)
@@ -360,13 +360,13 @@
perror("Error opening file for writing");
exit(EXIT_FAILURE);
}
-
+
// file index id fid: from 0 to 8
map_fd_abs[*fid] = ft;
-
+
free(fncopy);
-
-
+
+
/* Stretch the file size to the size of the (mmapped) array of ints
*/
filesize_abs[*fid] = *filesize;
@@ -376,10 +376,10 @@
perror("Error calling fseek() to 'stretch' the file");
exit(EXIT_FAILURE);
}
-
+
//printf("file length: %d \n",filesize_abs[*fid]);
-
-
+
+
/* Something needs to be written at the end of the file to
* have the file actually have the new size.
* Just writing an empty string at the current file position will do.
@@ -396,7 +396,7 @@
perror("Error writing last byte of the file");
exit(EXIT_FAILURE);
}
-
+
/* Now the file is ready to be mmapped.
*/
map = mmap(0, filesize_abs[*fid], PROT_READ | PROT_WRITE, MAP_SHARED, ft, 0);
@@ -405,76 +405,76 @@
perror("Error mmapping the file");
exit(EXIT_FAILURE);
}
-
+
map_abs[*fid] = map;
-
+
//printf("file map: %d\n",*fid);
-
+
}
//void
//FC_FUNC_(open_file_abs_r_map,OPEN_FILE_ABS_R_MAP)(int *fid, char *filename,int *length, int *filesize){
void open_file_abs_r_map(int *fid, char *filename,int *length, int *filesize){
-
+
// opens file for read access
char * fncopy;
char * blank;
int ft;
char *map;
-
+
// checks filesize
if( *filesize == 0 ){
perror("Error file size for reading");
exit(EXIT_FAILURE);
}
-
+
// Trim the file name.
fncopy = strndup(filename, *length);
blank = strchr(fncopy, ' ');
if (blank != NULL) {
fncopy[blank - fncopy] = '\0';
}
-
-
+
+
ft = open(fncopy, O_RDONLY);
if (ft == -1) {
perror("Error opening file for reading");
exit(EXIT_FAILURE);
}
-
+
// file index id fid: from 0 to 8
map_fd_abs[*fid] = ft;
-
+
free(fncopy);
-
+
filesize_abs[*fid] = *filesize;
-
+
map = mmap(0, filesize_abs[*fid], PROT_READ, MAP_SHARED, ft, 0);
if (map == MAP_FAILED) {
close(ft);
perror("Error mmapping the file");
exit(EXIT_FAILURE);
}
-
+
map_abs[*fid] = map;
-
+
//printf("file length r: %d \n",filesize_abs[*fid]);
//printf("file map r: %d\n",*fid);
-
+
}
//void
//FC_FUNC_(close_file_abs_map,CLOSE_FILE_ABS_MAP)(int * fid){
void close_file_abs_map(int * fid){
-
+
/* Don't forget to free the mmapped memory
*/
if (munmap(map_abs[*fid], filesize_abs[*fid]) == -1) {
perror("Error un-mmapping the file");
/* Decide here whether to close(fd) and exit() or not. Depends... */
}
-
+
/* Un-mmaping doesn't close the file, so we still need to do that.
*/
close(map_fd_abs[*fid]);
@@ -484,108 +484,108 @@
//void
//FC_FUNC_(write_abs_map,WRITE_ABS_MAP)(int *fid, char *buffer, int *length , int *index){
void write_abs_map(int *fid, char *buffer, int *length , int *index){
-
+
char *map;
int offset;
-
+
map = map_abs[*fid];
-
+
// offset in bytes
offset = (*index -1 ) * (*length) ;
-
+
// copies buffer to map
memcpy( &map[offset], buffer ,*length );
-
+
}
//void
//FC_FUNC_(read_abs_map,READ_ABS_MAP)(int *fid, char *buffer, int *length , int *index){
void read_abs_map(int *fid, char *buffer, int *length , int *index){
-
+
char *map;
int offset;
-
+
map = map_abs[*fid];
-
+
// offset in bytes
offset = (*index -1 ) * (*length) ;
-
+
// copies map to buffer
memcpy( buffer, &map[offset], *length );
-
+
}
/*
-
+
wrapper functions
-
+
- for your preferred, optimized file i/o ;
e.g. uncomment // #define USE_MAP... in config.h to use mmap routines
or comment out (default) to use fopen/fwrite/fread functions
-
+
note: mmap functions should work fine for local harddisk directories, but can lead to
problems with global (e.g. NFS) directories
-
+
(on nehalem, Linux 2.6.18-164.11.1.el5 #1 SMP Wed Jan 20 10:04:55 EST 2010 x86_64 x86_64 x86_64 GNU/Linux
- mmap functions are about 20 % faster than conventional fortran, unformatted file i/o
- fwrite/fread function are about 12 % faster than conventional fortran, unformatted file i/o )
-
+
*/
void
FC_FUNC_(open_file_abs_w,OPEN_FILE_ABS_W)(int *fid, char *filename,int *length, int *filesize) {
-
+
#ifdef USE_MAP_FUNCTION
open_file_abs_w_map(fid,filename,length,filesize);
#else
open_file_abs_w_fbin(fid,filename,length,filesize);
#endif
-
+
}
void
FC_FUNC_(open_file_abs_r,OPEN_FILE_ABS_R)(int *fid, char *filename,int *length, int *filesize) {
-
+
#ifdef USE_MAP_FUNCTION
open_file_abs_r_map(fid,filename,length,filesize);
#else
open_file_abs_r_fbin(fid,filename,length,filesize);
#endif
-
+
}
void
FC_FUNC_(close_file_abs,CLOSE_FILES_ABS)(int *fid) {
-
+
#ifdef USE_MAP_FUNCTION
close_file_abs_map(fid);
#else
close_file_abs_fbin(fid);
#endif
-
+
}
void
FC_FUNC_(write_abs,WRITE_ABS)(int *fid, char *buffer, int *length , int *index) {
-
+
#ifdef USE_MAP_FUNCTION
write_abs_map(fid,buffer,length,index);
#else
write_abs_fbin(fid,buffer,length,index);
#endif
-
+
}
void
FC_FUNC_(read_abs,READ_ABS)(int *fid, char *buffer, int *length , int *index) {
-
+
#ifdef USE_MAP_FUNCTION
read_abs_map(fid,buffer,length,index);
#else
read_abs_fbin(fid,buffer,length,index);
#endif
-
+
}
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/Makefile.in
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/Makefile.in 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/Makefile.in 2011-04-08 05:12:13 UTC (rev 18201)
@@ -1,11 +1,12 @@
#=====================================================================
#
-# S p e c f e m 3 D V e r s i o n 1 . 4
+# S p e c f e m 3 D V e r s i o n 2 . 0
# ---------------------------------------
#
-# Dimitri Komatitsch and Jeroen Tromp
-# Seismological Laboratory - California Institute of Technology
-# (c) California Institute of Technology July 2005
+# Main authors: Dimitri Komatitsch and Jeroen Tromp
+# Princeton University, USA and University of Pau / CNRS / INRIA
+# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+# April 2011
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/PML_init.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/PML_init.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/PML_init.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/comp_source_time_function.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/comp_source_time_function.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/comp_source_time_function.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_acoustic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_acoustic.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_acoustic.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_elastic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_elastic.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_elastic.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_adj_source_frechet.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_adj_source_frechet.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_adj_source_frechet.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_acoustic_el.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_acoustic_el.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_acoustic_el.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_elastic_ac.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_elastic_ac.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_elastic_ac.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_PML.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_PML.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_PML.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_pot.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_pot.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_pot.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic_Dev.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic_Dev.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic_Dev.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic_noDev.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic_noDev.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic_noDev.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_gradient.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_gradient.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_gradient.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_interpolated_dva.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_interpolated_dva.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_interpolated_dva.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_stacey_acoustic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_stacey_acoustic.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_stacey_acoustic.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_stacey_elastic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_stacey_elastic.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_stacey_elastic.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/create_color_image.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/create_color_image.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/create_color_image.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/detect_mesh_surfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/detect_mesh_surfaces.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/detect_mesh_surfaces.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/finalize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/finalize_simulation.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/finalize_simulation.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/iterate_time.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/iterate_time.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/iterate_time.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/locate_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/locate_receivers.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/locate_receivers.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/locate_source.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/locate_source.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/locate_source.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/noise_tomography.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/noise_tomography.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/noise_tomography.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/program_specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/program_specfem3D.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/program_specfem3D.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/read_mesh_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/read_mesh_databases.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/read_mesh_databases.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/read_topography_bathymetry.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/read_topography_bathymetry.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/read_topography_bathymetry.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/save_adjoint_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/save_adjoint_kernels.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/save_adjoint_kernels.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_GLL_points.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_GLL_points.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_GLL_points.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_movie_meshes.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_movie_meshes.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_movie_meshes.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_sources_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_sources_receivers.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_sources_receivers.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_par.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_par.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_par.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/write_movie_output.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/write_movie_output.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/write_movie_output.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/write_output_ASCII.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/write_output_ASCII.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/write_output_ASCII.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/write_seismograms.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/write_seismograms.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/write_seismograms.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -6,7 +6,7 @@
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA and University of Pau / CNRS / INRIA
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
Modified: seismo/3D/SPECFEM3D/trunk/utils/Visualization/Paraview/create_slice_VTK.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/utils/Visualization/Paraview/create_slice_VTK.f90 2011-04-08 03:45:35 UTC (rev 18200)
+++ seismo/3D/SPECFEM3D/trunk/utils/Visualization/Paraview/create_slice_VTK.f90 2011-04-08 05:12:13 UTC (rev 18201)
@@ -7,7 +7,7 @@
! Princeton University, USA and University of Pau / CNRS / INRIA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! November 2010
+! April 2011
!
! This program is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
More information about the CIG-COMMITS
mailing list