数组越界

vvt

可见，implicit none 是多么重要

vvt

此外，难以置信，楼主新写的代码，还在用这种1970年的代码风格。