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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran整数输出格式的问题
91/1返回列表
查看: 2116  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

allenjobsf853

铜虫 (小有名气)

[求助] fortran整数输出格式的问题

编了一个fortran程序，但是格式不会弄 具体如下

想要第一段为7列宽度，输出整数， 第二输出字母 ，比如

1        ab
456    ab
125    ab

结果现在都是右顶格输出  撑了下面的样子：
        1ab
    456ab
    125ab

怎么才能弄成第一种的？？？  不尽感激啊
回复此楼

» 收录本帖的淘帖专辑推荐

硕博精华

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-07-04 16:55:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★
jjdg(金币+1): 感谢参与 2011-07-05 12:40:27
allenjobsf853(金币+10): 这个肯定不行，上万行的文本，数字是不一样的 2011-07-05 18:13:06
这个似乎没有什么好办法，你需要知道你的整数的长度是多少，然后人为控制，比如
CODE:
write(*,'(i0,5x,a)') 1, 'ab'
write(*,'(i0,3x,a)') 456, 'ab'
write(*,'(i0,3x,a)') 456, 'ab'
赞一下(1人) 回复此楼
2楼2011-07-04 20:12:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★
jjdg(金币+3): 感谢参与 2011-07-05 12:40:16
另外一种方法，可能更简便一些：
CODE:
program i2s

character(len=10) :: ci

write(ci,'(i0)') 1234567890
write(*,'(a,a)') ci,'ab'

write(ci,'(i0)') 123456
write(*,'(a,a)') ci,'ab'

end program i2s
赞一下(1人) 回复此楼
3楼2011-07-04 20:25:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

优秀区长优秀区长优秀区长优秀区长优秀版主

【答案】应助回帖

★ ★
余泽成(金币+2): 谢谢参与应助！ 2011-07-05 20:19:06
http://www.programfan.com/club/showtxt.asp?id=230012
赞一下(1人) 回复此楼
4楼2011-07-04 20:25:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

allenjobsf853

铜虫 (小有名气)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 13:31:30
引用回帖:
Originally posted by snoopyzhao at 2011-07-04 20:25:16:
另外一种方法，可能更简便一些：

[code]
program i2s

character(len=10) :: ci

write(ci,'(i0)') 1234567890
write(*,'(a,a)') ci,'ab'

write(ci,'(i0)') 123456
write(*,'(a,a)') ci,'ab'

end ...

这个方法不错 受教了 不过我找到了更方便的做法 在帖子最下面
赞一下(1人) 回复此楼
5楼2011-07-05 18:13:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

allenjobsf853

铜虫 (小有名气)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 13:31:35
将数字写入字符串，和三楼老兄学习的


然后用一个函数 adjustl  可以将字符串右移到顶
赞一下(1人) 回复此楼
6楼2011-07-05 18:18:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

allenjobsf853

铜虫 (小有名气)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 13:31:40
引用回帖:
Originally posted by nono2009 at 2011-07-04 20:25:53:
http://www.programfan.com/club/showtxt.asp?id=230012

谢谢斑竹啊 能不能帮忙把网页复制到word一下发给我啊，

我打开后都是乱码 不知道是什么东西 谢谢了啊 发到ff@nus.edu.sg 多谢多谢
赞一下(1人) 回复此楼
7楼2011-07-05 18:21:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

优秀区长优秀区长优秀区长优秀区长优秀版主
★ ★
余泽成(金币+2): 辛苦辛苦！ 2011-07-05 20:21:36
网页的内容：
[quote]
想把一个矩阵存成txt文件，用制表符tab分割的，这样可以用excel打开，每个数据占一个格，而不是整行数据在一个格内。

不知道能不能这样存，怎么存？

高手指点！谢谢！


作者：mltx      发表时间：2007-5-2 10:45:00
　第1楼  

char(9)是tab。


作者：f2003      发表时间：2007-5-4 2:39:00
　第2楼  

以前大家都没有注意到char这样的内部函数。自从一位兄弟发现后，此类问题很好的被解决了。3人行必有我师啊~


