24小时热门版块排行榜    

CyRhmU.jpeg
查看: 442  |  回复: 7
当前主题已经存档。

lindlar0078

木虫 (著名写手)

[交流] 【求助】程序编译出错!求教呀????已有4人参与

程序中有:
real(kind=dp), dimension(:,, allocatable :: efermi

kind=dp,表示什么含义呀?需不需要再定义dp的类型?在编译程序时总是出现Error: A kind type parameter must be a compile-time constant.   [DP]
      real(kind=dp)      :: efermi

不知道如何修改?请高手指点?
回复此楼
一切从头开始!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjyl

金虫 (正式写手)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢应助! 2010-03-14 09:17
kind=4,8,16...
表示储存变量用的字节数。
引用回帖:
Originally posted by lindlar0078 at 2010-03-12 16:56:50:
程序中有:
real(kind=dp), dimension(:,, allocatable :: efermi

kind=dp,表示什么含义呀?需不需要再定义dp的类型?在编译程序时总是出现Error: A kind type parameter must be a compile-time constant ...

2楼2010-03-14 00:02:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hakekill

木虫 (小有名气)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
nono2009(金币+1):鼓励应助! 2010-03-14 16:59
kind=4,8,16的含义是楼上说的那样

这里引入dp是为了方便在单精度和双精度之间做切换,而且在修改精度的时候也更加方便。
一般在使用dp之前,都会使用下面的语句来设定dp的值
integer, parameter :: dp = 4
3楼2010-03-14 14:55:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

figgers

铜虫 (初入文坛)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-04-03 15:22
INTEGER, PARAMETER :: DP = KIND(1.0D0)
4楼2010-04-03 15:00:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

figgers

铜虫 (初入文坛)

★ ★
wangen994(金币+1):感谢参与应助 2010-04-03 15:29
wangen994(金币+1):活动期间额外奖励 2010-04-03 15:29
引用回帖:
Originally posted by hakekill at 2010-03-14 14:55:04:
kind=4,8,16的含义是楼上说的那样

这里引入dp是为了方便在单精度和双精度之间做切换,而且在修改精度的时候也更加方便。
一般在使用dp之前,都会使用下面的语句来设定dp的值
integer, parameter :: dp = 4

dp就这么被你定义成4了,那sp岂不是2?
5楼2010-04-03 15:01:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hakekill

木虫 (小有名气)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
jjdg(金币+1):感谢参与交流 2010-04-06 19:04
引用回帖:
Originally posted by figgers at 2010-04-03 15:01:39:


dp就这么被你定义成4了,那sp岂不是2?

哈哈,我这里只是举一个例子,即通过dp的值可以设定变量的精度,对双精度设置为8,对单精度设置为4.
6楼2010-04-06 16:37:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

idgnauh

银虫 (小有名气)


小木虫(金币+0.5):给个红包,谢谢回帖交流
jjdg:欢迎回帖交流 2010-04-07 09:13
原来如此...又学到了好东西
7楼2010-04-07 08:11:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zjlxxjy

禁虫 (小有名气)

本帖内容被屏蔽

8楼2010-04-10 10:34:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lindlar0078 的主题更新
普通表情 高级回复(可上传附件)
信息提示
请填处理意见