Commit efeab549 authored by Jérémy Baudry's avatar Jérémy Baudry

small error

parent b85b16f5
...@@ -37,13 +37,13 @@ ...@@ -37,13 +37,13 @@
double precision :: Pdmax=1 double precision :: Pdmax=1
double precision :: Idark=50 double precision :: Idark=50
double precision, dimension(100000) :: Fi double precision, dimension(100000) :: Fi
double precision :: nb1 double precision,allocatable :: nb1(:)
allocate(light_level(Nlevel)) allocate(light_level(Nlevel))
allocate(dummy1(Nlevel)) allocate(dummy1(Nlevel))
allocate(light_bin(Nbin)) allocate(light_bin(Nbin))
allocate(nb(Nbin)) allocate(nb(Nbin))
allocate(nb1(Nbin))
Fi(1:100000)=0 Fi(1:100000)=0
div=0 div=0
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment