[cig-commits] r18307 - seismo/3D/CPML/trunk

dkomati1 at geodynamics.org dkomati1 at geodynamics.org
Mon May 2 16:01:27 PDT 2011 

Author: dkomati1
Date: 2011-05-02 16:01:27 -0700 (Mon, 02 May 2011)
New Revision: 18307

Modified:
   seismo/3D/CPML/trunk/README_seismic_cpml.html
   seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_second_order.f90
Log:
moved KoMa07 to the bottom of the list in the README file


Modified: seismo/3D/CPML/trunk/README_seismic_cpml.html
===================================================================
--- seismo/3D/CPML/trunk/README_seismic_cpml.html	2011-05-02 13:38:42 UTC (rev 18306)
+++ seismo/3D/CPML/trunk/README_seismic_cpml.html	2011-05-02 23:01:27 UTC (rev 18307)
@@ -1,228 +1,225 @@
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
-<html><head>
-
-
-	<meta http-equiv="CONTENT-TYPE" content="text/html; charset=UTF-8">
-	<title>The SEISMIC_CPML software package</title>
-	<meta name="GENERATOR" content="OpenOffice.org 3.1  (Linux)">
-	<meta name="CREATED" content="0;0">
-	<meta name="CHANGEDBY" content="Dimitri Komatitsch">
-	<meta name="CHANGED" content="20101219;534200">
-	<style type="text/css">
+<HTML>
+<HEAD>
+	<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=utf-8">
+	<TITLE>The SEISMIC_CPML software package</TITLE>
+	<META NAME="GENERATOR" CONTENT="OpenOffice.org 3.3  (Unix)">
+	<META NAME="CREATED" CONTENT="0;0">
+	<META NAME="CHANGEDBY" CONTENT="Dimitri Komatitsch">
+	<META NAME="CHANGED" CONTENT="20110503;580000">
+	<STYLE TYPE="text/css">
 	<!--
 		P { color: #000000; font-family: "Times New Roman"; font-size: 12pt }
 		A:link { color: #0000ff }
 		A:visited { color: #0000ff }
 	-->
-	</style>
-</head><body dir="LTR" background="http://www.univ-pau.fr/%7Edkomati1/grayback.gif" bgcolor="#ffffff" lang="en-US" link="#0000ff" vlink="#0000ff">
-<p><a href="http://www.univ-pau.fr/%7Edkomati1">Home page of Dimitri
-Komatitsch</a></p>
-<p align="CENTER"><a name="_x0000_i1025"></a><img src="http://www.univ-pau.fr/%7Edkomati1/seismic_cpml.gif" name="graphics1" align="BOTTOM" border="0" height="30" width="158"></p>
-<p>&nbsp;</p>
-<p align="CENTER"><a name="download_map"></a><img src="http://www.geodynamics.org/~buildbot/maps/Seismic_CPML.gif" name="download_map2" align="BOTTOM" border="0" height="223" width="445"></p>
-<p align="CENTER"><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><u><b>Current
-SEISMIC_CPML download map since its first release</b></u></font></font></font></p>
-<p>&nbsp;</p>
-<p><font color="#ff0000"><font style="font-size: 13pt;" size="3">SEISMIC_CPML
-is a set of ten open-source Fortran90 programs</font></font> <font style="font-size: 13pt;" size="3">to
+	</STYLE>
+</HEAD>
+<BODY LANG="en-US" LINK="#0000ff" VLINK="#0000ff" BGCOLOR="#ffffff" BACKGROUND="http://www.univ-pau.fr/%7Edkomati1/grayback.gif" DIR="LTR">
+<P><A HREF="http://www.univ-pau.fr/%7Edkomati1">Home page of Dimitri
+Komatitsch</A></P>
+<P ALIGN=CENTER><A NAME="_x0000_i1025"></A><IMG SRC="http://www.univ-pau.fr/%7Edkomati1/seismic_cpml.gif" NAME="graphics1" ALIGN=BOTTOM WIDTH=158 HEIGHT=30 BORDER=0></P>
+<P>&nbsp;</P>
+<P ALIGN=CENTER><A NAME="download_map"></A><IMG SRC="http://www.geodynamics.org/~buildbot/maps/Seismic_CPML.gif" NAME="download_map2" ALIGN=BOTTOM WIDTH=445 HEIGHT=223 BORDER=0></P>
+<P ALIGN=CENTER><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><U><B>Current
+SEISMIC_CPML download map since its first release</B></U></FONT></FONT></FONT></P>
+<P>&nbsp;</P>
+<P><FONT COLOR="#ff0000"><FONT SIZE=3 STYLE="font-size: 13pt">SEISMIC_CPML
+is a set of ten open-source Fortran90 programs</FONT></FONT> <FONT SIZE=3 STYLE="font-size: 13pt">to
 solve the two-dimensional or three-dimensional isotropic or
 anisotropic elastic, viscoelastic or poroelastic wave equation using
-a finite-difference method with Convolutional or Auxiliary Perfectly Matched Layer
-(C-PML or ADE-PML) conditions, developed by Dimitri Komatitsch and Roland Martin
-from University of Pau, France. </font>
-</p>
-<p style="margin-bottom: 0in;"><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">You
+a finite-difference method with Convolutional or Auxiliary Perfectly
+Matched Layer (C-PML or ADE-PML) conditions, developed by Dimitri
+Komatitsch and Roland Martin from University of Pau, France. </FONT>
+</P>
+<P STYLE="margin-bottom: 0in"><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">You
 can get the full source code of the programs at the official Web
-site: </font></font></font><a href="http://www.geodynamics.org/cig/software"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">http://www.geodynamics.org/cig/software</font></font></a></p>
-<p><font style="font-size: 13pt;" size="3">The unsplit <b>Convolutional
-Perfectly Matched Layer (C-PML) for the 3D elastic wave equation</b>
-was introduced and is described in detail in: </font>
-</p>
-<p><font style="font-size: 13pt;" size="3"><b>Dimitri Komatitsch and
-Roland Martin,</b></font> <font style="font-size: 13pt;" size="3"><span style="font-style: normal;">An
+site: </FONT></FONT></FONT><A HREF="http://www.geodynamics.org/cig/software"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">http://www.geodynamics.org/cig/software</FONT></FONT></A></P>
+<P><FONT SIZE=3 STYLE="font-size: 13pt">The unsplit <B>Convolutional
+Perfectly Matched Layer (C-PML) for the 3D elastic wave equation</B>
+was introduced and is described in detail in: </FONT>
+</P>
+<P><FONT SIZE=3 STYLE="font-size: 13pt"><B>Dimitri Komatitsch and
+Roland Martin,</B></FONT> <FONT SIZE=3 STYLE="font-size: 13pt"><SPAN STYLE="font-style: normal">An
 unsplit convolutional Perfectly Matched Layer improved at grazing
-incidence for the seismic wave equation</span></font><font style="font-size: 13pt;" size="3"><i>,
-Geophysics</i></font><font style="font-size: 13pt;" size="3">, vol.
-72(5), p SM155-SM167, doi: 10.1190/1.2757586 (2007). <a href="http://www.univ-pau.fr/%7Edkomati1/published_papers/geophysics_CPML_2007_elastic_typos_fixed.pdf">PDF
-reprint</a> <a href="http://www.univ-pau.fr/%7Edkomati1/bibtex_komatitsch.bib">BibTeX</a></font></p>
-<p><font style="font-size: 13pt;" size="3">It was originally developed
+incidence for the seismic wave equation</SPAN></FONT><FONT SIZE=3 STYLE="font-size: 13pt"><I>,
+Geophysics</I></FONT><FONT SIZE=3 STYLE="font-size: 13pt">, vol.
+72(5), p SM155-SM167, doi: 10.1190/1.2757586 (2007). <A HREF="http://www.univ-pau.fr/%7Edkomati1/published_papers/geophysics_CPML_2007_elastic_typos_fixed.pdf">PDF
+reprint</A> <A HREF="http://www.univ-pau.fr/%7Edkomati1/bibtex_komatitsch.bib">BibTeX</A></FONT></P>
+<P><FONT SIZE=3 STYLE="font-size: 13pt">It was originally developed
 for Maxwell's equations by Roden and Gedney (2000) (see reference
-below).</font></p>
-<p><font style="font-size: 13pt;" size="3">An extension to viscoelastic
-media is developed in:</font></p>
-<p><span style="text-decoration: none;"><font style="font-size: 13pt;" size="3"><b>Roland
-Martin and Dimitri Komatitsch, </b></font></span><span style="text-decoration: none;"><font style="font-size: 13pt;" size="3"><span style="font-weight: normal;">An
+below).</FONT></P>
+<P><FONT SIZE=3 STYLE="font-size: 13pt">An extension to viscoelastic
+media is developed in:</FONT></P>
+<P><SPAN STYLE="text-decoration: none"><FONT SIZE=3 STYLE="font-size: 13pt"><B>Roland
+Martin and Dimitri Komatitsch, </B></FONT></SPAN><SPAN STYLE="text-decoration: none"><FONT SIZE=3 STYLE="font-size: 13pt"><SPAN STYLE="font-weight: normal">An
 unsplit convolutional perfectly matched layer technique improved at
-grazing incidence for the viscoelastic wave equation, </span></font></span><span style="text-decoration: none;"><font style="font-size: 13pt;" size="3"><i><span style="font-weight: normal;">Geophysical
-Journal International</span></i></font></span><span style="text-decoration: none;"><font style="font-size: 13pt;" size="3"><span style="font-weight: normal;">,
-</span></font></span><span style="text-decoration: none;"><font style="font-size: 13pt;" size="3"><span lang="fr-FR"><span style="font-weight: normal;">vol.
-179(1), p. 333-344, </span></span></font></span><font color="#000000"><span style="text-decoration: none;"><font face="Times New Roman, serif"><font style="font-size: 13pt;" size="3"><span lang="fr-FR"><span style="font-style: normal;"><span style="font-weight: normal;">doi:
-10.1111/j.1365-246X.2009.04278.x </span></span></span></font></font></span></font><span style="text-decoration: none;"><font style="font-size: 13pt;" size="3"><span style="font-weight: normal;">(2009).</span></font></span><font color="#000000"><span style="text-decoration: none;">
-</span></font><font color="#000000"><span style="text-decoration: none;"><font face="Times New Roman, serif"><font style="font-size: 13pt;" size="3"><span lang="fr-FR"><span style="font-weight: normal;"><a href="http://www.univ-pau.fr/%7Edkomati1/published_papers/GJI_CPML_2009_viscoelastic.pdf">PDF
-reprint</a> <a href="http://www.univ-pau.fr/%7Edkomati1/bibtex_komatitsch.bib">BibTeX</a></span></span></font></font></span></font></p>
-<p><font style="font-size: 13pt;" size="3">An extension to poroelastic
-media is developed in:</font></p>
-<p><span style="text-decoration: none;"><font style="font-size: 13pt;" size="3"><b>Roland
-Martin, Dimitri Komatitsch and Abdelaâziz Ezziani</b></font></span><font style="font-size: 13pt;" size="3">,
-</font><font style="font-size: 13pt;" size="3"><span style="font-style: normal;">An
+grazing incidence for the viscoelastic wave equation, </SPAN></FONT></SPAN><SPAN STYLE="text-decoration: none"><FONT SIZE=3 STYLE="font-size: 13pt"><I><SPAN STYLE="font-weight: normal">Geophysical
+Journal International</SPAN></I></FONT></SPAN><SPAN STYLE="text-decoration: none"><FONT SIZE=3 STYLE="font-size: 13pt"><SPAN STYLE="font-weight: normal">,
+</SPAN></FONT></SPAN><SPAN STYLE="text-decoration: none"><FONT SIZE=3 STYLE="font-size: 13pt"><SPAN LANG="fr-FR"><SPAN STYLE="font-weight: normal">vol.
+179(1), p. 333-344, </SPAN></SPAN></FONT></SPAN><FONT COLOR="#000000"><SPAN STYLE="text-decoration: none"><FONT FACE="Times New Roman, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><SPAN LANG="fr-FR"><SPAN STYLE="font-style: normal"><SPAN STYLE="font-weight: normal">doi:
+10.1111/j.1365-246X.2009.04278.x </SPAN></SPAN></SPAN></FONT></FONT></SPAN></FONT><SPAN STYLE="text-decoration: none"><FONT SIZE=3 STYLE="font-size: 13pt"><SPAN STYLE="font-weight: normal">(2009).</SPAN></FONT></SPAN><FONT COLOR="#000000"><SPAN STYLE="text-decoration: none">
+</SPAN></FONT><FONT COLOR="#000000"><SPAN STYLE="text-decoration: none"><FONT FACE="Times New Roman, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><SPAN LANG="fr-FR"><SPAN STYLE="font-weight: normal"><A HREF="http://www.univ-pau.fr/%7Edkomati1/published_papers/GJI_CPML_2009_viscoelastic.pdf">PDF
+reprint</A> <A HREF="http://www.univ-pau.fr/%7Edkomati1/bibtex_komatitsch.bib">BibTeX</A></SPAN></SPAN></FONT></FONT></SPAN></FONT></P>
+<P><FONT SIZE=3 STYLE="font-size: 13pt">An extension to poroelastic
+media is developed in:</FONT></P>
+<P><SPAN STYLE="text-decoration: none"><FONT SIZE=3 STYLE="font-size: 13pt"><B>Roland
+Martin, Dimitri Komatitsch and Abdelaâziz Ezziani</B></FONT></SPAN><FONT SIZE=3 STYLE="font-size: 13pt">,
+</FONT><FONT SIZE=3 STYLE="font-size: 13pt"><SPAN STYLE="font-style: normal">An
 unsplit convolutional Perfectly Matched Layer improved at grazing
-incidence for seismic wave propagation in poroelastic media</span></font><font style="font-size: 13pt;" size="3"><i>,
-Geophysics</i></font><font style="font-size: 13pt;" size="3">, vol.
-73(4), p T51-T61, doi: 10.1190/1.2939484 (2008). <a href="http://www.univ-pau.fr/%7Edkomati1/published_papers/geophysics_CPML_2008_poroelastic_typos_fixed.pdf">PDF
-reprint</a> <a href="http://www.univ-pau.fr/%7Edkomati1/bibtex_komatitsch.bib">BibTeX</a></font></p>
-<p><font style="font-size: 13pt;" size="3">and a variational formulation
-is developed in:</font></p>
-<p><span style="text-decoration: none;"><font style="font-size: 13pt;" size="3"><b>Roland
-Martin, </b></font></span><span style="text-decoration: none;"><font face="Times New Roman, serif"><font style="font-size: 13pt;" size="3"><b>Dimitri
-Komatitsch</b></font></font></span><span style="text-decoration: none;">
-</span><span style="text-decoration: none;"><font style="font-size: 13pt;" size="3"><b>and
-Stephen D. Gedney</b></font></span><font style="font-size: 13pt;" size="3">,
+incidence for seismic wave propagation in poroelastic media</SPAN></FONT><FONT SIZE=3 STYLE="font-size: 13pt"><I>,
+Geophysics</I></FONT><FONT SIZE=3 STYLE="font-size: 13pt">, vol.
+73(4), p T51-T61, doi: 10.1190/1.2939484 (2008). <A HREF="http://www.univ-pau.fr/%7Edkomati1/published_papers/geophysics_CPML_2008_poroelastic_typos_fixed.pdf">PDF
+reprint</A> <A HREF="http://www.univ-pau.fr/%7Edkomati1/bibtex_komatitsch.bib">BibTeX</A></FONT></P>
+<P><FONT SIZE=3 STYLE="font-size: 13pt">and a variational formulation
+is developed in:</FONT></P>
+<P><SPAN STYLE="text-decoration: none"><FONT SIZE=3 STYLE="font-size: 13pt"><B>Roland
+Martin, </B></FONT></SPAN><SPAN STYLE="text-decoration: none"><FONT FACE="Times New Roman, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><B>Dimitri
+Komatitsch</B></FONT></FONT></SPAN><SPAN STYLE="text-decoration: none">
+</SPAN><SPAN STYLE="text-decoration: none"><FONT SIZE=3 STYLE="font-size: 13pt"><B>and
+Stephen D. Gedney</B></FONT></SPAN><FONT SIZE=3 STYLE="font-size: 13pt">,
 A variational formulation of a stabilized unsplit convolutional
 perfectly matched layer for the isotropic or anisotropic seismic wave
-equation, </font><font style="font-size: 13pt;" size="3"><i>Computer
-Modeling in Engineering and Sciences</i></font><font style="font-size: 13pt;" size="3">,
-vol. 37(3), p. 274-304 (2008). </font><font color="#000000"><span style="text-decoration: none;"><font face="Times New Roman, serif"><font style="font-size: 13pt;" size="3"><span style="font-weight: normal;"><a href="http://www.univ-pau.fr/%7Edkomati1/published_papers/CMES_cpml_2008.pdf">PDF
-reprint</a> <a href="http://www.univ-pau.fr/%7Edkomati1/bibtex_komatitsch.bib">BibTeX</a></span></font></font></span></font></p>
-<p><font style="font-size: 13pt;" size="3">An extension to higher-order
+equation, </FONT><FONT SIZE=3 STYLE="font-size: 13pt"><I>Computer
+Modeling in Engineering and Sciences</I></FONT><FONT SIZE=3 STYLE="font-size: 13pt">,
+vol. 37(3), p. 274-304 (2008). </FONT><FONT COLOR="#000000"><SPAN STYLE="text-decoration: none"><FONT FACE="Times New Roman, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><SPAN STYLE="font-weight: normal"><A HREF="http://www.univ-pau.fr/%7Edkomati1/published_papers/CMES_cpml_2008.pdf">PDF
+reprint</A> <A HREF="http://www.univ-pau.fr/%7Edkomati1/bibtex_komatitsch.bib">BibTeX</A></SPAN></FONT></FONT></SPAN></FONT></P>
+<P><FONT SIZE=3 STYLE="font-size: 13pt">An extension to higher-order
 time schemes, called ADE-PML (Auxiliary Differential Equation - PML)
-is developed in:</font></p>
-<p><font color="#000000"><span style="text-decoration: none;"><font face="Times New Roman, serif"><font size="4"><span lang="fr-FR"><b>Roland
-Martin, Dimitri Komatitsch, Stephen D. Gedney and Émilien Bruthiaux</b></span></font></font></span></font><font color="#000000"><span style="text-decoration: none;"><font face="Times New Roman, serif"><font size="4"><span lang="fr-FR"><span style="font-weight: normal;">,
+is developed in:</FONT></P>
+<P><FONT COLOR="#000000"><SPAN STYLE="text-decoration: none"><FONT FACE="Times New Roman, serif"><FONT SIZE=4><SPAN LANG="fr-FR"><B>Roland
+Martin, Dimitri Komatitsch, Stephen D. Gedney and Émilien Bruthiaux</B></SPAN></FONT></FONT></SPAN></FONT><FONT COLOR="#000000"><SPAN STYLE="text-decoration: none"><FONT FACE="Times New Roman, serif"><FONT SIZE=4><SPAN LANG="fr-FR"><SPAN STYLE="font-weight: normal">,
 A high-order time and space formulation of the unsplit perfectly
 matched layer for the seismic wave equation using Auxiliary
-Differential Equations (ADE-PML), </span></span></font></font></span></font><font color="#000000"><span style="text-decoration: none;"><font face="Times New Roman, serif"><font size="4"><span lang="fr-FR"><i><span style="font-weight: normal;">Computer
-Modeling in Engineering and Sciences</span></i></span></font></font></span></font><font color="#000000"><span style="text-decoration: none;"><font face="Times New Roman, serif"><font size="4"><span lang="fr-FR"><span style="font-weight: normal;">,
-vol. 56(1), p. 17-42 (2010).</span></span></font></font></span></font><font style="font-size: 13pt;" size="3">
-<a href="http://www.univ-pau.fr/%7Edkomati1/published_papers/CMES_ADE_PML_2010.pdf">PDF
-reprint</a> <a href="http://www.univ-pau.fr/%7Edkomati1/bibtex_komatitsch.bib">BibTeX</a></font></p>
-<p><font style="font-size: 13pt;" size="3">Note that in the case of an
+Differential Equations (ADE-PML), </SPAN></SPAN></FONT></FONT></SPAN></FONT><FONT COLOR="#000000"><SPAN STYLE="text-decoration: none"><FONT FACE="Times New Roman, serif"><FONT SIZE=4><SPAN LANG="fr-FR"><I><SPAN STYLE="font-weight: normal">Computer
+Modeling in Engineering and Sciences</SPAN></I></SPAN></FONT></FONT></SPAN></FONT><FONT COLOR="#000000"><SPAN STYLE="text-decoration: none"><FONT FACE="Times New Roman, serif"><FONT SIZE=4><SPAN LANG="fr-FR"><SPAN STYLE="font-weight: normal">,
+vol. 56(1), p. 17-42 (2010).</SPAN></SPAN></FONT></FONT></SPAN></FONT>
+<FONT SIZE=3 STYLE="font-size: 13pt"><A HREF="http://www.univ-pau.fr/%7Edkomati1/published_papers/CMES_ADE_PML_2010.pdf">PDF
+reprint</A> <A HREF="http://www.univ-pau.fr/%7Edkomati1/bibtex_komatitsch.bib">BibTeX</A></FONT></P>
+<P><FONT SIZE=3 STYLE="font-size: 13pt">Note that in the case of an
 anisotropic medium the modification made is not strictly speaking
-perfectly matched any more, i.e., not a PML, but rather </font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">a
+perfectly matched any more, i.e., not a PML, but rather </FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">a
 “Modified PML / M-PML” based on Meza-Fajardo and Papageorgiou,
-</font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><i>Bulletin
-of the Seismological Society of America</i></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">,
-vol. 98(4), p. 1811-1836 (2008). H</font></font></font><font style="font-size: 13pt;" size="3">owever,
+</FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><I>Bulletin
+of the Seismological Society of America</I></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">,
+vol. 98(4), p. 1811-1836 (2008). H</FONT></FONT></FONT><FONT SIZE=3 STYLE="font-size: 13pt">owever,
 it works well in practice even if it is not perfectly matched any
-more from a mathematical point of view.</font></p>
-<p><font color="#ff0000"><b><font style="font-size: 13pt;" size="3">IMPORTANT:
+more from a mathematical point of view.</FONT></P>
+<P><FONT COLOR="#ff0000"><FONT SIZE=3 STYLE="font-size: 13pt"><B>IMPORTANT:
 all of our codes are written in Fortran; if you have written or if
 you write a C or C++ version of some of these codes and want to make
 them open source (GNU GPL v2 or CeCILL, as you prefer) and part of
 the package, please do not hesitate to send them to us, we will add
-them to our tar file and will acknowledge you as the author.</font></b></font></p>
-<p><font style="font-size: 13pt;" size="3">This software is governed by
-the <a href="http://www.cecill.info/licences/Licence_CeCILL_V2-en.html">CeCILL
-license (version 2)</a> (a French license very similar to GNU GPL
+them to our tar file and will acknowledge you as the author.</B></FONT></FONT></P>
+<P><FONT SIZE=3 STYLE="font-size: 13pt">This software is governed by
+the <A HREF="http://www.cecill.info/licences/Licence_CeCILL_V2-en.html">CeCILL
+license (version 2)</A> (a French license very similar to GNU GPL
 version 2) under French law and abiding by the rules of distribution
 of free software. You can use, modify and/or redistribute the
 software under the terms of the CeCILL license as circulated by CEA,
-CNRS and INRIA at the following URL "<a href="http://www.cecill.info/index.en.html">http://www.cecill.info</a>".</font></p>
-<p><font style="font-size: 13pt;" size="3">If you use this code for your
-own research, please cite some (or all) of these articles:</font></p>
-<p style="margin-bottom: 0in;"><font face="Courier New, monospace"><font style="font-size: 13pt;" size="3">@ARTICLE{KoMa07,<br>author
-= {Dimitri Komatitsch and Roland Martin},<br>title = {An unsplit
-convolutional {P}erfectly {M}atched {L}ayer improved at grazing
-incidence for the seismic wave equation},<br>journal =
-{Geophysics},<br>year = {2007},<br>volume = {72},<br>number =
-{5},<br>pages = {SM155-SM167},<br>doi =
-{10.1190/1.2757586}}<br><br>@ARTICLE{MaKo09,<br>author = {Roland
-Martin and Dimitri Komatitsch},<br>title = {An unsplit convolutional
-perfectly matched layer technique improved at grazing incidence for
-the viscoelastic wave equation},<br>journal = {Geophysical Journal
-International},<br>year = {2009},<br>volume = {179},<br>number =
-{1},<br>pages = {333-344},<br>doi =
-{10.1111/j.1365-246X.2009.04278.x}}<br><br>@ARTICLE{MaKoEz08,<br>author
+CNRS and INRIA at the following URL &quot;<A HREF="http://www.cecill.info/index.en.html">http://www.cecill.info</A>&quot;.</FONT></P>
+<P><FONT SIZE=3 STYLE="font-size: 13pt">If you use this code for your
+own research, please cite some (or all) of these articles:</FONT></P>
+<P><FONT FACE="Courier New, monospace"><FONT SIZE=3 STYLE="font-size: 13pt">@ARTICLE{MaKo09,<BR>author
+= {Roland Martin and Dimitri Komatitsch},<BR>title = {An unsplit
+convolutional perfectly matched layer technique improved at grazing
+incidence for the viscoelastic wave equation},<BR>journal =
+{Geophysical Journal International},<BR>year = {2009},<BR>volume =
+{179},<BR>number = {1},<BR>pages = {333-344},<BR>doi =
+{10.1111/j.1365-246X.2009.04278.x}}<BR><BR>@ARTICLE{MaKoEz08,<BR>author
 = {Roland Martin and Dimitri Komatitsch and Abdelaaziz
-Ezziani},<br>title = {An unsplit convolutional perfectly matched
+Ezziani},<BR>title = {An unsplit convolutional perfectly matched
 layer improved at grazing incidence for seismic wave equation in
-poroelastic media},<br>journal = {Geophysics},<br>year =
-{2008},<br>volume = {73},<br>pages = {T51-T61},<br>number = {4},<br>doi
-= {10.1190/1.2939484}}<br><br>@ARTICLE{MaKoGe08,<br>author = {Roland
-Martin and Dimitri Komatitsch and Stephen D. Gedney},<br>title = {A
+poroelastic media},<BR>journal = {Geophysics},<BR>year =
+{2008},<BR>volume = {73},<BR>pages = {T51-T61},<BR>number = {4},<BR>doi
+= {10.1190/1.2939484}}<BR><BR>@ARTICLE{MaKoGe08,<BR>author = {Roland
+Martin and Dimitri Komatitsch and Stephen D. Gedney},<BR>title = {A
 variational formulation of a stabilized unsplit convolutional
 perfectly matched layer for the isotropic or anisotropic seismic wave
-equation},<br>journal = {Computer Modeling in Engineering and
-Sciences},<br>year = {2008},<br>volume = {37},<br>pages =
-{274-304},<br>number = {3}}</font></font></p>
-<p style="margin-bottom: 0in;"><font face="Courier New, monospace"><font style="font-size: 13pt;" size="3">@ARTICLE{MaKoGeBr10,<br>
-author = {Roland Martin and Dimitri Komatitsch and Stephen D. Gedney and Emilien Bruthiaux},<br>
-title = {A high-order time and space formulation of the unsplit
-perfectly matched layer for the seismic wave equation using {Auxiliary
-Differential Equations (ADE-PML)}},<br>
-journal = {Computer Modeling in Engineering and Sciences},<br>
-year = {2010},<br>
-volume = {56},<br>
-pages = {17-42},<br>
-number = {1}}</font></font></p>
-<p style="margin-bottom: 0in;"><br>
-</p>
-<font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">Roden
+equation},<BR>journal = {Computer Modeling in Engineering and
+Sciences},<BR>year = {2008},<BR>volume = {37},<BR>pages =
+{274-304},<BR>number = {3}}</FONT></FONT></P>
+<P STYLE="margin-bottom: 0in"><FONT FACE="Courier New, monospace"><FONT SIZE=3 STYLE="font-size: 13pt">@ARTICLE{MaKoGeBr10,<BR>author
+= {Roland Martin and Dimitri Komatitsch and Stephen D. Gedney and
+Emilien Bruthiaux},<BR>title = {A high-order time and space
+formulation of the unsplit perfectly matched layer for the seismic
+wave equation using {Auxiliary Differential Equations
+(ADE-PML)}},<BR>journal = {Computer Modeling in Engineering and
+Sciences},<BR>year = {2010},<BR>volume = {56},<BR>pages =
+{17-42},<BR>number = {1}}</FONT></FONT></P>
+<P STYLE="margin-bottom: 0in"><FONT FACE="Courier New, monospace"><FONT SIZE=3 STYLE="font-size: 13pt">@ARTICLE{KoMa07,<BR>author
+= {Dimitri Komatitsch and Roland Martin},<BR>title = {An unsplit
+convolutional {P}erfectly {M}atched {L}ayer improved at grazing
+incidence for the seismic wave equation},<BR>journal =
+{Geophysics},<BR>year = {2007},<BR>volume = {72},<BR>number =
+{5},<BR>pages = {SM155-SM167},<BR>doi = {10.1190/1.2757586}}</FONT></FONT></P>
+<P STYLE="margin-bottom: 0in"><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">Roden
 and Gedney's original article for Maxwell's equations
-is:</font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 6pt;" size="1"><br><br><br></font></font></font><font face="Courier New, monospace"><font style="font-size: 13pt;" size="3">@ARTICLE{RoGe00,<br>author
-= {J. A. Roden and S. D. Gedney},<br>title = {Convolution {PML}
+is:</FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=1 STYLE="font-size: 6pt"><BR><BR><BR></FONT></FONT></FONT><FONT FACE="Courier New, monospace"><FONT SIZE=3 STYLE="font-size: 13pt">@ARTICLE{RoGe00,<BR>author
+= {J. A. Roden and S. D. Gedney},<BR>title = {Convolution {PML}
 ({CPML}): {A}n Efficient {FDTD} Implementation of the {CFS}-{PML} for
-Arbitrary Media},<br>journal = {Microwave and Optical Technology
-Letters},<br>year = {2000},<br>volume = {27},<br>number = {5},<br>pages
-= {334-339},<br>doi =
-{10.1002/1098-2760(20001205)27:5&lt;334::AID-MOP14&gt;3.0.CO;2-A}}<br></font></font><a href="http://www.geodynamics.org/cig/software"><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 6pt;" size="1"><b><br><br></b></font></font></font></a><font style="font-size: 13pt;" size="3"><span style="font-weight: normal;">The
-package is composed of the following ten programs:</span></font><p></p>
-<p style="margin-bottom: 0in;"><br>
-</p>
-<p><font color="#ff0000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><b>seismic_CPML_2D_isotropic_second_order.f90</b></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">:
+Arbitrary Media},<BR>journal = {Microwave and Optical Technology
+Letters},<BR>year = {2000},<BR>volume = {27},<BR>number = {5},<BR>pages
+= {334-339},<BR>doi =
+{10.1002/1098-2760(20001205)27:5&lt;334::AID-MOP14&gt;3.0.CO;2-A}}<BR></FONT></FONT><A HREF="http://www.geodynamics.org/cig/software"><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=1 STYLE="font-size: 6pt"><B><BR><BR></B></FONT></FONT></FONT></A><FONT SIZE=3 STYLE="font-size: 13pt"><SPAN STYLE="font-weight: normal">The
+package is composed of the following ten programs:</SPAN></FONT></P>
+<P STYLE="margin-bottom: 0in"><BR>
+</P>
+<P><FONT COLOR="#ff0000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><B>seismic_CPML_2D_isotropic_second_order.f90</B></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">:
 2D C-PML program for an isotropic medium using a second-order
