我想使用FORTRAN读取这段数据，求指教！！

小傅之追梦

言深深 发表于 2014-3-23 17:34

                               
登录/注册后可看大图

我真是闲的···
可以用这个程序read你的例子：
character kill

大神你好，楼主数据的缺测值（NULL）主要是：第一云属云量、第二云属云量、第三云属云量、第四云属云量，，，你所提供的程序当这几个量一直全部为缺测时是有效地，但是对于非全缺测或许无法满足要求的吧。。。。

小傅之追梦

以下是我写的一段小代码
program data_process
implicit none
integer,parameter::line=139567,row=11
integer i,j,dat(7,line)
character*4 duo(11),miss(6,line),undef


open(1,file='data.txt')
open(2,file='new_data.txt')

read(1,*)(duo(i),i=1,row)

!!!!!  i代表列数，j代表行数
do j=1,line
  read(1,*)(dat(i,j),i=1,5),(miss(i,j),i=1,6)
enddo
close(1)

!!!!!  缺测数据的处理
undef='null'
do j=1,line
do i=1,6
  if(trim(miss(i,j))==trim(undef))miss(i,j)='999'
enddo;enddo


do j=1,line
  write(2,*)(dat(i,j),i=1,5),'  ',(miss(i,j),i=1,6)
enddo
end

言深深

小傅之追梦 发表于 2014-3-23 18:43

                               
登录/注册后可看大图

大神你好，楼主数据的缺测值（NULL）主要是：第一云属云量、第二云属云量、第三云属云量、第四云属云量， ...

由于你给的sample中没有你说的问题，因此写这个程序没有考虑这些。
对于个别的null情况，可以如我此前所言的，现将null以character型读进去，然后替换掉，如用999替换，这样再read到字符型数组里面即可。12楼也有，可以参考···

还有，问题请务必一次性提出来···