应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » Fortran的格式化输入输出问题
52/1返回列表
查看: 3107  |  回复: 14
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

david830wu

新虫 (初入文坛)

[求助] Fortran的格式化输入输出问题

下面是一个矩阵的内容，在文件里，想用Fortran读入，应该怎样做呢？
难点在于，空格数不固定，数字的长度也不固定，Fortran有没有能像C++那样的自动跳过空格，自动控制长度的智能读入呢？

Matrix.dat：
1 2  3   45 2
341 3 221 2 45
21     45     3 23 3
1           32 2     34 33
45  36   39    81 4

谢谢啦！
回复此楼

» 猜你喜欢
1楼 2011-07-17 16:18:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

教主杰

金虫 (小有名气)
引用回帖:
11楼: Originally posted by snoopyzhao at 2011-07-21 11:45:11
给一个我写的 Fortran 90 版本的程序，没有加前面的准备字符串部分，呵呵，希望不难懂理解……


program read_hex

implicit none
character(len=80) :: line="3 5  F6F  1d 0 0"
character(len=80) :: buf ...

这段程序有点小缺陷   就是
!! remove the extra space in the string
do i=1,str_len-1
   if (buff(i:i) == ' ' .and. buff(i+1:i+1) == ' ') buff(i = buff(i+1
end do
应该改成
do j=trim_line(i)-1,1,-1            
        if (transion_line(j:j)==' '.and.transion_line(j-1:j-1)==' ') then
           transion_line(j=transion_line(j+1
        end if
end do
不然中间多余2个数的空格就不能干净的去处多余空格
赞一下 回复此楼
大家好很高兴见到各位
15楼2014-09-17 22:02:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 15 个回答

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
david830wu(金币+5): 嗯，以前陷到格式化输出的沟里了，其实用“*”就好了。非常感谢！ 2011-07-17 17:24:03
xzhdty(金币+2): 欢迎常来 2011-07-17 21:51:22
你每行都是一样多的数字吗？或者说，你的 matrix 的维数是已知的吗？

直接
CODE:
read(12, *) ((a(i,j), i=1,5),j=1,5)

不行吗？

当然，这里都是以浮点数读入的，你可以转一下，呵呵……
赞一下(1人) 回复此楼
2楼2011-07-17 17:13:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

david830wu

新虫 (初入文坛)
★ ★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-17 22:51:32
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-17 22:52:42
再进一步问一下，也是我真实遇到的，就是GAMBIT的网格划分文件，数据文件是十六进制应该怎么办呢？
MATRIX.dat
1   3f  a6    21   4
a cc        f3      2  2
3    d0    b2    46   4
……
这样的文件用“*”好像就不行了，如果后面加option：Zn[.m]的话就得指定宽度，这应该怎么处理？
赞一下(2人) 回复此楼
3楼2011-07-17 18:45:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-17 22:51:45
引用回帖:
Originally posted by david830wu at 2011-07-17 18:45:35:
再进一步问一下，也是我真实遇到的，就是GAMBIT的网格划分文件，数据文件是十六进制应该怎么办呢？
MATRIX.dat
1   3f  a6    21   4
a cc        f3      2  2
3    d0    b2    46   4
……
这样的文件用 ...

这个没有啥好办法，将多个空格替换为一个空格，然后按字符串读入，以空格划分，再以内部文件的方式格式化读入……
赞一下(1人) 回复此楼
4楼2011-07-17 19:44:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 15 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