-finite-difference spatial operator.</font></font></font></p>
-<p><font color="#ff0000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><b>seismic_CPML_2D_isotropic_fourth_order.f90</b></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">:
+finite-difference spatial operator.</FONT></FONT></FONT></P>
+<P><FONT COLOR="#ff0000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><B>seismic_CPML_2D_isotropic_fourth_order.f90</B></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">:
 2D C-PML program for an isotropic medium using a fourth-order
-finite-difference spatial operator.</font></font></font></p>
-<p><font color="#ff0000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><b>seismic_CPML_2D_anisotropic.f90</b></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">:
+finite-difference spatial operator.</FONT></FONT></FONT></P>
+<P><FONT COLOR="#ff0000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><B>seismic_CPML_2D_anisotropic.f90</B></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">:
 2D C-PML program for an anisotropic medium using a second-order
 finite-difference spatial operator. More precisely we implement a
 “Modified PML / M-PML” based on Meza-Fajardo and Papageorgiou,
-</font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><i>Bulletin
-of the Seismological Society of America</i></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">,
+</FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><I>Bulletin
+of the Seismological Society of America</I></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">,
 vol. 98(4), p. 1811-1836 (2008). Strictly speaking the layers are not
 perfectly matched any more from a mathematical point of view, but the
-code works well in practice.</font></font></font></p>
-<p><font color="#ff0000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><b>seismic_CPML_2D_poroelastic_fourth_order.f90</b></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">:
+code works well in practice.</FONT></FONT></FONT></P>
+<P><FONT COLOR="#ff0000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><B>seismic_CPML_2D_poroelastic_fourth_order.f90</B></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">:
 2D C-PML program for a poroelastic medium using a fourth-order
