24小时热门版块排行榜    

查看: 1764  |  回复: 8
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

allenjobsf853

铜虫 (小有名气)

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

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

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

1        ab
456    ab
125    ab

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

怎么才能弄成第一种的???  不尽感激啊
回复此楼
已阅   回复此楼   关注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导入再复制过去...
9楼2011-07-07 22:01:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答

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'

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

3楼2011-07-04 20:25:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

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

【答案】应助回帖

★ ★
余泽成(金币+2): 谢谢参与应助! 2011-07-05 20:19:06
4楼2011-07-04 20:25:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见