24小时热门版块排行榜    

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

astringent

铜虫 (著名写手)

[交流] 【求助】请教一个赋值的问题【已完结】已有3人参与

我想把双精度行数组cell的三个元素都赋值为1/2,可以这样写吗?double precision  :: cell(3)=-0.5
另外,我在主程序中定义double precision  :: cell(3)=-0.5,然后调用子程序test(cell),在子程序中声明数组时用的是double precision  :: cell(*),为什么编译时回出错呢,该如何解决,请大家帮忙看看,多谢。

[ Last edited by nono2009 on 2010-11-17 at 10:05 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ykwang

金虫 (正式写手)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
nono2009(金币+1):鼓励应助 2010-11-17 09:53:44
引用回帖:
Originally posted by hakekill at 2010-11-13 08:26:19:
你的赋值应该是这样的
double precision :: cell(3)
cell = -0.5

cell=-0.5 不能保证双精度, 应该为cell=-0.5D0。
Nothing_Is_Impossible!
3楼2010-11-13 10:05:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

hakekill

木虫 (小有名气)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
nono2009(金币+1):鼓励应助 2010-11-17 09:53:36
你的赋值应该是这样的
double precision :: cell(3)
cell = -0.5
2楼2010-11-13 08:26:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复(可上传附件)
信息提示
请填处理意见