This commit was generated by cvs2svn to compensate for changes in r2, which

included commits to RCS files with non-trunk default branches.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Time/trunk@3 5633253d-7678-4964-a54d-f87795f8ee59

2 files changed, 64 insertions, 0 deletions

diff --git a/src/Simple.c b/src/Simple.c
new file mode 100644
index 0000000..9111c73
--- /dev/null
+++ b/src/Simple.c
@@ -0,0 +1,55 @@
+ /*@@
+   @file      Simple.c
+   @date      September 4 1999
+   @author    Gabrielle Allen
+   @desc 
+   Standard specification of timestep
+   @enddesc 
+ @@*/
+
+#include "cctk.h"
+#include "cctk_arguments.h"
+#include "cctk_parameters.h"
+
+
+void Time_Simple(CCTK_CARGUMENTS)
+{
+  DECLARE_CCTK_PARAMETERS
+  DECLARE_CCTK_CARGUMENTS
+
+  CCTK_REAL min_spacing;
+  char *message;
+
+  if (cctk_dim>=1)
+  {
+    min_spacing = cctk_delta_space[0];
+  }
+
+  if (cctk_dim>=2)
+  {
+    min_spacing = (min_spacing<cctk_delta_space[1] ?
+	min_spacing : cctk_delta_space[1]);
+  }
+  
+  if (cctk_dim>=3)
+  {
+    min_spacing = (min_spacing<cctk_delta_space[2] ?
+	min_spacing : cctk_delta_space[2]);
+  }
+
+  if (cctk_dim>=4)
+  {
+    CCTK_WARN(0,"Time Step now defined for greater than 4 dimensions");
+  }
+
+  cctkGH->cctk_delta_time = dtfac*min_spacing;
+  
+  message = (char *)malloc(1024*sizeof(char));
+  sprintf(message,"Time step set to %f",cctkGH->cctk_delta_time);
+  CCTK_INFO(message);
+  free(message);
+
+}
+
+
+
diff --git a/src/make.code.defn b/src/make.code.defn
new file mode 100644
index 0000000..8ebd1fb
--- /dev/null
+++ b/src/make.code.defn
@@ -0,0 +1,9 @@
+# Main make.code.defn file for thorn Time
+# $Header$
+
+# Source files in this directory
+SRCS = Simple.c 
+
+# Subdirectories containing source files
+SUBDIRS = 
+