From 2ab6b7dd6ce481c7acbb7bb49e7658c88dbfb795 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@2a26948c-0e4f-0410-aee8-f1d3e353619c>
Date: Mon, 19 Jan 2004 10:57:07 +0000
Subject: 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
---
 src/EHFinder_Init.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3