heap block

[ninio]

I'm working on a mathematical model for the university(Polytechnic of Turin). In the debugging phase, at the last string of the last subroutine,the commands "build" and "link" are performed with success, but when i try to compile (go), the compiler stops and prints the following message:heap block at 0097D0C0 modified at 0097D170 past requested size of a8; where is the problem?
The compiler used is Microsoft Developer Studio, the libraries used are kernel32.lib statd.lib,mathd.lib,stats.lib,maths.lib
In the attached file "modello.zip" you will find the main file:"main.f90",along with all the subroutines;the subroutine in question is "veget.f90"
Thanks.

 

[mikrom]

I have not te Microsoft compiler, but I tried to build it with GNU fortran.
But it seems to be inpossible, because not all sources are included in your zip package, e.g. I don'n have hveg.f90.
I excluded that on beginning from compilation but nevertheless the linker miss other functions too: rnset, rnunf,...etc
See, I got these error:

C:/Users/user01/AppData/Local/Temp/ccKQ6l2r.o:vegkill.f90:(.text+0x87): undefined reference to `rnset_'
C:/Users/user01/AppData/Local/Temp/ccKQ6l2r.o:vegkill.f90:(.text+0x8c): undefined reference to `rnunf_'
C:/Users/user01/AppData/Local/Temp/ccKQ6l2r.o:vegkill.f90:(.text+0xad): undefined reference to `rnunf_'
C:/Users/user01/AppData/Local/Temp/ccHA3P86.o:veg_grow.f90:(.text+0x59e): undefined reference to `const_'
C:/Users/user01/AppData/Local/Temp/ccHA3P86.o:veg_grow.f90:(.text+0x5e8): undefined reference to `const_'
C:/Users/user01/AppData/Local/Temp/cc6lUOfv.o:tensioni.f90:(.text+0x3ae): undefined reference to `const_'
C:/Users/user01/AppData/Local/Temp/cc6lUOfv.o:tensioni.f90:(.text+0x626): undefined reference to `const_'
C:/Users/user01/AppData/Local/Temp/ccfi9sMX.o:Qgen.f90:(.text+0x4f3): undefined reference to `umach_'
C:/Users/user01/AppData/Local/Temp/ccfi9sMX.o:Qgen.f90:(.text+0x505): undefined reference to `rnset_'
C:/Users/user01/AppData/Local/Temp/ccfi9sMX.o:Qgen.f90:(.text+0x529): undefined reference to `rnexp_'
C:/Users/user01/AppData/Local/Temp/ccfi9sMX.o:Qgen.f90:(.text+0x54b): undefined reference to `sscal_'
C:/Users/user01/AppData/Local/Temp/ccfi9sMX.o:Qgen.f90:(.text+0x591): undefined reference to `rnset_'
C:/Users/user01/AppData/Local/Temp/ccfi9sMX.o:Qgen.f90:(.text+0x5aa): undefined reference to `rnexp_'
C:/Users/user01/AppData/Local/Temp/ccfi9sMX.o:Qgen.f90:(.text+0x5cb): undefined reference to `sscal_'
C:/Users/user01/AppData/Local/Temp/cc7lwaed.o:fcnjac.f90:(.text+0x24f): undefined reference to `const_'
C:/Users/user01/AppData/Local/Temp/cc7lPqko.o:fcneqn.f90:(.text+0x21f): undefined reference to `const_'
C:/Users/user01/AppData/Local/Temp/ccRtGLn9.o:esempio_nonl.f90:(.text+0xe3b): undefined reference to `dbvpfd_'
C:/Users/user01/AppData/Local/Temp/ccRtGLn9.o:esempio_nonl.f90:(.text+0xe91): undefined reference to `umach_'
C:/Users/user01/AppData/Local/Temp/ccd5F5C1.o:dativeg.f90:(.text+0x486): undefined reference to `const_'
collect2: ld returned 1 exit status