缺测值都是

jiaohe1990

program main
implicit none
integer:: nt=13
integer i
real p(nt),time(nt),a(nt),b(nt),c(nt)
open(11,file='')
do i=1,nt
    read(11,*) time(i), a(i), b(i),c(i),p(i)
enddo
open(12,file='.dat',form='unformatted')
do i=1,nt
   write(12) p(i)
enddo
end
00  3 164 1201  998     040     00000 0000 90090 0090
06  3 165 1189  996     045     00000 0000 90120 0120
12  4 169 1178  990     050     00000 0000 30160 0100
18  4 177 1166  985     055     90040 0040 30160 0100
00  4 185 1155  985     055     90040 0040 30200 0100
06  4 189 1144  985     055     90040 0040 90160 0160
12  5 195 1134  975     065     90050 0050 90170 0170
18  5 197 1122  965     075     90050 0050 20210 0170
00  5 205 1115  950     085     90060 0060 20240 0150
06  5 213 1104  950     085     90060 0060 20240 0150
12  5 219 1096  970     070     90050 0050 20210 0120
18  5 226 1088  990     050     00000 0000 20180 0090
00  2 236 1082 1008     000
就是想把第五行气压值写到dat里面
但得到的全是缺测值

言深深

不应该的，你写出到txt文件看看，检查一下到底什么情况。