From 2ce532170e1ee3fdffda2e30ff109330ed29abe5 Mon Sep 17 00:00:00 2001 From: knarf Date: Sun, 14 Nov 2010 05:04:22 +0000 Subject: correct compile error git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/EOS_Omni@18 8e189c6b-2ab8-4400-aa02-70a9cfce18b9 --- src/nuc_eos/bisection.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/nuc_eos/bisection.F90 b/src/nuc_eos/bisection.F90 index b8edec2..f12b702 100644 --- a/src/nuc_eos/bisection.F90 +++ b/src/nuc_eos/bisection.F90 @@ -19,7 +19,7 @@ subroutine bisection(lr,lt0,y,eps0,lt,bivar,keyerrt,keybisect) integer bcount,i,itmax,maxbcount - real*8 bivar + real*8 bivar(*) bcount = 0 maxbcount = 80 -- cgit v1.2.3