如何读取这种看似简单的奇葩文件（欧洲细网格2米温度）？

柠檬夏

　　我用程序在读取一种看似很简单的文本数据时（Micaps3的第四类数据），居然发生了很奇怪的错误，貌似是数据格式错误，
　　因为Micaps3的第四类数据，的前三行数据描述（第一行３个字符、第二行开始有１９个字符（或实数）的描述内容）。不同时次文件各个词条的长度可能会发生变化，所以个人认为必须得用表控输入，即read(file,*)。
　　在满足以上条件下，必须读取文件内所有数据。

　　我的参考程序如下：
       Program read_ec_thin_2m
      character dat_head1(3)*50
        real      x(19),dat(361,281)
        open(11,file='14092920.000',status='old')
      read(11,*)(dat_head1(i),i=1,3)
        do i=1,3
        print*,trim(dat_head1(i))
        enddo
      x=-999
        read(11,*,err=10086)(x(i),i=1,19)
10086 continue
      !－若屏幕显示"-999"则说明该数据读取错误－
        do i=1,19
        print*,x(i)
        enddo
        read(11,*)((dat(i,j),i=1,361),j=1,281)
        end
!多谢各位同学的浏览，我正在等待你们的回复。

lqouc

http://bbs.06climate.com/forum.php?mod=viewthread&tid=4571

pvasbob

希望大神指点，我也想听听

1530718856

大神快来指点下啊，也让我等学习下，