diff options
author | schnetter <schnetter@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2004-01-19 10:57:07 +0000 |
---|---|---|
committer | schnetter <schnetter@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2004-01-19 10:57:07 +0000 |
commit | 2ab6b7dd6ce481c7acbb7bb49e7658c88dbfb795 (patch) | |
tree | 4460a10255f57b31d0ad61ffe3a96fb6946d27fa | |
parent | d167ef6562197fd16fd7438dd9e3b93cdf0d07ed (diff) |
initial_f is an array, not a scalar
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@163 2a26948c-0e4f-0410-aee8-f1d3e353619c
-rw-r--r-- | src/EHFinder_Init.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/EHFinder_Init.F90 b/src/EHFinder_Init.F90 index 9238b99..2375492 100644 --- a/src/EHFinder_Init.F90 +++ b/src/EHFinder_Init.F90 @@ -166,7 +166,7 @@ subroutine EHFinder_Init_F(CCTK_ARGUMENTS) end if ! if an ovaloid of Cassini is requested... - if ( CCTK_EQUALS( initial_f, 'cassini' ) ) then + if ( CCTK_EQUALS( initial_f(l), 'cassini' ) ) then f(:,:,:,l) = (x**2+y**2+z**2)**2 + cas_a(l)**4 - & 2*cas_a(l)**2*(x**2 - (y**2+z**2)) - cas_b(l)**4 end if |