应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教一个简单的real语法，谢谢
71/1返回列表
查看: 2085  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

lijunjiexm

铁虫 (小有名气)

[求助] 请教一个简单的real语法，谢谢

请教一下下面语句如何解释，谢谢
REAL(iwp)::det,one=1.0_iwp,pt5=0.5_iwp,rho,penalty=1.e20_iwp

我只有见过real（kind=4）:: det, ...这样的，但是上面的one=1.0_iwp到底什么意思，当然还有real（iwp）。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-10-09 10:03:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★
xzhdty(金币+1): 欢迎常来程序语言看看 2011-10-10 07:47:40
lijunjiexm(金币+8): 3Q 2011-10-11 08:26:40
你往前翻，看看 iwp 是如何定义的。我猜应该是类似于：
CODE:
   integer(kind=kind(1)), parameter :: ip = kind(1)
   integer(kind=ip), parameter :: iwp = kind(1.0)
   integer(kind=ip), parameter :: idp = selected_real_kind(2*precision(1.0_iwp))

定义了上面之后， 1.0_iwp 表示 1.0 是一个 real(kind=iwp)，即单精度实数，而 1.0_idp 表示 1.0 是一个 real(kind=idp)，即 double precision 实数

直接写 real(kind=4) 不具有可移植性，所以，最好不要这么直接写，呵呵……
赞一下(1人) 回复此楼
2楼2011-10-09 13:46:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lijunjiexm

铁虫 (小有名气)
引用回帖:
2楼: Originally posted by snoopyzhao at 2011-10-09 13:46:15:
你往前翻，看看 iwp 是如何定义的。我猜应该是类似于：
[code]
   integer(kind=kind(1)), parameter :: ip = kind(1)
   integer(kind=ip), parameter :: iwp = kind(1.0)
   integer(kind=ip), parameter : ...

前面没有出现iwp了，我就觉得很奇怪，没出现iwp的定义，那默认是怎样呢
赞一下 回复此楼
3楼2011-10-10 00:30:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★
微尘、梦想(金币+1): 谢谢参与应助~ 2011-10-10 19:44:58
引用回帖:
3楼: Originally posted by lijunjiexm at 2011-10-10 00:30:48:
前面没有出现iwp了，我就觉得很奇怪，没出现iwp的定义，那默认是怎样呢

那肯定在别的地方出现过，比如 module 啥的，你看程序的开头有没有写着 use 什么样的语句。据我所知，Fortran 中没有这类预定义常数……

或者，你把代码贴出来吧，省得猜了……
赞一下(1人) 回复此楼
4楼2011-10-10 08:28:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lijunjiexm

铁虫 (小有名气)
引用回帖:
4楼: Originally posted by snoopyzhao at 2011-10-10 08:28:38:
那肯定在别的地方出现过，比如 module 啥的，你看程序的开头有没有写着 use 什么样的语句。据我所知，Fortran 中没有这类预定义常数……

或者，你把代码贴出来吧，省得猜了……

不好意思，前面有的，我没注意到，就在第一行：

INTEGER,PARAMETER::iwp=SELECTED_REAL_KIND(15)
INTEGER::fixed_freedoms,i,iel,iters,k,limit,nband,ndim=2,nels,neq,nip=4, &
nn,nod=8,nodf=4,nodof=3,nr,ntot=20,nxe,nye
REAL(iwp)::det,one=1.0_iwp,penalty=1.e20_iwp,pt5=0.5_iwp,rho,tol,ubar, &
vbar,visc,zero=0.0_iwp
赞一下 回复此楼
5楼2011-10-10 09:25:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

候鸟心空

新虫 (初入文坛)
引用回帖:
5楼: Originally posted by lijunjiexm at 2011-10-10 09:25:15
不好意思，前面有的，我没注意到，就在第一行：

INTEGER,PARAMETER::iwp=SELECTED_REAL_KIND(15)
INTEGER::fixed_freedoms,i,iel,iters,k,limit,nband,ndim=2,nels,neq,nip=4, &
nn,nod=8,nodf=4,nodof=3,nr, ...

这个问题你解决了吗？我也想知道，能告诉我吗？
赞一下 回复此楼
6楼2015-01-28 14:46:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

候鸟心空

新虫 (初入文坛)
引用回帖:
5楼: Originally posted by lijunjiexm at 2011-10-10 09:25:15
不好意思，前面有的，我没注意到，就在第一行：

INTEGER,PARAMETER::iwp=SELECTED_REAL_KIND(15)
INTEGER::fixed_freedoms,i,iel,iters,k,limit,nband,ndim=2,nels,neq,nip=4, &
nn,nod=8,nodf=4,nodof=3,nr, ...

我查到了，表示双精度。
赞一下 回复此楼
7楼2015-01-28 14:50:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lijunjiexm 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