分段错误，无效的内存引用

HeISeTH

各位老师，大家好！有个问题想向各位老师请教一下，今天我在我的Linux(centos）通过命令gfortran 1.f90，对我的脚本进行了编译，在执行./a.out时，显示了分段错误，无效的内存引用，在操作的过程中，得出的数据，我觉得应该是write(7,*)x,y,z这步有问题（应该是x,y,z声明的问题），因为原本应该输出2702个，但是现在只输出了2659个，剩下的都没输出（x,y,z),而我在输出序号的时候却没有问题，但是我改了一天多了，真的想不明白到底时什么问题，因为我这个就是个数据啊，也不想网上写的那样涉及到了指针什么的，所以请各位老师教教我吧，学生不胜感激，好人一生平安！图1到8是我的代码图，图9是我要摘取信息的文本图，图10是错误图，再次感谢各位老师！