diff options
author | schnetter <> | 2001-07-09 07:00:00 +0000 |
---|---|---|
committer | schnetter <> | 2001-07-09 07:00:00 +0000 |
commit | 4f9bcd9dfec80121a7d5d2eb32636aadbd5851bd (patch) | |
tree | d0e03dbe5c495cc705b0e961c43fb08f935992f8 /Carpet/CarpetTest/src/carpettest_check_arguments.F77 | |
parent | 7d15598e09630796312a5cdac178eb9658a44dd0 (diff) |
Changed handling of scalars. Scalars are now zero-dimensional arrays.
Changed handling of scalars. Scalars are now zero-dimensional arrays.
Now handling CCTK_GroupDynamicData correctly.
Now using "include header".
Added results of test case.
darcs-hash:20010709070002-07bb3-ba0f4339acb8652e35a884fbdf7e8482b7236f8e.gz
Diffstat (limited to 'Carpet/CarpetTest/src/carpettest_check_arguments.F77')
-rw-r--r-- | Carpet/CarpetTest/src/carpettest_check_arguments.F77 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Carpet/CarpetTest/src/carpettest_check_arguments.F77 b/Carpet/CarpetTest/src/carpettest_check_arguments.F77 index d24f2a391..9a3a08351 100644 --- a/Carpet/CarpetTest/src/carpettest_check_arguments.F77 +++ b/Carpet/CarpetTest/src/carpettest_check_arguments.F77 @@ -1,4 +1,5 @@ -c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_check_arguments.F77,v 1.2 2001/07/04 13:55:25 schnetter Exp $ +c -*-Fortran-*- +c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_check_arguments.F77,v 1.3 2001/07/09 09:00:27 schnetter Exp $ #include "cctk.h" #include "cctk_Arguments.h" @@ -13,6 +14,7 @@ c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_c print *, "arrg3 ", arrg30, arrg31, arrg32 print *, "arrg2 ", arrg20, arrg21 print *, "arrg1 ", arrg10 + print *, "scg" print * do k=1,gfg2 do j=1,gfg1 @@ -36,4 +38,5 @@ c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_c do i=1,arrg10 arr1(i) = i end do + sc = 42 end |