[cig-commits] r20496 - in seismo/3D/SPECFEM3D_GLOBE/trunk: src/auxiliaries src/create_header_file src/meshfem3D src/shared src/specfem3D utils
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Sat Jul 7 11:09:03 PDT 2012
Author: dkomati1
Date: 2012-07-07 11:09:02 -0700 (Sat, 07 Jul 2012)
New Revision: 20496
Added:
seismo/3D/SPECFEM3D_GLOBE/trunk/utils/update_headers_change_word_f90.pl
Modified:
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_1D.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_2D.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_corners_chunks.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_faces_chunks.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_AVS_DX.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_paraview_strain_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_surf_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/convolve_source_timefunction.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/create_movie_AVS_DX.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/create_movie_GMT_global.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/create_header_file/create_header_file.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_missing_nodes.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_410_650.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_cmb.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_icb.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/calc_jacobian.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_coordinates_grid.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_element_properties.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_central_cube.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_chunk_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_doubling_elements.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_mass_matrices.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regular_elements.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/define_superbrick.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_1D_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_cutplanes_eta.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_cutplanes_xi.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_absorb.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_ellipticity.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_global.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_jacobian_boundaries.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_jacobian_discontinuities.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_model.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_shape2D.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_shape3D.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/lgndr.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D_models.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_1066a.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_1dref.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ak135.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_inner_core.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_atten3D_QRFSI12.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_attenuation.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crust.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crustmaps.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_epcrust.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_eucrust.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gapp2.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gll.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_heterogen_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_iasp91.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp1d.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp3d.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ppm.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s20rts.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s362ani.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s40rts.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_sea1d.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_sea99_s.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/moho_stretching.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/sort_array_coordinates.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/stretching_function.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_chunks_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_faces_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_surface_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/broadcast_compute_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/calendar.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/count_number_of_sources.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/create_name_database.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/create_serial_name_database.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/euler_angles.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/exit_mpi.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/force_ftz.c
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/get_model_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/get_value_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/gll_library.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/hex_nodes.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/intgrl.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/lagrange_poly.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/make_ellipticity.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/make_gravity.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/memory_eval.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/model_prem.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/model_topo_bathy.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/param_reader.c
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_compute_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_parameter_file.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_value_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/reduce.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/rthetaphi_xyz.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/save_header_file.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/spline_routines.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/write_c_binary.c
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube_block.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar_block.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector_block.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/check_simulation_stability.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/comp_source_spectrum.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/comp_source_time_function.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_add_sources.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_adj_source_frechet.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_arrays_source.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_boundary_kernel.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_coupling.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_element.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_crust_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_crust_mantle_Dev.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_inner_core.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_inner_core_Dev.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_outer_core.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_outer_core_Dev.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_kernels.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_seismograms.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_stacey_crust_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_stacey_outer_core.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/convert_time.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/create_central_cube_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/define_derivation_matrices.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/fix_non_blocking_flags.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_attenuation.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_backazimuth.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_cmt.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_event_info.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/initialize_simulation.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_receivers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_sources.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/multiply_arrays_source.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/netlib_specfun_erf.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/noise_tomography.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/prepare_timerun.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_buffers_solver.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_solver.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_forward_arrays.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/recompute_jacobian.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_forward_arrays.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_kernels.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_sources_receivers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_surface.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_volume.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_output_ASCII.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_output_SAC.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_seismograms.f90
Log:
updated the header files
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_1D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_1D.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_1D.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_2D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_2D.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_2D.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_corners_chunks.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_corners_chunks.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_corners_chunks.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_faces_chunks.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_faces_chunks.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/check_buffers_faces_chunks.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_AVS_DX.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_AVS_DX.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_AVS_DX.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_paraview_strain_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_paraview_strain_data.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_paraview_strain_data.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_surf_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_surf_data.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_surf_data.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/convolve_source_timefunction.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/convolve_source_timefunction.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/convolve_source_timefunction.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/create_movie_AVS_DX.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/create_movie_AVS_DX.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/create_movie_AVS_DX.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/create_movie_GMT_global.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/create_movie_GMT_global.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/create_movie_GMT_global.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/create_header_file/create_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/create_header_file/create_header_file.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/create_header_file/create_header_file.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_missing_nodes.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_missing_nodes.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_missing_nodes.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_410_650.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_410_650.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_410_650.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_cmb.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_cmb.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_cmb.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_icb.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_icb.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_icb.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/calc_jacobian.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/calc_jacobian.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/calc_jacobian.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_coordinates_grid.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_coordinates_grid.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_coordinates_grid.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_element_properties.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_element_properties.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_element_properties.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_central_cube.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_central_cube.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_central_cube.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_chunk_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_chunk_buffers.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_chunk_buffers.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_doubling_elements.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_doubling_elements.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_doubling_elements.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_mass_matrices.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_mass_matrices.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_mass_matrices.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -88,7 +88,7 @@
! Stacey conditions put back
integer :: NSPEC2D_TOP,NSPEC2D_BOTTOM,NSPEC2DMAX_XMIN_XMAX,NSPEC2DMAX_YMIN_YMAX
integer :: nspec_stacey
-
+
double precision, dimension(NGLLX) :: wxgll
double precision, dimension(NGLLY) :: wygll
double precision, dimension(NGLLZ) :: wzgll
@@ -130,11 +130,11 @@
integer :: ix_oceans,iy_oceans,iz_oceans,ispec_oceans,ispec2D_top_crust
! initializes matrices
- !
- ! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
+ !
+ ! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
! on the Stacey edges for the crust_mantle and outer_core regions but not for the inner_core region
! thus the mass matrix must be replaced by three mass matrices including the "C" damping matrix
- !
+ !
! if absorbing_conditions are not set or if NCHUNKS=6, only one mass matrix is needed
! for the sake of performance, only "rmassz" array will be filled and "rmassx" & "rmassy" will be obsolete
@@ -350,7 +350,7 @@
rmassx(:) = rmassz(:)
rmassy(:) = rmassz(:)
-
+
! xmin
! if two chunks exclude this face for one of them
if(NCHUNKS == 1 .or. ichunk == CHUNK_AC) then
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -166,7 +166,7 @@
integer nglob,nglob_theor,ieoff,ilocnum,ier
! mass matrices
- real(kind=CUSTOM_REAL), dimension(:), allocatable :: rmassx,rmassy,rmassz
+ real(kind=CUSTOM_REAL), dimension(:), allocatable :: rmassx,rmassy,rmassz
integer :: nglob_xy
! mass matrix and bathymetry for ocean load
@@ -998,15 +998,15 @@
NSPEC2DMAX_XMIN_XMAX,NSPEC2DMAX_YMIN_YMAX,&
xigll,yigll,zigll)
- ! allocates mass matrices in this slice (will be fully assembled in the solver)
+ ! allocates mass matrices in this slice (will be fully assembled in the solver)
!
- ! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
+ ! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
! on the Stacey edges for the crust_mantle and outer_core regions but not for the inner_core region
! thus the mass matrix must be replaced by three mass matrices including the "C" damping matrix
- !
+ !
! if absorbing_conditions are not set or if NCHUNKS=6, only one mass matrix is needed
! for the sake of performance, only "rmassz" array will be filled and "rmassx" & "rmassy" will be obsolete
-
+
if(NCHUNKS /= 6 .and. ABSORBING_CONDITIONS) then
select case(iregion_code)
case( IREGION_CRUST_MANTLE )
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regular_elements.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regular_elements.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regular_elements.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/define_superbrick.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/define_superbrick.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/define_superbrick.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_1D_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_1D_buffers.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_1D_buffers.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_cutplanes_eta.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_cutplanes_eta.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_cutplanes_eta.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_cutplanes_xi.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_cutplanes_xi.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_cutplanes_xi.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_absorb.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_absorb.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_absorb.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_ellipticity.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_ellipticity.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_ellipticity.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_global.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_global.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_global.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_jacobian_boundaries.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_jacobian_boundaries.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_jacobian_boundaries.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_jacobian_discontinuities.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_jacobian_discontinuities.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_jacobian_discontinuities.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_model.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_model.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_shape2D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_shape2D.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_shape2D.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_shape3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_shape3D.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_shape3D.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/lgndr.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/lgndr.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/lgndr.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D_models.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D_models.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D_models.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_1066a.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_1066a.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_1066a.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_1dref.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_1dref.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_1dref.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ak135.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ak135.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ak135.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_inner_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_inner_core.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_inner_core.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_atten3D_QRFSI12.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_atten3D_QRFSI12.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_atten3D_QRFSI12.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_attenuation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_attenuation.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_attenuation.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crust.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crust.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crust.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crustmaps.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crustmaps.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crustmaps.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_epcrust.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_epcrust.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_epcrust.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_eucrust.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_eucrust.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_eucrust.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gapp2.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gapp2.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gapp2.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gll.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gll.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gll.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_heterogen_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_heterogen_mantle.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_heterogen_mantle.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_iasp91.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_iasp91.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_iasp91.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp1d.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp1d.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp1d.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp3d.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp3d.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp3d.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ppm.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ppm.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ppm.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s20rts.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s20rts.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s20rts.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s362ani.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s362ani.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s362ani.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s40rts.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s40rts.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s40rts.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_sea1d.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_sea1d.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_sea1d.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_sea99_s.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_sea99_s.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_sea99_s.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/moho_stretching.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/moho_stretching.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/moho_stretching.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -249,17 +249,17 @@
! mass matrices
!
-! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
+! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
! on the Stacey edges for the crust_mantle and outer_core regions but not for the inner_core region
! thus the mass matrix must be replaced by three mass matrices including the "C" damping matrix
-!
+!
! if absorbing_conditions are not set or if NCHUNKS=6, only one mass matrix is needed
! for the sake of performance, only "rmassz" array will be filled and "rmassx" & "rmassy" will be obsolete
if(NCHUNKS /= 6 .and. ABSORBING_CONDITIONS .and. iregion_code == IREGION_CRUST_MANTLE) then
write(27) rmassx
write(27) rmassy
endif
-
+
write(27) rmassz
! additional ocean load mass matrix if oceans and if we are in the crust
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/sort_array_coordinates.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/sort_array_coordinates.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/sort_array_coordinates.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/stretching_function.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/stretching_function.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/stretching_function.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_chunks_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_chunks_data.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_chunks_data.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_data.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_data.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_faces_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_faces_data.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_faces_data.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_surface_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_surface_data.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_surface_data.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/broadcast_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/broadcast_compute_parameters.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/broadcast_compute_parameters.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/calendar.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/calendar.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/calendar.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/count_number_of_sources.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/count_number_of_sources.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/count_number_of_sources.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/create_name_database.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/create_name_database.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/create_name_database.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/create_serial_name_database.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/create_serial_name_database.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/create_serial_name_database.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/euler_angles.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/euler_angles.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/euler_angles.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/exit_mpi.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/exit_mpi.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/exit_mpi.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/force_ftz.c
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/force_ftz.c 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/force_ftz.c 2012-07-07 18:09:02 UTC (rev 20496)
@@ -6,8 +6,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
- ! and University of Pau / CNRS / INRIA, France
- ! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+ ! and CNRS / INRIA / University of Pau, France
+ ! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/get_model_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/get_model_parameters.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/get_model_parameters.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/get_value_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/get_value_parameters.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/get_value_parameters.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/gll_library.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/gll_library.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/gll_library.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/hex_nodes.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/hex_nodes.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/hex_nodes.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/intgrl.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/intgrl.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/intgrl.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/lagrange_poly.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/lagrange_poly.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/lagrange_poly.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/make_ellipticity.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/make_ellipticity.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/make_ellipticity.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/make_gravity.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/make_gravity.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/make_gravity.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/memory_eval.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/memory_eval.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/memory_eval.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/model_prem.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/model_prem.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/model_prem.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/model_topo_bathy.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/model_topo_bathy.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/model_topo_bathy.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/param_reader.c
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/param_reader.c 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/param_reader.c 2012-07-07 18:09:02 UTC (rev 20496)
@@ -6,8 +6,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
- ! and University of Pau / CNRS / INRIA, France
- ! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+ ! and CNRS / INRIA / University of Pau, France
+ ! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_compute_parameters.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_compute_parameters.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_parameter_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_parameter_file.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_parameter_file.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_value_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_value_parameters.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/read_value_parameters.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/reduce.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/reduce.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/reduce.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/rthetaphi_xyz.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/rthetaphi_xyz.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/rthetaphi_xyz.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/save_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/save_header_file.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/save_header_file.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/spline_routines.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/spline_routines.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/spline_routines.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/write_c_binary.c
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/write_c_binary.c 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/write_c_binary.c 2012-07-07 18:09:02 UTC (rev 20496)
@@ -6,8 +6,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
- ! and University of Pau / CNRS / INRIA, France
- ! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+ ! and CNRS / INRIA / University of Pau, France
+ ! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube_block.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube_block.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube_block.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar_block.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar_block.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar_block.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector_block.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector_block.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector_block.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/check_simulation_stability.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/check_simulation_stability.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/check_simulation_stability.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/comp_source_spectrum.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/comp_source_spectrum.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/comp_source_spectrum.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/comp_source_time_function.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/comp_source_time_function.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/comp_source_time_function.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_add_sources.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_add_sources.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_add_sources.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_adj_source_frechet.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_adj_source_frechet.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_adj_source_frechet.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_arrays_source.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_arrays_source.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_arrays_source.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_boundary_kernel.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_boundary_kernel.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_boundary_kernel.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_coupling.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_coupling.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_coupling.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -457,11 +457,11 @@
real(kind=CUSTOM_REAL), dimension(NDIM,NGLOB_CRUST_MANTLE_ADJOINT) :: b_accel_crust_mantle
! mass matrices
- !
- ! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
+ !
+ ! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
! on the Stacey edges for the crust_mantle and outer_core regions but not for the inner_core region
! thus the mass matrix must be replaced by three mass matrices including the "C" damping matrix
- !
+ !
! if absorbing_conditions are not set or if NCHUNKS=6, only one mass matrix is needed
! for the sake of performance, only "rmassz" array will be filled and "rmassx" & "rmassy" will be obsolete
real(kind=CUSTOM_REAL), dimension(NGLOB_XY) :: rmassx_crust_mantle
@@ -475,7 +475,7 @@
integer, dimension(NSPEC2D_TOP_CM) :: ibelm_top_crust_mantle
logical, dimension(NGLOB_CRUST_MANTLE_OCEANS) :: updated_dof_ocean_load
- logical :: ABSORBING_CONDITIONS
+ logical :: ABSORBING_CONDITIONS
integer SIMULATION_TYPE
integer nspec_top
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_element.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_element.F90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_element.F90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_crust_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_crust_mantle.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_crust_mantle.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_crust_mantle_Dev.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_crust_mantle_Dev.F90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_crust_mantle_Dev.F90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_inner_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_inner_core.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_inner_core.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_inner_core_Dev.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_inner_core_Dev.F90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_inner_core_Dev.F90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_outer_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_outer_core.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_outer_core.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_outer_core_Dev.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_outer_core_Dev.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_outer_core_Dev.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_kernels.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_kernels.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_seismograms.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_seismograms.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_seismograms.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_stacey_crust_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_stacey_crust_mantle.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_stacey_crust_mantle.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_stacey_outer_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_stacey_outer_core.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_stacey_outer_core.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/convert_time.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/convert_time.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/convert_time.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/create_central_cube_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/create_central_cube_buffers.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/create_central_cube_buffers.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/define_derivation_matrices.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/define_derivation_matrices.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/define_derivation_matrices.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/fix_non_blocking_flags.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/fix_non_blocking_flags.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/fix_non_blocking_flags.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_attenuation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_attenuation.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_attenuation.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_backazimuth.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_backazimuth.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_backazimuth.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_cmt.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_cmt.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_cmt.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_event_info.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_event_info.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_event_info.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/initialize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/initialize_simulation.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/initialize_simulation.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_receivers.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_receivers.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_sources.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_sources.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_sources.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/multiply_arrays_source.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/multiply_arrays_source.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/multiply_arrays_source.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/netlib_specfun_erf.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/netlib_specfun_erf.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/netlib_specfun_erf.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/noise_tomography.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/noise_tomography.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/noise_tomography.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/prepare_timerun.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/prepare_timerun.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/prepare_timerun.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_buffers_solver.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_buffers_solver.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_buffers_solver.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -140,10 +140,10 @@
NGLOB2DMAX_XY,NGLOB1D_RADIAL, &
NUMMSGS_FACES,NCORNERSCHUNKS,NPROC_XI,NPROC_ETA,LOCAL_PATH)
-
+
endif
-
+
end subroutine read_arrays_buffers_solver
!
@@ -192,7 +192,7 @@
open(unit=IIN,file=prname(1:len_trim(prname))//'iboolleft_xi.txt', &
status='old',action='read',iostat=ier)
if( ier /= 0 ) call exit_mpi(myrank,'error opening iboolleft_xi file')
-
+
npoin2D_xi(1) = 1
350 continue
read(IIN,*) iboolleft_xi(npoin2D_xi(1)),xdummy,ydummy,zdummy
@@ -240,7 +240,7 @@
! synchronizes processes
call sync_all()
-
+
! $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
! read 2-D addressing for summation between slices along eta with MPI
@@ -264,7 +264,7 @@
! synchronizes processes
call sync_all()
-
+
! read iboolright_eta of this slice
open(unit=IIN,file=prname(1:len_trim(prname))//'iboolright_eta.txt',status='old',action='read')
npoin2D_eta(2) = 1
@@ -293,7 +293,7 @@
! synchronizes processes
call sync_all()
-
+
!! $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
end subroutine read_arrays_buffers_1
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_solver.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_solver.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_solver.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -178,10 +178,10 @@
! mass matrices
!
-! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
+! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
! on the Stacey edges for the crust_mantle and outer_core regions but not for the inner_core region
! thus the mass matrix must be replaced by three mass matrices including the "C" damping matrix
-!
+!
! if absorbing_conditions are not set or if NCHUNKS=6, only one mass matrix is needed
! for the sake of performance, only "rmassz" array will be filled and "rmassx" & "rmassy" will be obsolete
if(NCHUNKS_VAL /= 6 .and. ABSORBING_CONDITIONS .and. iregion_code == IREGION_CRUST_MANTLE) then
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_forward_arrays.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_forward_arrays.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_forward_arrays.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -103,11 +103,11 @@
logical, dimension(NSPEC_CRUST_MANTLE) :: ispec_is_tiso_crust_mantle
! mass matrices
- !
- ! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
+ !
+ ! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
! on the Stacey edges for the crust_mantle and outer_core regions but not for the inner_core region
! thus the mass matrix must be replaced by three mass matrices including the "C" damping matrix
- !
+ !
! if absorbing_conditions are not set or if NCHUNKS=6, only one mass matrix is needed
! for the sake of performance, only "rmassz" array will be filled and "rmassx" & "rmassy" will be obsolete
integer :: NGLOB_XY, NGLOB_DUMMY
@@ -171,7 +171,7 @@
! read arrays created by the mesher
! user output
if( myrank == 0 ) write(IMAIN,*) 'reading mesh databases...'
-
+
! synchronizes processes
call sync_all()
@@ -390,7 +390,7 @@
! user output
if( myrank == 0 ) write(IMAIN,*) 'reading MPI addressing...'
-
+
! synchronizes processes
call sync_all()
@@ -469,10 +469,10 @@
enddo
write(IMAIN, *) ' '
endif
-
+
! synchronizes processes
call sync_all()
-
+
! determine chunk number and local slice coordinates using addressing
ichunk = ichunk_slice(myrank)
iproc_xi = iproc_xi_slice(myrank)
@@ -555,7 +555,7 @@
! synchronizes processes
call sync_all()
-
+
end subroutine read_mesh_databases_addressing
@@ -671,7 +671,7 @@
! user output
if( myrank == 0 ) write(IMAIN,*) 'reading coupling surfaces...'
-
+
! synchronizes processes
call sync_all()
@@ -819,7 +819,7 @@
! synchronizes processes
call sync_all()
-
+
end subroutine read_mesh_databases_coupling
@@ -886,7 +886,7 @@
! user output
if( myrank == 0 ) write(IMAIN,*) 'reading Stacey boundaries...'
-
+
! synchronizes processes
call sync_all()
@@ -1175,5 +1175,5 @@
! synchronizes processes
call sync_all()
-
+
end subroutine read_mesh_databases_stacey
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/recompute_jacobian.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/recompute_jacobian.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/recompute_jacobian.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_forward_arrays.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_forward_arrays.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_forward_arrays.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_kernels.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_kernels.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_sources_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_sources_receivers.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_sources_receivers.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -538,11 +538,11 @@
logical, dimension(NSPEC_CRUST_MANTLE) :: ispec_is_tiso_crust_mantle
! mass matrices
-!
-! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
+!
+! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
! on the Stacey edges for the crust_mantle and outer_core regions but not for the inner_core region
! thus the mass matrix must be replaced by three mass matrices including the "C" damping matrix
-!
+!
! if absorbing_conditions are not set or if NCHUNKS=6, only one mass matrix is needed
! for the sake of performance, only "rmassz" array will be filled and "rmassx" & "rmassy" will be obsolete
real(kind=CUSTOM_REAL), dimension(:), allocatable :: rmassx_crust_mantle
@@ -1045,12 +1045,12 @@
!!!!!!! print *,'starting doing serialized I/Os on rank ',myrank
#endif
- ! allocates mass matrices in this slice (will be fully assembled in the solver)
+ ! allocates mass matrices in this slice (will be fully assembled in the solver)
!
- ! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
+ ! in the case of stacey boundary conditions, add C*delta/2 contribution to the mass matrix
! on the Stacey edges for the crust_mantle and outer_core regions but not for the inner_core region
! thus the mass matrix must be replaced by three mass matrices including the "C" damping matrix
- !
+ !
! if absorbing_conditions are not set or if NCHUNKS=6, only one mass matrix is needed
! for the sake of performance, only "rmassz" array will be filled and "rmassx" & "rmassy" will be obsolete
if(NCHUNKS_VAL /= 6 .and. ABSORBING_CONDITIONS) then
@@ -3450,7 +3450,7 @@
endif ! end of assembling forces with the central cube
if(NCHUNKS_VAL /= 6 .and. ABSORBING_CONDITIONS) then
-
+
#ifdef _HANDOPT
! way 2:
if(imodulo_NGLOB_CRUST_MANTLE4 >= 1) then
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_surface.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_surface.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_surface.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_volume.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_volume.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_volume.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_output_ASCII.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_output_ASCII.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_output_ASCII.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_output_SAC.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_output_SAC.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_output_SAC.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_seismograms.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_seismograms.f90 2012-07-07 18:05:12 UTC (rev 20495)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_seismograms.f90 2012-07-07 18:09:02 UTC (rev 20496)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Added: seismo/3D/SPECFEM3D_GLOBE/trunk/utils/update_headers_change_word_f90.pl
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/utils/update_headers_change_word_f90.pl (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/utils/update_headers_change_word_f90.pl 2012-07-07 18:09:02 UTC (rev 20496)
@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+
+#
+# Script to change the version number in f90 codes
+#
+# Author : Dimitri Komatitsch, EPS - Harvard University, May 1998
+#
+
+#
+# read all f90 and F90 (and *.h) files in the current directory
+# f90 files are supposed to have the extension "*.f90" or "*.F90" or "*.h"
+#
+
+#
+# known bug : does the changes also in constant strings, and not only
+# in the code (which is dangerous, but really easier to program...)
+#
+
+ @objects = `ls ../src/*/*.f90 ../src/*/*.F90 ../src/*/*.c ../src/*/*.cu ../src/*/*.h.in ../src/*/*.h`;
+
+ foreach $name (@objects) {
+ chop $name;
+# change tabs to white spaces
+ system("expand -2 < $name > _____tutu01_____");
+ $f90name = $name;
+ print STDOUT "Changing word in file $name ...\n";
+
+ open(FILEF77,"<_____tutu01_____");
+ open(FILEF90,">$f90name");
+
+# open the source file
+ while($line = <FILEF77>) {
+ chop $line;
+
+# suppress trailing white spaces and carriage return
+ $line =~ s/\s*$//;
+
+# change the version number and copyright information
+ $line =~ s#! and University of Pau / CNRS / INRIA, France#! and CNRS / INRIA / University of Pau, France#og;
+ $line =~ s#! \(c\) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA#! \(c\) Princeton University and CNRS / INRIA / University of Pau#og;
+# $line =~ s#rmass_sigma#rmass_time_integral_of_sigma#og;
+
+# write the modified line to the output file
+ print FILEF90 "$line\n";
+
+ }
+
+ close(FILEF77);
+ close(FILEF90);
+
+ }
+
+ system("rm -f _____tutu01_____");
+
Property changes on: seismo/3D/SPECFEM3D_GLOBE/trunk/utils/update_headers_change_word_f90.pl
___________________________________________________________________
Name: svn:executable
+ *
More information about the CIG-COMMITS
mailing list