Broke the file "carpet.cc" into several files.

Broke the file "carpet.cc" into several files.
Simplified support for arrays with a dimension different from 3.
Added a testing thorn.

darcs-hash:20010704102946-07bb3-82132f0c643e91f0de33bbaef93f9c693ce7227f.gz

1 files changed, 5 insertions, 33 deletions

diff --git a/Carpet/CarpetTest/src/carpettest_check_arguments.F77 b/Carpet/CarpetTest/src/carpettest_check_arguments.F77
index 297e38977..7c4fab201 100644
--- a/Carpet/CarpetTest/src/carpettest_check_arguments.F77
+++ b/Carpet/CarpetTest/src/carpettest_check_arguments.F77
@@ -1,44 +1,16 @@
-c     -*-Fortran-*-
-c     $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_check_arguments.F77,v 1.5 2004/01/25 14:57:31 schnetter Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_check_arguments.F77,v 1.1 2001/07/04 12:29:54 schnetter Exp $
 
 #include "cctk.h"
 #include "cctk_Arguments.h"
-#include "cctk_Functions.h"
 #include "cctk_Parameters.h"
       
       subroutine carpettest_check_arguments (CCTK_ARGUMENTS)
       implicit none
       DECLARE_CCTK_ARGUMENTS
-      DECLARE_CCTK_FUNCTIONS
       DECLARE_CCTK_PARAMETERS
-      integer i,j,k
-      print *, "Xgfg ", Xgfg0, Xgfg1, Xgfg2
-      print *, "Xarrg3 ", Xarrg30, Xarrg31, Xarrg32
-      print *, "Xarrg2 ", Xarrg20, Xarrg21
-      print *, "Xarrg1 ", Xarrg10
-      print *, "Xscg"
+      print *, "gfg ", gfg0, gfg1, gfg2
+      print *, "arrg3 ", arrg30, arrg31, arrg32
+      print *, "arrg2 ", arrg20, arrg21
+      print *, "arrg1 ", arrg10
       print *
-      do k=1,Xgfg2
-         do j=1,Xgfg1
-            do i=1,Xgfg0
-               gf(i,j,k) = i*10000 + j*100 + k
-            end do
-         end do
-      end do
-      do k=1,Xarrg32
-         do j=1,Xarrg31
-            do i=1,Xarrg30
-               arr3(i,j,k) = i*10000 + j*100 + k
-            end do
-         end do
-      end do
-      do j=1,Xarrg21
-         do i=1,Xarrg20
-            arr2(i,j) = i*100 + j
-         end do
-      end do
-      do i=1,Xarrg10
-         arr1(i) = i
-      end do
-      sc = 42
       end