diff options
-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 |