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