diff options
| author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2007-05-10 22:43:21 +0000 |
|---|---|---|
| committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2007-05-10 22:43:21 +0000 |
| commit | 3de444722c79a9bcdc39ea9ec733d3a21b974f87 (patch) | |
| tree | ca8b3da21f9c6a129ea8bf3c0825e4a53a187db5 | |
| parent | a9b098dab8e0e8fdf596a539b867fd1ffebdbeba (diff) | |
Remove CVS $Header$ comments
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@36 51d2df92-0e4f-0410-a727-bd43d766d6b6
46 files changed, 3 insertions, 428 deletions
@@ -1,5 +1,3 @@ -CVS info : $Header$ - Cactus Code Thorn Fortran Thorn Author(s) : Erik Schnetter <schnetter@aei.mpg.de> Thorn Maintainer(s) : Erik Schnetter <schnetter@aei.mpg.de> diff --git a/configuration.ccl b/configuration.ccl index bde52b6..19ea7a7 100644 --- a/configuration.ccl +++ b/configuration.ccl @@ -1,5 +1,4 @@ # Configuration definition for thorn Fortran -# $Header$ PROVIDES Fortran { @@ -1,5 +1,4 @@ #! /bin/sh -# $Header$ # Try to use ## for token concatenation. # If this works, we likely have an ANSI cpp. diff --git a/interface.ccl b/interface.ccl index c4dde52..c33b729 100644 --- a/interface.ccl +++ b/interface.ccl @@ -1,5 +1,4 @@ # Interface definition for thorn Fortran -# $Header$ IMPLEMENTS: Fortran @@ -1,2 +1 @@ # Parameter definitions for thorn Fortran -# $Header$ diff --git a/schedule.ccl b/schedule.ccl index 1bf8e56..fb282a2 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -1,2 +1 @@ # Schedule definitions for thorn Fortran -# $Header$ diff --git a/src/cctk.F90 b/src/cctk.F90 index 37bf6a9..09cb4ca 100644 --- a/src/cctk.F90 +++ b/src/cctk.F90 @@ -1,13 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the flesh routines - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk diff --git a/src/cctk_ActiveThorns.F90 b/src/cctk_ActiveThorns.F90 index e7e3994..c50fb3e 100644 --- a/src/cctk_ActiveThorns.F90 +++ b/src/cctk_ActiveThorns.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_ActiveThorns.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_ActiveThorns diff --git a/src/cctk_Banner.F90 b/src/cctk_Banner.F90 index 53046c8..aba4de1 100644 --- a/src/cctk_Banner.F90 +++ b/src/cctk_Banner.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Banner.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Banner diff --git a/src/cctk_Cache.F90 b/src/cctk_Cache.F90 index 388e4a5..25a8bbb 100644 --- a/src/cctk_Cache.F90 +++ b/src/cctk_Cache.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Cache.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Cache diff --git a/src/cctk_Comm.F90 b/src/cctk_Comm.F90 index 800155f..ba5236b 100644 --- a/src/cctk_Comm.F90 +++ b/src/cctk_Comm.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Comm.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Comm diff --git a/src/cctk_CommandLine.F90 b/src/cctk_CommandLine.F90 index 7ca632d..7f53338 100644 --- a/src/cctk_CommandLine.F90 +++ b/src/cctk_CommandLine.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_CommandLine.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_CommandLine diff --git a/src/cctk_Complex.F90 b/src/cctk_Complex.F90 index 0db725c..dbf3167 100644 --- a/src/cctk_Complex.F90 +++ b/src/cctk_Complex.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Complex.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Complex diff --git a/src/cctk_Constants.F90 b/src/cctk_Constants.F90 index 3c18638..f13a5a7 100644 --- a/src/cctk_Constants.F90 +++ b/src/cctk_Constants.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Constants.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Constants diff --git a/src/cctk_Coord.F90 b/src/cctk_Coord.F90 index 6075bca..a045e1d 100644 --- a/src/cctk_Coord.F90 +++ b/src/cctk_Coord.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Coord.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Coord diff --git a/src/cctk_DebugDefines.F90 b/src/cctk_DebugDefines.F90 index 87f0891..99a43aa 100644 --- a/src/cctk_DebugDefines.F90 +++ b/src/cctk_DebugDefines.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_DebugDefines.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_DebugDefines diff --git a/src/cctk_Faces.F90 b/src/cctk_Faces.F90 index cdd475d..470c060 100644 --- a/src/cctk_Faces.F90 +++ b/src/cctk_Faces.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Faces.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Faces diff --git a/src/cctk_File.F90 b/src/cctk_File.F90 index c3335ac..2a129ed 100644 --- a/src/cctk_File.F90 +++ b/src/cctk_File.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_File.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_File diff --git a/src/cctk_Flesh.F90 b/src/cctk_Flesh.F90 index 9104941..42afe98 100644 --- a/src/cctk_Flesh.F90 +++ b/src/cctk_Flesh.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Flesh.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Flesh diff --git a/src/cctk_FortranString1.F90 b/src/cctk_FortranString1.F90 index 39b3e13..001d0e3 100644 --- a/src/cctk_FortranString1.F90 +++ b/src/cctk_FortranString1.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_FortranString.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" ! This is the name of a subroutine, so the module must be called differently. diff --git a/src/cctk_FortranWrappers.F90 b/src/cctk_FortranWrappers.F90 index ac69c26..e48b364 100644 --- a/src/cctk_FortranWrappers.F90 +++ b/src/cctk_FortranWrappers.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_FortranWrappers.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_FortranWrappers diff --git a/src/cctk_GHExtensions.F90 b/src/cctk_GHExtensions.F90 index 8967420..51ecde5 100644 --- a/src/cctk_GHExtensions.F90 +++ b/src/cctk_GHExtensions.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_GHExtensions.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_GHExtensions diff --git a/src/cctk_GNU.F90 b/src/cctk_GNU.F90 index 4364176..ece5a91 100644 --- a/src/cctk_GNU.F90 +++ b/src/cctk_GNU.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_GNU.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_GNU diff --git a/src/cctk_Groups.F90 b/src/cctk_Groups.F90 index 888b2e8..d058011 100644 --- a/src/cctk_Groups.F90 +++ b/src/cctk_Groups.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Groups.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Groups diff --git a/src/cctk_GroupsOnGH.F90 b/src/cctk_GroupsOnGH.F90 index 8dc2019..a226961 100644 --- a/src/cctk_GroupsOnGH.F90 +++ b/src/cctk_GroupsOnGH.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_GroupsOnGH.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_GroupsOnGH diff --git a/src/cctk_IO.F90 b/src/cctk_IO.F90 index c90d358..e6bd7a8 100644 --- a/src/cctk_IO.F90 +++ b/src/cctk_IO.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_IO.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_IO diff --git a/src/cctk_IOMethods.F90 b/src/cctk_IOMethods.F90 index 017bbd1..3054fa9 100644 --- a/src/cctk_IOMethods.F90 +++ b/src/cctk_IOMethods.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_IOMethods.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_IOMethods diff --git a/src/cctk_Interp.F90 b/src/cctk_Interp.F90 index a9d3086..153273c 100644 --- a/src/cctk_Interp.F90 +++ b/src/cctk_Interp.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Interp.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Interp diff --git a/src/cctk_Main.F90 b/src/cctk_Main.F90 index 5f4a528..3ad56c6 100644 --- a/src/cctk_Main.F90 +++ b/src/cctk_Main.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Main.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Main diff --git a/src/cctk_Malloc1.F90 b/src/cctk_Malloc1.F90 index 002668f..ac08571 100644 --- a/src/cctk_Malloc1.F90 +++ b/src/cctk_Malloc1.F90 @@ -1,16 +1,6 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Malloc.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" +! This is the name of a subroutine, so the module must be called differently. module cctk_Malloc1 implicit none diff --git a/src/cctk_MemAlloc.F90 b/src/cctk_MemAlloc.F90 index e0a1c79..927be79 100644 --- a/src/cctk_MemAlloc.F90 +++ b/src/cctk_MemAlloc.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_MemAlloc.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_MemAlloc diff --git a/src/cctk_Misc.F90 b/src/cctk_Misc.F90 index be99736..95728df 100644 --- a/src/cctk_Misc.F90 +++ b/src/cctk_Misc.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Misc.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Misc diff --git a/src/cctk_ParamCheck.F90 b/src/cctk_ParamCheck.F90 index 98f4f8e..e129307 100644 --- a/src/cctk_ParamCheck.F90 +++ b/src/cctk_ParamCheck.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_ParamCheck.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_ParamCheck diff --git a/src/cctk_Parameter.F90 b/src/cctk_Parameter.F90 index 9208b09..ea9437d 100644 --- a/src/cctk_Parameter.F90 +++ b/src/cctk_Parameter.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Parameter.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Parameter diff --git a/src/cctk_Reduction.F90 b/src/cctk_Reduction.F90 index b56a91d..42c1722 100644 --- a/src/cctk_Reduction.F90 +++ b/src/cctk_Reduction.F90 @@ -1,21 +1,10 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Reduction.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Reduction implicit none interface - + subroutine CCTK_ReductionHandle (ierr, reduction) implicit none integer ierr @@ -225,6 +214,7 @@ module cctk_Reduction end interface external CCTK_Reduce + external CCTK_Reduce1 external CCTK_ReduceLocalScalar external CCTK_ReduceLocalArray1D external CCTK_ReduceLocScalar diff --git a/src/cctk_Schedule.F90 b/src/cctk_Schedule.F90 index 67d12fb..f2d3fc4 100644 --- a/src/cctk_Schedule.F90 +++ b/src/cctk_Schedule.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Schedule.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Schedule diff --git a/src/cctk_Stagger.F90 b/src/cctk_Stagger.F90 index 226e719..c0f7d81 100644 --- a/src/cctk_Stagger.F90 +++ b/src/cctk_Stagger.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Stagger.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Stagger diff --git a/src/cctk_Sync.F90 b/src/cctk_Sync.F90 index d4ed01c..95e3acf 100644 --- a/src/cctk_Sync.F90 +++ b/src/cctk_Sync.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Sync.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Sync diff --git a/src/cctk_Termination.F90 b/src/cctk_Termination.F90 index d4c672d..980a6a7 100644 --- a/src/cctk_Termination.F90 +++ b/src/cctk_Termination.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Termination.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Termination diff --git a/src/cctk_Timers.F90 b/src/cctk_Timers.F90 index 9e52cf1..d4375eb 100644 --- a/src/cctk_Timers.F90 +++ b/src/cctk_Timers.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Timers.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Timers diff --git a/src/cctk_Types.F90 b/src/cctk_Types.F90 index 57aa5e4..35f6ab9 100644 --- a/src/cctk_Types.F90 +++ b/src/cctk_Types.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Types.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Types diff --git a/src/cctk_Version.F90 b/src/cctk_Version.F90 index 0bf7b74..4f2befc 100644 --- a/src/cctk_Version.F90 +++ b/src/cctk_Version.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Version.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_Version diff --git a/src/cctk_WarnLevel.F90 b/src/cctk_WarnLevel.F90 index 623224c..58dd515 100644 --- a/src/cctk_WarnLevel.F90 +++ b/src/cctk_WarnLevel.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_WarnLevel.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module cctk_WarnLevel diff --git a/src/fortran.h b/src/fortran.h index 65442c8..0964021 100644 --- a/src/fortran.h +++ b/src/fortran.h @@ -1,5 +1,3 @@ -/* $Header$ */ - #ifndef FORTRAN_H #define FORTRAN_H diff --git a/src/make.code.defn b/src/make.code.defn index bc342c0..d9c9c05 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -1,5 +1,4 @@ # Main make.code.defn file for thorn Fortran -# $Header$ ifneq ($(strip $(F90)),none) diff --git a/src/util_Table.F90 b/src/util_Table.F90 index c257b8a..83d9f43 100644 --- a/src/util_Table.F90 +++ b/src/util_Table.F90 @@ -1,14 +1,3 @@ -/*@@ - @file $RCSfile$ - @author $Author$ - @date $Date$ - @desc - Fortran 90 interface declarations for the routines - which have their C declarations in cctk_Comm.h - @enddesc - @version $Header$ -@@*/ - #include "cctk.h" module util_Table |