Can't find what's wrong

mmc1-he3.csv (1.3 MB)
hs.f90 (6.4 KB)

Could someone pls explain to me where does my code is not running? I can’t find. The error showing when i try to run it is:

`Program received signal SIGSEGV: Segmentation fault - invalid memory reference.

Backtrace for this error:
#0 0x7f7eecc7fbd0 in ???
#1 0x7f7eecc7ee25 in ???
#2 0x7f7eec992d5f in ???
at ./signal/…/sysdeps/unix/sysv/linux/x86_64/sigaction.c:0
#3 0x7f7eecebf864 in ???
#4 0x7f7eecec1d83 in ???
#5 0x7f7eecec20c5 in ???
#6 0x7f7eecec312e in ???
#7 0x55d6115145bb in ???
#8 0x55d6115154f4 in ???
#9 0x7f7eec97dd09 in __libc_start_main
at …/csu/libc-start.c:308
#10 0x55d6115131c9 in ???
#11 0xffffffffffffffff in ???`

If someone try to run it and find how to fix it, would almost literally save my life. I know it must have many things wrong but, by now, i just need it to run.

If you compile it with “-g -fbounds-check” you will get a nice backtrace plus a nicer debug message

The problem is at line 152

At line 152 of file hs.f90
Fortran runtime error: Index '403' of dimension 2 of array 'mmc' above upper bound of 102

Error termination. Backtrace:
#0  0x562f5a07efee in rgd2
	at /home/ian/downloads/hs.f90:152
#1  0x562f5a082c5c in main
	at /home/ian/downloads/hs.f90:214