Fortran Coder

查看: 305|回复: 2

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

[复制链接]

1

帖子

1

主题

0

精华

新人

F 币
15 元
贡献
4 点
发表于 2017-4-10 15:26:44 | 显示全部楼层 |阅读模式
新手,怎么把一个25*238*280的三维二进制文件转为十进制文件输出,下面的代码问题在哪
[Fortran] 纯文本查看 复制代码
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

回复

使用道具 举报

1138

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂

F 币
1065 元
贡献
863 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2017-4-10 17:21:14 | 显示全部楼层
请看本论坛视频教程 http://v.fcode.cn/video-file_io_binary.html

1

帖子

0

主题

0

精华

新人

F 币
10 元
贡献
4 点
发表于 2017-5-18 16:16:48 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
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)


评分

参与人数 1贡献 +1 收起 理由
fcode + 1 read(1,rec=1) rain 就可以了

查看全部评分

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|QQ群|Fcode

GMT+8, 2017-11-24 04:20

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表