二进制文件转为十进制

zhang · 发表于 2017-4-10 15:26:44

新手，怎么把一个25*238*280的三维二进制文件转为十进制文件输出，下面的代码问题在哪

[Fortran] 纯文本查看 复制代码

01PROGRAM LIAN
02 
03IMPLICIT NONE
04INTEGER,PARAMETER::m=25,n=238,p=280
05INTEGER::j,K,l
06 
07REAL::rain(m,n,p)
08OPEN(1,FILE='C:\Users\zjc02\Desktop\shuju\EM.bin',CONVERT='big_endian',FORM='unformatted',ACCESS='direct',ACTION='read',RECL=p*n*m)
09DO j=1,m
10  DO K=1,n
11    DO l=1,p
12         READ(1,rec=1) (rain(j,k,l))
13    END DO
14  END DO
15END DO
16 
17OPEN(2,FILE='C:\Users\zjc02\Desktop\em.txt',FORM='formatted',ACTION='write')
18DO j=1,m
19  DO K=1,n
20    DO l=1,p
21         WRITE(2)(rain(j,k,l))
22    END DO
23  END DO
24END DO
25 
26CLOSE(1)
27CLOSE(2)
28 
29END

fcode · 发表于 2017-4-10 17:21:14

请看本论坛视频教程 http://v.fcode.cn/video-file_io_binary.html

whuwjx · 发表于 2017-5-18 16:16:48

[Fortran] 纯文本查看 复制代码

1DO j=1,m
2  DO K=1,n
3    DO l=1,p
4         READ(1,rec=1) (rain(j,k,l))
5    END DO
6  END DO
7END DO

修改为
read(1,rec=1) (((rain(j,k,l),j=1,m),i=1,n),t=1,p)

[文件读写] 二进制文件转为十进制

评分

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章