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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » ifort和gfortran无格式输出的区别
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 2310  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

exabyss916

新虫 (小有名气)

[求助] ifort和gfortran无格式输出的区别

比如有一个长度为20的数组A(20)，用无格式输出：

write(10,*)A

gfortran编译的结果正确显示，A(1)，A(2)，...，A(20)都输出到一行。

ifort编译的结果却分行显示了，每行只有3个数，如何让输出结果只有一行？
回复此楼

» 猜你喜欢

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

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
jjdg(金币+1): 感谢参与 2011-11-30 16:09:03
余泽成(金币+1): 谢谢参与应助！ 2011-12-02 17:23:36
引用回帖:
5楼: Originally posted by magang26 at 2011-11-30 12:23:26:
统一楼上的，格式化输出。
write(*,"(20F12.3)" (A(i),i=1,20)

不明白楼上的G是什么意思？有这个类型？

Fortran 77 标准中有这个类型，不过不常用，呵呵……

[qutoe]
13.5.9.2.3 G Editing.
The Gw.d and Gw.dEe edit descriptors indicate that the external field occupies w positions, the fractional part of which consists of d digits, unless a scale factor greater than one is in effect, and the exponent part consists of e digits.

G input editing is the same as for F editing ( 13.5.9.2.1).

The method of representation in the output field depends on the magnitude of the datum being edited. Let N be the magnitude of the internal datum. If N < 0.1 or N >= 10**d,Gw.d output editing is the same as kPEw.d output editing and Gw.dEe output editing is the same as kPEw.dEe output editing, where k is the scale factor currently in effect. If N is greater than or equal to 0.1 and is less than 10**d , the scale factor has no effect, and the value of N determines the editing as follows:

________________________________________________
     |                       |                       |
     |_Magnitude_of_Datum____|__Equivalent_Conversion|
     |                       |                       |
     | 0.1=N<=1              |  F(w-n).d, n('b')     |
     |                       |                       |
     | 1<=N<10               |  F(w-n).(d-1), n('b') |
     |                       |                       |
     |   .                   |        .              |
     |   .                   |        .              |
     |   .                   |        .              |
     | 10**(d-2)<=N<10**(d-1)|  F(w-n).1, n('b')     |
     |                       |                       |
     | 10**(d-1)<=N<10**d    |  F(w-n).0, n('b')     |
     |                       |                       |
     |_______________________|_______________________|

    where: b is a blank

    n is 4 for Gw.d and e+2 for Gw.dEe

Note that the scale factor has no effect unless the magnitude of the datum to be edited is outside of the range that permits effective use of F editing. [/quote]
赞一下(2人) 回复此楼
6楼2011-11-30 13:43:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★
余泽成(金币+1): 谢谢参与应助！ 2011-11-19 14:30:48
exabyss916(金币+2): 2011-11-23 09:13:44
那你就用格式化方式输出就是了……
赞一下(1人) 回复此楼
2楼2011-11-19 10:56:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

锐利的碎片

木虫 (正式写手)

star watcher

【答案】应助回帖

★
xzhdty(金币+1): 欢迎常来程序语言看看 2011-11-19 12:38:07
exabyss916(金币+2): 2011-11-23 09:13:12
do i=1,20
    write(*,'(G18.10)',advance='no') A(i)
end do
或者
write(*,'(20G18.10)') A
无格式输出的结果不同编译器都不一样，所以输出时应该明确给出格式。
赞一下(1人) 回复此楼
3楼2011-11-19 11:02:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

magang26

金虫 (小有名气)

【答案】应助回帖

exabyss916(金币+1): 2011-11-30 15:11:53
统一楼上的，格式化输出。
write(*,"(20F12.3)" (A(i),i=1,20)

不明白楼上的G是什么意思？有这个类型？
赞一下 回复此楼
成长吧
4楼2011-11-30 12:22:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0703 化学 求调剂，一志愿山东大学 342 分 +4 Shern—- 2026-03-28 4/200 2026-03-29 00:47 by 544594351
[考研] 086000生物与医药调剂 +3 Feisty。 2026-03-28 7/350 2026-03-29 00:41 by 544594351
[考研] 316求调剂 +7 江辞666 2026-03-26 7/350 2026-03-28 21:28 by sanrepian
[考研] 本科新能源科学与工程，一志愿华理能动285求调剂 +7 AZMK 2026-03-28 11/550 2026-03-28 21:01 by xxxsssccc
[考研] 一志愿北化085600材料专硕275|有文章专利｜求调剂 +7 Micky11223 2026-03-25 7/350 2026-03-28 18:34 by 无际的草原
[考研] 一志愿华北电力大学能动专硕，293，求调剂 +3 15537177284 2026-03-23 5/250 2026-03-28 16:11 by xxxsssccc
[考研] 材料与化工考研调剂 +17 孅華 2026-03-22 17/850 2026-03-28 08:35 by WYUMater
[考研] 材料学硕，求调剂 6+5 糖葫芦888ll 2026-03-22 10/500 2026-03-27 08:18 by hypershenger
[考研] 325求调剂 +5 李嘉图·S·路 2026-03-23 5/250 2026-03-27 00:42 by wxiongid
[考研] 343求调剂 +4 赠我一本书 2026-03-23 4/200 2026-03-27 00:40 by wxiongid
[考研] 调剂求收留 +7 果然有我 2026-03-26 7/350 2026-03-27 00:26 by wxiongid
[考研] 349求调剂 +4 李木子啊哈哈 2026-03-25 4/200 2026-03-26 22:49 by fmesaito
[考研] 生物学 296 求调剂 +4 朵朵- 2026-03-26 6/300 2026-03-26 19:01 by 不吃魚的貓
[考研] 085602化学工程求调剂。 +4 平乐乐乐 2026-03-26 4/200 2026-03-26 17:57 by fmesaito
[考研] 332求调剂 +6 032500 2026-03-25 6/300 2026-03-25 22:45 by 418490947
[基金申请] 请教下大家 2026年国家基金申请是双盲审吗？ +3 lishucheng1 2026-03-22 5/250 2026-03-24 08:22 by gltch
[考研] 335求调剂 +4 yuyu宇 2026-03-23 5/250 2026-03-23 23:49 by Txy@872106
[考研] 361求调剂 +3 Glack 2026-03-22 3/150 2026-03-23 22:03 by fuyu_
[考研] 接收2026硕士调剂(学硕+专硕) +4 allen-yin 2026-03-23 6/300 2026-03-23 15:04 by 汪！？！
[考研] 求老师收我 +3 zzh16938784 2026-03-23 3/150 2026-03-23 12:56 by ztnimte
信息提示
关闭
请填处理意见
关闭