diff options
author | eschnett <> | 2001-03-07 11:59:00 +0000 |
---|---|---|
committer | eschnett <> | 2001-03-07 11:59:00 +0000 |
commit | db6e33738bc2b4aba5c96178135ba43f70eb29b6 (patch) | |
tree | 23bf605dc6853b5fb24e6132671bf4805c639aa2 /CarpetExtra/WaveToyF77/src | |
parent | 98649c37a4febe80a52c96009a4f3ff8c2cbcc1f (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.F77 | 6 |
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 |