[cig-commits] r11912 - seismo/3D/SPECFEM3D_GLOBE/trunk
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Sat May 3 10:24:54 PDT 2008
Author: dkomati1
Date: 2008-05-03 10:24:53 -0700 (Sat, 03 May 2008)
New Revision: 11912
Removed:
seismo/3D/SPECFEM3D_GLOBE/trunk/trampoline.f90
Log:
suppressed file that was not used anymore
Deleted: seismo/3D/SPECFEM3D_GLOBE/trunk/trampoline.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/trampoline.f90 2008-05-03 03:46:11 UTC (rev 11911)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/trampoline.f90 2008-05-03 17:24:53 UTC (rev 11912)
@@ -1,39 +0,0 @@
-!=====================================================================
-!
-! S p e c f e m 3 D G l o b e V e r s i o n 4 . 0
-! --------------------------------------------------
-!
-! Main authors: Dimitri Komatitsch and Jeroen Tromp
-! Seismological Laboratory, California Institute of Technology, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) California Institute of Technology and University of Pau / CNRS / INRIA
-! February 2008
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
- program trampoline
-
-! Perform Fortran mojo, and then run the Python script.
-
-! With ifort v9 in particular, this function (i.e., MAIN__) will call
-! the undocumented function __intel_new_proc_init or
-! __intel_new_proc_init_P. Without this, SPECFEM runs several
-! times slower (!).
-
- call FC_PY_MAIN()
-
- end program trampoline
More information about the cig-commits
mailing list