fcode 发表于 2023-7-5 16:49
read(line,fmt='(i6,9(4x,a2))',iostat=jerr) xf_ndat,
         (datatypes(i),i=1, min(xf_ndat,9)) !  ...

感谢感谢，我去试试

  read(line,fmt='(i6,9(4x,a2))',iostat=jerr) xf_ndat,
         (datatypes(i),i=1, min(xf_ndat,9)) ! MOD kfhe 130913
这种格式化read很容易错，数错一个空格就错了。
你可以改为
read(line(1:index-1),*,iostat=jerr) xf_ndat, datatypes(1:min(xf_ndat,9))
注意其他地方也有类似的格式化read，也应做相应的修改