[Commits] [svn:einsteintoolkit] EOS_Omni/trunk/src/nuc_eos/ (Rev. 30)

[knarf at cct.lsu.edu]

User: knarf
Date: 2010/12/06 01:47 PM

Modified:
 /trunk/src/nuc_eos/
  bisection.F90

Log:
 fix compilation bug

File Changes:

Directory: /trunk/src/nuc_eos/
==============================

File [modified]: bisection.F90
Delta lines: +2 -2
===================================================================
--- trunk/src/nuc_eos/bisection.F90	2010-12-05 01:29:37 UTC (rev 29)
+++ trunk/src/nuc_eos/bisection.F90	2010-12-06 19:47:12 UTC (rev 30)
@@ -19,7 +19,7 @@
 
   integer bcount,i,itmax,maxbcount
 
-  real*8 bivar
+  real*8 bivar(*)
 
   bcount = 0
   maxbcount = 80
@@ -101,7 +101,7 @@
 
   integer bcount,i,itmax,maxbcount
 
-  real*8 bivar
+  real*8 bivar(*)
 
   bcount = 0
   maxbcount = 80