24小时热门版块排行榜    

查看: 2569  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 食品专硕 一志愿双一流 328 +3 xiaom99 2026-03-21 4/200 2026-03-24 21:20 by lailaisimei
[考研] 调剂 +4 13853210211 2026-03-24 4/200 2026-03-24 19:44 by ms629
[考研] 材料专硕331求调剂 +4 鲜当牛 2026-03-24 4/200 2026-03-24 15:58 by JourneyLucky
[材料工程] 一志愿C9材料与化工专业总分300求调剂 +4 曼111 2026-03-24 5/250 2026-03-24 15:44 by 星空星月
[考研] 求调剂一志愿武汉理工大学材料工程(085601) +5 WW.' 2026-03-23 7/350 2026-03-24 14:50 by sprinining
[考研] 一志愿吉大化学322求调剂 +4 17501029541 2026-03-23 6/300 2026-03-24 10:21 by 戴围脖的小蚊子
[考研] 一志愿河北工业大学0817化工278分求调剂 +7 jhybd 2026-03-23 12/600 2026-03-24 09:03 by jhybd
[考研] 269求调剂 +4 我想读研11 2026-03-23 4/200 2026-03-23 21:25 by pswait
[考研] 化学308分求调剂 +3 你好明天你好 2026-03-23 3/150 2026-03-23 20:11 by macy2011
[考研] 333求调剂 +3 ALULU4408 2026-03-23 3/150 2026-03-23 19:04 by macy2011
[考研] 工科0856求调剂 +5 沐析汀汀 2026-03-21 5/250 2026-03-23 17:56 by 海瑟薇-
[考研] 311求调剂 +6 冬十三 2026-03-18 6/300 2026-03-22 20:18 by edmund7
[考研] 315分,诚求调剂,材料与化工085600 +3 13756423260 2026-03-22 3/150 2026-03-22 20:11 by edmund7
[考研] 求调剂一志愿海大,0703化学学硕304分,有大创项目,四级已过 +6 幸运哩哩 2026-03-22 10/500 2026-03-22 20:10 by edmund7
[考研] 308求调剂 +3 墨墨漠 2026-03-21 3/150 2026-03-22 16:54 by i_cooler
[考研] 265求调剂 +12 梁梁校校 2026-03-19 14/700 2026-03-21 13:38 by lature00
[考研] 材料学学硕080502 337求调剂-一志愿华中科技大学 +4 顺顺顺mr 2026-03-18 5/250 2026-03-21 10:22 by luoyongfeng
[考研] 一志愿武理材料305分求调剂 +6 想上岸的鲤鱼 2026-03-18 7/350 2026-03-21 01:03 by JourneyLucky
[考研] 一志愿 西北大学 ,070300化学学硕,总分287,双非一本,求调剂。 +3 晨昏线与星海 2026-03-18 3/150 2026-03-21 00:46 by JourneyLucky
[考研] 320求调剂0856 +3 不想起名字112 2026-03-19 3/150 2026-03-19 22:53 by 学员8dgXkO
信息提示
请填处理意见