aboutsummaryrefslogtreecommitdiff
path: root/CarpetExtra/WaveToyF77/src
diff options
context:
space:
mode:
authoreschnett <>2001-03-07 11:59:00 +0000
committereschnett <>2001-03-07 11:59:00 +0000
commitdb6e33738bc2b4aba5c96178135ba43f70eb29b6 (patch)
tree23bf605dc6853b5fb24e6132671bf4805c639aa2 /CarpetExtra/WaveToyF77/src
parent98649c37a4febe80a52c96009a4f3ff8c2cbcc1f (diff)
Made WaveToyF77 run on multiple processors with CarpetSlab.
darcs-hash:20010307115940-f6438-09debf696b4ec851992f65b9a7dec80942aee76c.gz
Diffstat (limited to 'CarpetExtra/WaveToyF77/src')
-rw-r--r--CarpetExtra/WaveToyF77/src/WaveToy.F776
1 files changed, 3 insertions, 3 deletions
diff --git a/CarpetExtra/WaveToyF77/src/WaveToy.F77 b/CarpetExtra/WaveToyF77/src/WaveToy.F77
index fe40fc5e6..ec10a310c 100644
--- a/CarpetExtra/WaveToyF77/src/WaveToy.F77
+++ b/CarpetExtra/WaveToyF77/src/WaveToy.F77
@@ -39,7 +39,7 @@ c Declare variables in argument list
DECLARE_CCTK_FUNCTIONS
DECLARE_CCTK_PARAMETERS
- INTEGER i,j,k,ierr
+ INTEGER i,j,k
INTEGER istart, jstart, kstart, iend, jend, kend
CCTK_REAL dx,dy,dz,dt
CCTK_REAL dx2,dy2,dz2,dt2
@@ -47,7 +47,7 @@ c Declare variables in argument list
CCTK_REAL factor
- print '("WaveToyF77_Evolution")'
+c call CCTK_INFO ("WaveToyF77_Evolution")
c Set up shorthands
c -----------------
@@ -125,7 +125,7 @@ c Local declarations
integer ierr
integer sw(3)
- print '("WaveToyF77_Boundaries")'
+c call CCTK_INFO ("WaveToyF77_Boundaries")
npow = 1
finf = 1