Fortran数据读取不进去

Fortran读取txt文件，利用了个循环，但是只能读取第一行的数据，循环做不出来？？这是为啥啊

给代码