Moved the F90 modules into a new thorn "F90".

Tom


git-svn-id: http://svn.cactuscode.org/flesh/trunk@3566 17b73243-c579-4c4c-a9d2-2d5706c11dac

11 files changed, 1 insertions, 588 deletions

diff --git a/src/include/cctk.F90 b/src/include/cctk.F90
deleted file mode 100644
index f3409498..00000000
--- a/src/include/cctk.F90
+++ /dev/null
@@ -1,24 +0,0 @@
-/*@@
-  @file   $RCSfile$
-  @author $Author$
-  @date   $Date$
-  @desc
-          Fortran 90 interface declarations for the flesh routines
-  @enddesc
-@@*/
-
-! $Header$
-
-#include "cctk.h"
-
-module cctk
-  use cctk_ActiveThorns
-  use cctk_Banner
-  use cctk_Cache
-  use cctk_Comm
-  use cctk_CommandLine
-  use cctk_Complex
-  use cctk_Constants
-  use cctk_Coord
-  implicit none
-end module cctk
diff --git a/src/include/cctk_ActiveThorns.F90 b/src/include/cctk_ActiveThorns.F90
deleted file mode 100644
index 83def3bf..00000000
--- a/src/include/cctk_ActiveThorns.F90
+++ /dev/null
@@ -1,112 +0,0 @@
-/*@@
-  @file   $RCSfile$
-  @author $Author$
-  @date   $Date$
-  @desc
-          Fortran 90 interface declarations for the routines
-          which have their C declarations in cctk_ActiveThorns.h
-  @enddesc
-@@*/
-
-! $Header$
-
-#include "cctk.h"
-
-module cctk_ActiveThorns
-  implicit none
-
-  interface
-
-! This routine has been made a function instead of a subroutine
-! and is declared in cctk.h
-!     subroutine CCTK_IsThornActive (ierr, name)
-!       implicit none
-!       integer      ierr
-!       character(*) name
-!     end subroutine CCTK_IsThornActive
-
-     subroutine CCTK_ThornHandle (handle, name)
-       implicit none
-       CCTK_POINTER_TO_CONST handle
-       character(*) name
-     end subroutine CCTK_ThornHandle
-
-     subroutine CCTK_IsThornActiveH (ierr, handle)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST handle
-     end subroutine CCTK_IsThornActiveH
-
-     subroutine CCTK_IsThornCompiled (ierr, name)
-       implicit none
-       integer      ierr
-       character(*) name
-     end subroutine CCTK_IsThornCompiled
-
-     subroutine CCTK_IsImplementationActive (ierr, name)
-       implicit none
-       integer      ierr
-       character(*) name
-     end subroutine CCTK_IsImplementationActive
-
-     subroutine CCTK_IsImplementationCompiled (ierr, name)
-       implicit none
-       integer      ierr
-       character(*) name
-     end subroutine CCTK_IsImplementationCompiled
-
-     subroutine CCTK_ActivatingThorn (thorn, imp)
-       implicit none
-       character(*) thorn
-       character(*) imp
-     end subroutine CCTK_ActivatingThorn
-
-     subroutine CCTK_ImpThornList (thornlist, imp)
-       implicit none
-       CCTK_POINTER thornlist
-       character(*) imp
-     end subroutine CCTK_ImpThornList
-
-     subroutine CCTK_ThornImplementation (imp, thorn)
-       implicit none
-       character(*) imp
-       character(*) thorn
-     end subroutine CCTK_ThornImplementation
-
-     subroutine CCTK_ImplementationThorn (thorn, imp)
-       implicit none
-       character(*) thorn
-       character(*) imp
-     end subroutine CCTK_ImplementationThorn
-
-     subroutine CCTK_ImplementationRequires (implist, imp)
-       implicit none
-       CCTK_POINTER implist
-       character(*) imp
-     end subroutine CCTK_ImplementationRequires
-
-     subroutine CCTK_NumCompiledThorns (num)
-       implicit none
-       integer num
-     end subroutine CCTK_NumCompiledThorns
-
-     subroutine CCTK_NumCompiledImplementations (num)
-       implicit none
-       integer num
-     end subroutine CCTK_NumCompiledImplementations
-
-     subroutine CCTK_CompiledThorn (thorn_name, thorn_index)
-       implicit none
-       character(*) thorn_name
-       integer      thorn_index
-     end subroutine CCTK_CompiledThorn
-
-     subroutine CCTK_CompiledImplementation (imp_name, imp_index)
-       implicit none
-       character(*) imp_name
-       integer      imp_index
-     end subroutine CCTK_CompiledImplementation
-
-  end interface
-
-end module cctk_ActiveThorns
diff --git a/src/include/cctk_Banner.F90 b/src/include/cctk_Banner.F90
deleted file mode 100644
index d47e6463..00000000
--- a/src/include/cctk_Banner.F90
+++ /dev/null
@@ -1,28 +0,0 @@
-/*@@
-  @file   $RCSfile$
-  @author $Author$
-  @date   $Date$
-  @desc
-          Fortran 90 interface declarations for the routines
-          which have their C declarations in cctk_Banner.h
-  @enddesc
-@@*/
-
-! $Header$
-
-#include "cctk.h"
-
-module cctk_Banner
-  implicit none
-
-  interface
-     
-     subroutine CCTK_RegisterBanner (ierr, banner)
-       implicit none
-       integer      ierr
-       character(*) banner
-     end subroutine CCTK_RegisterBanner
-
-  end interface
-
-end module cctk_Banner
diff --git a/src/include/cctk_Cache.F90 b/src/include/cctk_Cache.F90
deleted file mode 100644
index 0eb511ba..00000000
--- a/src/include/cctk_Cache.F90
+++ /dev/null
@@ -1,30 +0,0 @@
-/*@@
-  @file   $RCSfile$
-  @author $Author$
-  @date   $Date$
-  @desc
-          Fortran 90 interface declarations for the routines
-          which have their C declarations in cctk_Cache.h
-  @enddesc
-@@*/
-
-! $Header$
-
-#include "cctk.h"
-
-module cctk_Cache
-  implicit none
-
-  interface
-
-     subroutine Util_CacheMalloc (pointer, index, size, realstart)
-       implicit none
-       CCTK_POINTER pointer
-       integer      index
-       integer      size
-       CCTK_POINTER realstart
-     end subroutine Util_CacheMalloc
-
-  end interface
-
-end module cctk_Cache
diff --git a/src/include/cctk_Comm.F90 b/src/include/cctk_Comm.F90
deleted file mode 100644
index 678d0259..00000000
--- a/src/include/cctk_Comm.F90
+++ /dev/null
@@ -1,167 +0,0 @@
-/*@@
-  @file   $RCSfile$
-  @author $Author$
-  @date   $Date$
-  @desc
-          Fortran 90 interface declarations for the routines
-          which have their C declarations in cctk_Comm.h
-  @enddesc
-@@*/
-
-! $Header$
-
-#include "cctk.h"
-
-module cctk_Comm
-  implicit none
-
-  interface
-
-     subroutine CCTK_SyncGroup (ierr, GH, group)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-       character(*)          group
-     end subroutine CCTK_SyncGroup
-
-     subroutine CCTK_Barrier (ierr, GH)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-     end subroutine CCTK_Barrier
-
-! This routine has been made a function instead of a subroutine
-! and is declared in cctk.h
-!     subroutine CCTK_MyProc (ierr, GH)
-!       implicit none
-!       integer               ierr
-!       CCTK_POINTER_TO_CONST GH
-!     end subroutine CCTK_MyProc
-
-! This routine has been made a function instead of a subroutine
-! and is declared in cctk.h
-!     subroutine CCTK_nProcs (ierr, GH)
-!       implicit none
-!       integer               ierr
-!       CCTK_POINTER_TO_CONST GH
-!     end subroutine CCTK_nProcs
-
-     subroutine CCTK_ParallelInit (ierr, GH)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-     end subroutine CCTK_ParallelInit
-
-     subroutine CCTK_Exit (ierr, GH, retval)
-       implicit none
-       integer      ierr
-       CCTK_POINTER GH
-       integer      retval
-     end subroutine CCTK_Exit
-
-     subroutine CCTK_Abort (ierr, GH, retval)
-       implicit none
-       integer      ierr
-       CCTK_POINTER GH
-       integer      retval
-     end subroutine CCTK_Abort
-
-     subroutine CCTK_SetupGH (GH, config, convergence_level)
-       implicit none
-       CCTK_POINTER GH
-       CCTK_POINTER config
-       integer      convergence_level
-     end subroutine CCTK_SetupGH
-
-! CCTK_ArrayGroupSizeB is not available from Fortran
-
-     subroutine CCTK_QueryGroupStorageB (ierr, GH, group, groupname)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-       integer               group
-       character(*)          groupname
-     end subroutine CCTK_QueryGroupStorageB
-
-     subroutine CCTK_GroupDynamicData (ierr, GH, group, data)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-       integer               group
-       CCTK_POINTER          data
-     end subroutine CCTK_GroupDynamicData
-
-     subroutine CCTK_GroupStorageIncrease &
-          (ierr, GH, n_groups, groups, timelevels, status)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-       integer               n_groups
-       integer               groups(n_groups)
-       integer               timelevels(n_groups)
-       integer               status(n_groups)
-     end subroutine CCTK_GroupStorageIncrease
-
-     subroutine CCTK_GroupStorageDecrease &
-          (ierr, GH, n_groups, groups, timelevels, status)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-       integer               n_groups
-       integer               groups(n_groups)
-       integer               timelevels(n_groups)
-       integer               status(n_groups)
-     end subroutine CCTK_GroupStorageDecrease
-
-     subroutine CCTK_InterpGridArrays           &
-          (ierr,                                &
-           GH,                                  &
-           N_dims,                              &
-           local_interp_handle,                 &
-           param_table_handle,                  &
-           coord_system_handle,                 &
-           N_interp_points,                     &
-             interp_coords_type,                &
-             interp_coords,                     &
-           N_input_arrays,                      &
-             input_array_indices,               &
-           N_output_arrays,                     &
-             output_array_types,                &
-             output_arrays)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-       integer               N_dims
-       integer               local_interp_handle
-       integer               param_table_handle
-       integer               coord_system_handle
-       integer               N_interp_points
-       integer                 interp_coords_type
-       CCTK_POINTER_TO_CONST   interp_coords(N_dims)
-       integer               N_input_arrays
-       CCTK_INT                input_array_indices(N_input_arrays)
-       integer               N_output_arrays
-       CCTK_INT                output_array_types(N_output_arrays)
-       CCTK_POINTER            output_arrays(N_output_arrays)
-     end subroutine CCTK_InterpGridArrays
-
-     subroutine CCTK_QueryGroupStorage (ierr, GH, groupname)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-       character(*)          groupname
-     end subroutine CCTK_QueryGroupStorage
-
-     subroutine CCTK_QueryGroupStorageI (ierr, GH, group)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-       integer               group
-     end subroutine CCTK_QueryGroupStorageI
-
-! CCTK_ArrayGroupSize is not available from Fortran
-! CCTK_ArrayGroupSizeI is not available from Fortran
-
-  end interface
-
-end module cctk_Comm
diff --git a/src/include/cctk_CommandLine.F90 b/src/include/cctk_CommandLine.F90
deleted file mode 100644
index 1fc65b0a..00000000
--- a/src/include/cctk_CommandLine.F90
+++ /dev/null
@@ -1,30 +0,0 @@
-! $Header$
-
-! Fortran 90 interface declarations for the routines
-! which have their C declarations in cctk_CommandLine.h
-
-#include "cctk.h"
-
-module cctk_CommandLine
-  implicit none
-
-  interface
-
-! This subroutine has been renamed
-! because it conflicts with the name of this module
-     subroutine CCTK_GetCommandLine (argc, outargv)
-       implicit none
-       integer      argc
-       CCTK_POINTER outargv
-     end subroutine CCTK_GetCommandLine
-
-     subroutine CCTK_ParameterFileName (ierr, filename, filenamelen)
-       implicit none
-       integer      ierr
-       character(*) filename
-       integer      filenamelen
-     end subroutine CCTK_ParameterFileName
-
-  end interface
-
-end module cctk_CommandLine
diff --git a/src/include/cctk_Complex.F90 b/src/include/cctk_Complex.F90
deleted file mode 100644
index 710347f6..00000000
--- a/src/include/cctk_Complex.F90
+++ /dev/null
@@ -1,14 +0,0 @@
-! $Header$
-
-! Fortran 90 interface declarations for the routines
-! which have their C declarations in cctk_Complex.h
-
-#include "cctk.h"
-
-module cctk_Complex
-  implicit none
-
-! Fortran handles complex numbers just fine all by itself
-! and does not need an additional library
-
-end module cctk_Complex
diff --git a/src/include/cctk_Constants.F90 b/src/include/cctk_Constants.F90
deleted file mode 100644
index 20025dca..00000000
--- a/src/include/cctk_Constants.F90
+++ /dev/null
@@ -1,13 +0,0 @@
-! $Header$
-
-! Fortran 90 interface declarations for the routines
-! which have their C declarations in cctk_Constants.h
-
-#include "cctk.h"
-
-module cctk_Constants
-  implicit none
-
-! This file declares no routines
-
-end module cctk_Constants
diff --git a/src/include/cctk_Coord.F90 b/src/include/cctk_Coord.F90
deleted file mode 100644
index f3568bc3..00000000
--- a/src/include/cctk_Coord.F90
+++ /dev/null
@@ -1,149 +0,0 @@
-! $Header$
-
-! Fortran 90 interface declarations for the routines
-! which have their C declarations in cctk_Coord.h
-
-#include "cctk.h"
-
-module cctk_Coord
-  implicit none
-
-  interface
-
-     subroutine CCTK_CoordDir (dir, name, systemname)
-       implicit none
-       integer      dir
-       character(*) name
-       character(*) systemname
-     end subroutine CCTK_CoordDir
-
-     subroutine CCTK_CoordIndex (ierr, dir, name, systemname)
-       implicit none
-       integer      ierr
-       integer      dir
-       character(*) name
-       character(*) systemname
-     end subroutine CCTK_CoordIndex
-
-     subroutine CCTK_CoordName (name, namelen, dir, systemname)
-       implicit none
-       character(*) name
-       integer      namelen
-       integer      dir
-       character(*) systemname
-     end subroutine CCTK_CoordName
-
-     subroutine CCTK_CoordRange &
-          (GH, coord_lower, coord_upper, coord_dir, coord_name, system_name)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-       CCTK_REAL             coord_lower
-       CCTK_REAL             coord_upper
-       integer               coord_dir
-       character(*)          coord_name
-       character(*)          system_name
-     end subroutine CCTK_CoordRange
-
-     subroutine CCTK_CoordRangePhysIndex &
-          (ierr, GH, lower, upper, coorddir, coordname, systemname)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-       integer               lower
-       integer               upper
-       integer               coorddir
-       character(*)          coordname
-       character(*)          systemname
-     end subroutine CCTK_CoordRangePhysIndex
-
-     subroutine CCTK_CoordRegisterData (ierr, dir, gv, name, systemname)
-       implicit none
-       integer      ierr
-       integer      dir
-       character(*) gv
-       character(*) name
-       character(*) systemname
-     end subroutine CCTK_CoordRegisterData
-
-     subroutine CCTKi_CoordRegisterSystem &
-          (ierr, dim, implementation, systemname)
-       implicit none
-       integer      ierr
-       integer      dim
-       character(*) implementation
-       character(*) systemname
-     end subroutine CCTKi_CoordRegisterSystem
-
-     subroutine CCTK_CoordSystemDim (dim, systemname)
-       implicit none
-       integer      dim
-       character(*) systemname
-     end subroutine CCTK_CoordSystemDim
-
-     subroutine CCTK_CoordSystemHandle (handle, systemname)
-       implicit none
-       integer      handle
-       character(*) systemname
-     end subroutine CCTK_CoordSystemHandle
-
-     subroutine CCTK_CoordSystemName (name, namelen, handle)
-       implicit none
-       character(*) name
-       integer      namelen
-       integer      handle
-     end subroutine CCTK_CoordSystemName
-
-     subroutine CCTK_CoordLocalRange &
-          (GH, lower, upper, coord_dir, coord_name, system_name)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-       CCTK_REAL             lower
-       CCTK_REAL             upper
-       integer               coord_dir
-       character(*)          coord_name
-       character(*)          system_name
-     end subroutine CCTK_CoordLocalRange
-
-     subroutine CCTK_CoordRegisterRange &
-          (GH, coord_min, coord_max, coord_dir, coord_name, system_name)
-       implicit none
-       integer               ierr
-       CCTK_POINTER_TO_CONST GH
-       CCTK_REAL             coord_min
-       CCTK_REAL             coord_max
-       integer               coord_dir
-       character(*)          coord_name
-       character(*)          system_name
-     end subroutine CCTK_CoordRegisterRange
-
-! This routine is commented out because its name is too long.
-! Therefore, it cannot be called from Fortran anyway.
-!     subroutine CCTK_CoordRegisterRangePhysIndex &
-!          (ierr, GH, coord_min, coord_max, coord_dir, coord_name, system_name)
-!       implicit none
-!       integer               ierr
-!       CCTK_POINTER_TO_CONST GH
-!       integer               coord_min
-!       integer               coord_max
-!       integer               coord_dir
-!       character(*)          coord_name
-!       character(*)          system_name
-!     end subroutine CCTK_CoordRegisterRangePhysIndex
-
-     subroutine CCTK_NumCoordSystems (num)
-       implicit none
-       integer num
-     end subroutine CCTK_NumCoordSystems
-
-     subroutine CCTK_CoordSystemImplementation (imp, implen, handle)
-       implicit none
-       character(*) imp
-       integer      implen
-       integer      handle
-     end subroutine CCTK_CoordSystemImplementation
-
-  end interface
-
-end module cctk_Coord
diff --git a/src/include/make.code.defn b/src/include/make.code.defn
deleted file mode 100644
index fdb9a356..00000000
--- a/src/include/make.code.defn
+++ /dev/null
@@ -1,20 +0,0 @@
-# Source file for the src/include directory.
-#
-# $Header$
-
-ifneq ($(strip $(F90)),none)
-
-SRCS=\
-cctk.F90\
-cctk_ActiveThorns.F90\
-cctk_Banner.F90\
-cctk_Cache.F90\
-cctk_Comm.F90\
-cctk_CommandLine.F90\
-cctk_Complex.F90\
-cctk_Constants.F90\
-cctk_Coord.F90
-
-else
-SRCS=
-endif
diff --git a/src/make.code.defn b/src/make.code.defn
index aea5b22f..f11a81f4 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -1,3 +1,3 @@
 # $Header$
 SRCS =
-SUBDIRS = IO comm util main schedule gnu include
+SUBDIRS = IO comm util main schedule gnu