论坛 › Fortran语法讨论 › 二进制文件转为十进制

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

二进制文件转为十进制

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

IMPLICIT NONE
INTEGER,PARAMETER::m=25,n=238,p=280
INTEGER::j,K,l

REAL::rain(m,n,p)
OPEN(1,FILE='C:\Users\zjc02\Desktop\shuju\EM.bin',CONVERT='big_endian',FORM='unformatted',ACCESS='direct',ACTION='read',RECL=p*n*m)
DO j=1,m
DO K=1,n
    DO l=1,p
         READ(1,rec=1) (rain(j,k,l))
    END DO
END DO
END DO

OPEN(2,FILE='C:\Users\zjc02\Desktop\em.txt',FORM='formatted',ACTION='write')
DO j=1,m
DO K=1,n
    DO l=1,p
         WRITE(2)(rain(j,k,l))
    END DO
END DO
END DO

CLOSE(1)
CLOSE(2)

END

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

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

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

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

查看完整版本: 二进制文件转为十进制