24小时热门版块排行榜    

查看: 2729  |  回复: 10

11hours

铜虫 (小有名气)

[求助] format(4(f10.3,1x))中的4 怎么才能用一个变量代替呢?

format(4(f10.3,1x))中的4 怎么才能用一个变量代替呢?
就是变成
integer nodes
!!!!!!然后通过程序给nodes赋值表示模型有nodes个节点
然后输出节点矩阵用
format(nodes(f10.3,1x))
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
11hours: 金币+5, 有帮助 2012-07-13 22:33:44
有办法,但不用 format
CODE:
character*50 fmt
write(fmt, '(''('', i0,''(f10.3,1x))'')') nodes
write(*, fmt) ...

2楼2012-07-12 22:35:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

3楼2012-07-12 22:36:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

11hours

铜虫 (小有名气)

引用回帖:
2楼: Originally posted by snoopyzhao at 2012-07-12 22:35:31
有办法,但不用 format


character*50 fmt
write(fmt, '(''('', i0,''(f10.3,1x))'')') nodes
write(*, fmt) ...

我已经查到了,有办法,而且就用format
想不想知道?
4楼2012-07-13 08:48:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

11hours

铜虫 (小有名气)

11hours: 回帖置顶 2012-07-13 08:52:10
引用回帖:
2楼: Originally posted by snoopyzhao at 2012-07-12 22:35:31
有办法,但不用 format


character*50 fmt
write(fmt, '(''('', i0,''(f10.3,1x))'')') nodes
write(*, fmt) ...

刚回复的哪儿去了?
就是用format
正确格式是
format((f)/)
<> 用于format中指示变量的
5楼2012-07-13 08:49:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

11hours

铜虫 (小有名气)

木虫有bug,回复的不能立刻看见,要刷新
6楼2012-07-13 08:50:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

引用回帖:
4楼: Originally posted by 11hours at 2012-07-13 08:48:11
我已经查到了,有办法,而且就用format
想不想知道?...

我无所谓,因为我自己的代码中从来不用 format,呵呵……

我见过用带变量 format 的,不过用的是某编译器的扩展……
7楼2012-07-13 08:58:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

引用回帖:
5楼: Originally posted by 11hours at 2012-07-13 08:49:56
刚回复的哪儿去了?
就是用format
正确格式是
format(<Nodes>(f)/)
<> 用于format中指示变量的...

果然被我猜中了,你用 gfortran -std=f95 编译下看看,呵呵……

» 本帖已获得的红花(最新10朵)

8楼2012-07-13 08:59:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

11hours

铜虫 (小有名气)

送鲜花一朵
引用回帖:
8楼: Originally posted by snoopyzhao at 2012-07-13 08:59:12
果然被我猜中了,你用 gfortran -std=f95 编译下看看,呵呵……...

再帮个忙,你知道有限元怎么确定边界单元哪个边才是边界?
9楼2012-07-13 09:44:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

引用回帖:
9楼: Originally posted by 11hours at 2012-07-13 09:44:50
再帮个忙,你知道有限元怎么确定边界单元哪个边才是边界?...

这个帮不了你,不是我力所能及之范围……
10楼2012-07-13 10:15:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 11hours 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 投票:  有多少人是今天查系统知道结果的? +15 爱看书的可乐 2026-08-26 17/850 2026-08-27 05:50 by xxniao123
[基金申请] 国自然面上复盘~欢迎讨论 +5 晴天加油 2026-08-26 6/300 2026-08-27 04:49 by littlezl
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 LIbGuocjEEYw 2026-08-26 4/200 2026-08-27 02:01 by Ie9AyIAvGbvs
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +7 process2012 2026-08-23 10/500 2026-08-26 19:23 by hmhminy
[基金申请] 能否退出参与的面上项目解除限项 +23 koalala 2026-08-24 26/1300 2026-08-26 14:29 by 宝贝虫子
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 科研孤儿太难了 +21 我4大白菜 2026-08-20 22/1100 2026-08-26 11:29 by nlgza
[基金申请] 国际合作可查了,中了面上 +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
[基金申请] 某些机构,以效率低为荣,以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 今日不放榜?网传国自然预计 8 月 27 日可查结果 +17 医学老男孩 2026-08-20 22/1100 2026-08-25 15:36 by 医学老男孩
[基金申请] 如果此刻你正在为国基感到焦虑,不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
[基金申请] 人气不行了 +11 fansofjerry 2026-08-21 11/550 2026-08-25 11:04 by 孤独的英雄6
[基金申请] 看来今天不会放榜了? +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[基金申请] 时间戳又变了 +13 wuchongjun 2026-08-20 19/950 2026-08-21 17:21 by 紫杉醇
[基金申请] 应该是下周三26日公布了吧? +4 哈哈蛤? 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
信息提示
请填处理意见