diff options
| -rw-r--r-- | src/nuc_eos/bisection.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
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 |