24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1899  |  回复: 2

gongxd325

至尊木虫 (文坛精英)

[求助] Fortran写分子式时如何去掉字符和数字间的空格?

Fortran程序写分子式时,如何去掉字符和数字间的空格?比如,
WRITE(6,'(6(A,F6.3))')语句得到下面这样带空格的格式
C  1.568H  5.135N 11.730F  3.270Cl 1.865
我想要写成下面这样无空格的格式
C1.568H5.135N11.730F3.270Cl1.865
请教该怎么办?
回复此楼

» 猜你喜欢

» 本主题相关商家推荐: (我也要在这里推广)

一个人做点好事并不难难的是一辈子做好事!!!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
jjdg: 金币+1, 数字转成字符串,正解 2012-11-11 01:14:31
gongxd325: 金币+8, ★★★很有帮助 2012-11-15 19:16:44
你这个基本无解,除非你把数字转成字符串

你输出的结果中的空格是由 F6.3 这个引起的……
2楼2012-11-10 19:45:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

weiwei43

至尊木虫 (正式写手)

【答案】应助回帖

★ ★
感谢参与,应助指数 +1
gongxd325: 金币+2, 有帮助 2012-11-15 19:17:01
因为你的实际数字整数有1或2位,小数是3位,所以只能用F6.3格式,这个问题解决不了。
如果整数只有一位,小数只有3位,那么用F5.3就能去掉空格了。
3楼2012-11-11 08:02:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 gongxd325 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料科学与工程调剂 +17 深V宿舍吧 2026-03-30 18/900 2026-04-02 10:22 by oooqiao
[考研] 301求调剂 +5 骆驼男人 2026-04-02 5/250 2026-04-02 10:18 by longlotian
[考研] 311求调剂 +16 zchqwer 2026-04-01 18/900 2026-04-02 10:15 by 不吃魚的貓
[考研] 一志愿北交大材料工程总分358 +3 cs0106 2026-04-02 3/150 2026-04-02 10:14 by jp9609
[考研] 316求调剂 +11 舟自梗 2026-04-01 12/600 2026-04-02 10:12 by 不吃魚的貓
[考研] 重庆大学材料与化工085600,初试370+,求求调剂建议 +5 shzhou_ 2026-04-01 6/300 2026-04-02 10:05 by olim
[考研] 282求调剂 +7 呼吸都是减肥 2026-04-01 7/350 2026-04-02 09:10 by vgtyfty
[考研] 一志愿346上海大学生物学 +3 上海大学346调剂 2026-04-01 3/150 2026-04-02 08:36 by w虫虫123
[考研] 282求调剂 +17 ycy1201 2026-04-01 19/950 2026-04-01 22:54 by peike
[考研] 一志愿西安交大材料学硕(英一数二)347,求调剂到高分子/材料相关专业 +7 zju51 2026-03-31 9/450 2026-04-01 19:35 by CFQZAFU
[考研] 349求调剂 +6 吃的不少 2026-04-01 6/300 2026-04-01 17:55 by JYD2011
[考研] 一志愿 南京航空航天大学 ,080500材料科学与工程学硕 +10 @taotao 2026-03-31 11/550 2026-04-01 09:43 by xiayizhi
[考研] 289求调剂 +7 BrightLL 2026-03-29 7/350 2026-03-31 22:05 by 544594351
[考研] 考研调剂求助 +7 13287130938 2026-03-31 7/350 2026-03-31 16:39 by 690616278
[考研] 材料与化工272求调剂 +25 阿斯蒂芬2004 2026-03-28 25/1250 2026-03-31 16:27 by hypershenger
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-31 4/200 2026-03-31 11:56 by jp9609
[考研] 调剂 +4 GK72 2026-03-30 4/200 2026-03-30 20:32 by dick_runner
[考研] 348求调剂 +6 小懒虫不懒了 2026-03-28 6/300 2026-03-30 10:29 by Evan_Liu
[考研] 085600,材料与化工321分求调剂 +10 大馋小子 2026-03-28 10/500 2026-03-29 23:35 by 飞行日记西
[考研] 304求调剂 +6 曼殊2266 2026-03-27 6/300 2026-03-28 14:10 by 唐沐儿
信息提示
请填处理意见