作者：mltx      发表时间：2007-5-4 20:00:00
　第3楼  

同理可以输出很多系统字符命令：
char(10)=Line feed (换行)
char(13)=Carriage return (返回第一列)

如：
write(*,*) "ABCDEF",char(13),"abc"
输出结果为：
abcDEF



作者：qqz2001      发表时间：2007-5-5 7:41:00
　第4楼  


可是一行有几万个数据，总不能这样一个一个写char（9）吧


作者：mltx      发表时间：2007-5-5 8:54:00
　第5楼  

如果需要，只得写。可以用循环语句嘛。


作者：qqz2001      发表时间：2007-5-5 8:59:00
　第6楼  

但是循环每次就换行了，怎么继续接在原来一行后面继续啊？
谢谢


作者：mltx      发表时间：2007-5-5 21:04:00
　第7楼  

可以用advance='no'吧。

也可以用隐循环嘛：
write(*, "( 10(e12.5,a) )" ) ( (a(i),char(9)), i=1,10)
其中含有变量的格式部分可以用内部文件实现。


作者：qqz2001      发表时间：2007-5-5 21:18:00
　第8楼  


谢谢，很好用。
又学了一招
我是fortran初学者，
但每次遇到困难都能得到帮助，同时能学到很多东西
非常感谢！！
[quote]
赞一下(1人) 回复此楼
8楼2011-07-05 18:43:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zzzzyyyy

铜虫 (初入文坛)
★ ★
余泽成(金币+2): 欢迎新虫，常来程序语言版！ 2011-07-11 20:38:24
引用回帖:
Originally posted by nono2009 at 2011-07-05 18:43:50:
网页的内容：
[quote]
想把一个矩阵存成txt文件，用制表符tab分割的，这样可以用excel打开，每个数据占一个格，而不是整行数据在一个格内。

不知道能不能这样存，怎么存？

高手指点！谢谢！


作者： ...

把矩阵的每一行按照标准格式存一下，比如一个100*100的按照这个来写
        do i = 1 , 100
                write(102,"(100F12.6)" data(i,
        end do
然后用Origin或者Excel导入都可以
如果Excel导入不行得话可以用Origin导入再复制过去...
赞一下(1人) 回复此楼
9楼2011-07-07 22:01:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 allenjobsf853 的主题更新
91/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] 岩土工程学报什么时候才能终审完呐 25+3 yeager111 2026-08-10 4/200 2026-08-16 20:42 by tfang
[基金申请] 时间戳又变了8-15 +13 archvillain 2026-08-15 25/1250 2026-08-16 20:13 by zhaosm1982
[基金申请] 2027广东省杰青 +3 奶牛小黑 2026-08-15 6/300 2026-08-16 20:07 by 奶牛小黑
[精细化工] 招聘 金属平磨液，抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] filecode +8 cratir 2026-08-14 12/600 2026-08-15 18:08 by zyfgau
[基金申请] 小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊 +12 Tide man 2026-08-10 13/650 2026-08-15 16:34 by 氺木
[基金申请] 关于Filecode分析方法 +10 majunge000 2026-08-10 13/650 2026-08-15 12:26 by hanpeng972
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[基金申请] filecode +15 documentary 2026-08-10 17/850 2026-08-14 10:08 by kissu88
[基金申请] FileCode能看出啥？ +10 要乐观耀哥 2026-08-10 32/1600 2026-08-14 09:37 by 要乐观耀哥
[基金申请] 静等基金结果 +8 gjjjzhong 2026-08-10 21/1050 2026-08-13 17:56 by 且听虎啸
[基金申请] 重要来源：本周末出结果 +10 瞬息宇宙 2026-08-12 10/500 2026-08-13 15:46 by likettle
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 结合人工智能，周易传统文化，filecode打分制来了，3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 什么时候出结果，有咨询渠道？？？ +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
[基金申请] 确定了，国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 据悉今年马上要出结果了 +7 瞬息宇宙 2026-08-10 8/400 2026-08-10 12:42 by Vivilian
信息提示
关闭
请填处理意见
关闭