small error

src/BIO_LAGRANGE.f90

@@ -37,13 +37,13 @@
         double precision                        :: Pdmax=1
         double precision                        :: Idark=50      
         double precision, dimension(100000)     :: Fi
-        double precision                        :: nb1
+        double precision,allocatable            :: nb1(:)
 
         allocate(light_level(Nlevel))
         allocate(dummy1(Nlevel))
         allocate(light_bin(Nbin))
         allocate(nb(Nbin))
-
+        allocate(nb1(Nbin))
 
         Fi(1:100000)=0
         div=0