-finite-difference spatial operator.</font></font></font></p>
-<p><font color="#ff0000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><b>seismic_ADEPML_2D_RK4_eighth_order.f90</b></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">:
+finite-difference spatial operator.</FONT></FONT></FONT></P>
+<P><FONT COLOR="#ff0000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><B>seismic_ADEPML_2D_RK4_eighth_order.f90</B></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">:
 2D ADE-PML program for an isotropic elastic medium using an
 eighth-order finite-difference spatial operator and fourth-order
-Runge-Kutta implicit, semi implicit or explicit time scheme.</font></font></font></p>
-<p><font color="#ff0000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><b>seismic_PML_Collino_2D_isotropic.f90</b></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">:
+Runge-Kutta implicit, semi implicit or explicit time scheme.</FONT></FONT></FONT></P>
+<P><FONT COLOR="#ff0000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><B>seismic_PML_Collino_2D_isotropic.f90</B></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">:
 2D classical split PML program for an isotropic medium using a
-second-order finite-difference spatial operator, for comparison.</font></font></font></p>
-<p><font color="#ff0000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><b>seismic_PML_Collino_2D_anisotropic_fourth.f90</b></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><span style="font-weight: normal;">:
+second-order finite-difference spatial operator, for comparison.</FONT></FONT></FONT></P>
+<P><FONT COLOR="#ff0000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><B>seismic_PML_Collino_2D_anisotropic_fourth.f90</B></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><SPAN STYLE="font-weight: normal">:
 2D classical split PML program for an anisotropic medium using a
