- 积分
- 641
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-6-24
- 最后登录
- 1970-1-1

|

楼主 |
发表于 2012-6-27 13:17:43
|
显示全部楼层
现在搞出来了!格式不是512*512而是1300*1900
program duqu
implicit none
integer,parameter :: row=1300
integer,parameter :: col=1900
integer r
integer c
integer*1 matrix(row,col)
open(unit=1,file="FY2D_ANI_VIS_R04_20120623_2345.AWX",form="binary")
!!!!读取头文件
do r=1,2
read(1) (matrix(r,c),c=1,col)
end do
!!!!读取数据
do r=3,row
read(1) (matrix(r,c),c=1,col)
end do
close(1)
open(unit=2,file="FY2D_VIS_w.dat",form="binary")
do r=1,row
write(2) (matrix(r,c),c=1,col)
end do
close(2)
stop
end |
|