[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