-fourth-order finite-difference spatial operator, for comparison.</span></font></font></font></p>
-<p><font color="#ff0000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><b>seismic_CPML_3D_isotropic_MPI_OpenMP.f90</b></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">:
+fourth-order finite-difference spatial operator, for comparison.</SPAN></FONT></FONT></FONT></P>
+<P><FONT COLOR="#ff0000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><B>seismic_CPML_3D_isotropic_MPI_OpenMP.f90</B></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">:
 3D C-PML program for an isotropic medium using a second-order
 finite-difference spatial operator. Parallel implementation based on
-both MPI and OpenMP.</font></font></font></p>
-<p><font color="#ff0000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><b>seismic_PML_Collino_3D_isotropic_OpenMP.f90</b></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">:
+both MPI and OpenMP.</FONT></FONT></FONT></P>
+<P><FONT COLOR="#ff0000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><B>seismic_PML_Collino_3D_isotropic_OpenMP.f90</B></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">:
 3D classical split PML program for an isotropic medium using a
 second-order finite-difference spatial operator, for comparison.
-Parallel implementation based on OpenMP.</font></font></font></p>
-<p><font color="#ff0000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><b>seismic_CPML_3D_viscoelastic_MPI.f90</b></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">:
+Parallel implementation based on OpenMP.</FONT></FONT></FONT></P>
+<P><FONT COLOR="#ff0000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><B>seismic_CPML_3D_viscoelastic_MPI.f90</B></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">:
 3D C-PML program for a viscoelastic medium using a fourth-order
 finite-difference spatial operator. Parallel implementation based on
