Commit efeab54900abaa041ea655be6bae1eb1e3f14779

Authored by Jérémy Baudry
1 parent b85b16f5
Exists in master

small error

Showing 1 changed file with 2 additions and 2 deletions   Show diff stats
src/BIO_LAGRANGE.f90
... ... @@ -37,13 +37,13 @@
37 37 double precision :: Pdmax=1
38 38 double precision :: Idark=50
39 39 double precision, dimension(100000) :: Fi
40   - double precision :: nb1
  40 + double precision,allocatable :: nb1(:)
41 41  
42 42 allocate(light_level(Nlevel))
43 43 allocate(dummy1(Nlevel))
44 44 allocate(light_bin(Nbin))
45 45 allocate(nb(Nbin))
46   -
  46 + allocate(nb1(Nbin))
47 47  
48 48 Fi(1:100000)=0
49 49 div=0
... ...