diff options
| author | knarf <knarf@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2010-12-06 19:47:12 +0000 |
|---|---|---|
| committer | knarf <knarf@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2010-12-06 19:47:12 +0000 |
| commit | e89c9e589a91b4ea21811434dc1bd2f9379c750e (patch) | |
| tree | 10d319af7cb205edcb81eca093a931cf5453ebd3 | |
| parent | 4c24a76f4867e9e78e572db3cf503f20100ff6ab (diff) | |
fix compilation bug
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/trunk@30 8e189c6b-2ab8-4400-aa02-70a9cfce18b9
| -rw-r--r-- | src/nuc_eos/bisection.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
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 |