From e89c9e589a91b4ea21811434dc1bd2f9379c750e Mon Sep 17 00:00:00 2001 From: knarf Date: Mon, 6 Dec 2010 19:47:12 +0000 Subject: fix compilation bug git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/trunk@30 8e189c6b-2ab8-4400-aa02-70a9cfce18b9 --- src/nuc_eos/bisection.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/nuc_eos/bisection.F90 b/src/nuc_eos/bisection.F90 index fb0eb43..2ba35f1 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 @@ -101,7 +101,7 @@ subroutine bisection_rho(lr0,lt,y,lpressin,lr,bivar,keyerrr,keybisect) integer bcount,i,itmax,maxbcount - real*8 bivar + real*8 bivar(*) bcount = 0 maxbcount = 80 -- cgit v1.2.3