diff options
Diffstat (limited to 'CarpetExtra/FOWaveToyF77/src/InitSymBound.F77')
-rw-r--r-- | CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 b/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 index db3659ce7..875d5f06c 100644 --- a/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 +++ b/CarpetExtra/FOWaveToyF77/src/InitSymBound.F77 @@ -35,14 +35,20 @@ c -*-Fortran-*- DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS DECLARE_CCTK_PARAMETERS - - integer ierr - - call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::pi', 'SCALAR') - call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::phix' // - & ' wavetoy::phiy wavetoy::phiz', 'VECTOR') - & - call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::phi', 'SCALAR') - call Cart3dSetTensorTypeVN (ierr, cctkGH, 'wavetoy::resid', 'SCALAR') + + INTEGER one + PARAMETER (one = 1) + INTEGER ierr + INTEGER sym(3) + + sym(1) = one + sym(2) = one + sym(3) = one + + call SetCartSymVN(ierr, cctkGH, sym,'wavetoy::pi') + call SetCartSymVN(ierr, cctkGH, sym,'wavetoy::phi') + call SetCartSymVN(ierr, cctkGH, sym,'wavetoy::phix') + call SetCartSymVN(ierr, cctkGH, sym,'wavetoy::phiy') + call SetCartSymVN(ierr, cctkGH, sym,'wavetoy::phiz') end |