Commit efeab54900abaa041ea655be6bae1eb1e3f14779
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 | ... | ... |