-MPI.</font></font></font></p>
-<p><font color="#ff0000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3"><b>Makefile</b></font></font></font><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">:
+MPI.</FONT></FONT></FONT></P>
+<P><FONT COLOR="#ff0000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt"><B>Makefile</B></FONT></FONT></FONT><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">:
 a standard Makefile. You can type “make all” to compile all the
-codes.</font></font></font></p>
-<p><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">For
-more details about the classical PML, see for instance <a href="http://en.wikipedia.org/wiki/Perfectly_Matched_Layer">Wikipedia
-about PML</a>.</font></font></font></p>
-<p><font color="#000000"><font face="Liberation Serif, serif"><font style="font-size: 13pt;" size="3">For
+codes.</FONT></FONT></FONT></P>
+<P><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">For
+more details about the classical PML, see for instance <A HREF="http://en.wikipedia.org/wiki/Perfectly_Matched_Layer">Wikipedia
+about PML</A>.</FONT></FONT></FONT></P>
+<P><FONT COLOR="#000000"><FONT FACE="Liberation Serif, serif"><FONT SIZE=3 STYLE="font-size: 13pt">For
 more details about finite differences in the time domain (FDTD), see
-for instance <a href="http://en.wikipedia.org/wiki/Finite-difference_time-domain_method">Wikipedia
-about FDTD</a>.</font></font></font></p>
-<p><a href="http://www.cecill.info/licences/Licence_CeCILL_V2-en.html"><font style="font-size: 13pt;" size="3">Full
-text of the CeCILL licence (version 2)</font></a></p>
-<p><a href="http://www.cecill.info/index.en.html"><font style="font-size: 13pt;" size="3">Official
-web site of the CeCILL licence</font></a></p>
-<p><a href="http://www.univ-pau.fr/%7Edkomati1"><font style="font-size: 13pt;" size="3">Home
-page of Dimitri Komatitsch</font></a></p>
-</body></html>
+for instance <A HREF="http://en.wikipedia.org/wiki/Finite-difference_time-domain_method">Wikipedia
+about FDTD</A>.</FONT></FONT></FONT></P>
+<P><A HREF="http://www.cecill.info/licences/Licence_CeCILL_V2-en.html"><FONT SIZE=3 STYLE="font-size: 13pt">Full
+text of the CeCILL licence (version 2)</FONT></A></P>
+<P><A HREF="http://www.cecill.info/index.en.html"><FONT SIZE=3 STYLE="font-size: 13pt">Official
+web site of the CeCILL licence</FONT></A></P>
+<P><A HREF="http://www.univ-pau.fr/%7Edkomati1"><FONT SIZE=3 STYLE="font-size: 13pt">Home
+page of Dimitri Komatitsch</FONT></A></P>
+</BODY>
+</HTML>

Modified: seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_second_order.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_second_order.f90	2011-05-02 13:38:42 UTC (rev 18306)
+++ seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_second_order.f90	2011-05-02 23:01:27 UTC (rev 18307)
@@ -69,17 +69,6 @@
 ! If you use this code for your own research, please cite some (or all) of these
 ! articles:
 !
-! @ARTICLE{KoMa07,
-! author = {Dimitri Komatitsch and Roland Martin},
-! title = {An unsplit convolutional {P}erfectly {M}atched {L}ayer improved
-!          at grazing incidence for the seismic wave equation},
-! journal = {Geophysics},
-! year = {2007},
-! volume = {72},
-! number = {5},
-! pages = {SM155-SM167},
-! doi = {10.1190/1.2757586}}
-!
 ! @ARTICLE{MaKoEz08,
 ! author = {Roland Martin and Dimitri Komatitsch and Abdela\^aziz Ezziani},
 ! title = {An unsplit convolutional perfectly matched layer improved at grazing
@@ -112,6 +101,17 @@
 ! pages = {274-304},
 ! number = {3}}
 !
+! @ARTICLE{KoMa07,
+! author = {Dimitri Komatitsch and Roland Martin},
+! title = {An unsplit convolutional {P}erfectly {M}atched {L}ayer improved
+!          at grazing incidence for the seismic wave equation},
+! journal = {Geophysics},
+! year = {2007},
+! volume = {72},
+! number = {5},
+! pages = {SM155-SM167},
+! doi = {10.1190/1.2757586}}
+!
 ! The original CPML technique for Maxwell's equations is described in:
 !
 ! @ARTICLE{RoGe00,

More information about the CIG-COMMITS mailing list