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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教一个简单的real语法，谢谢
71/1返回列表
查看: 2427  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +3 PbwVEMK5haaE 2026-08-25 5/250 2026-08-26 05:09 by cNXvBfCpiZOM
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 Qj98d49dHFb9 2026-08-25 5/250 2026-08-26 04:57 by cNXvBfCpiZOM
[考研] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 7K1CJE38xLG4 2026-08-25 4/200 2026-08-26 02:04 by cNXvBfCpiZOM
[基金申请] 今天务委会开完了，明天出结果吗 +18 angus9576 2026-08-25 22/1100 2026-08-26 00:41 by merchancy
[基金申请] 明天应该可查了！？ +6 chengyan1220 2026-08-23 6/300 2026-08-25 19:45 by zfd97
[基金申请] 放榜前的不淡定 20+4 snowwithsea 2026-08-19 19/950 2026-08-25 17:57 by chick875
[基金申请] 某些机构，以效率低为荣，以效率低作为存在感 +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
[基金申请] 没有任何消息-是不是就凉了 +9 图啦图啦 2026-08-24 10/500 2026-08-25 11:59 by 南海小哥
[教师之家] 导师吐槽：我怎么摊上了这么个极品研究生！ +3 苏东坡二世 2026-08-23 3/150 2026-08-25 10:35 by shisan1313
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +5 process2012 2026-08-23 7/350 2026-08-25 09:42 by huixian257
[基金申请] 我面上完蛋了 +13 且听虎啸 2026-08-20 14/700 2026-08-25 09:10 by mrkang
[基金申请] 只有每年这种时候来逛逛小木虫 +25 yaoyewhu2008 2026-08-20 27/1350 2026-08-25 08:01 by Equinoxhua
[基金申请] 让我中一个面上吧！ +13 大萍1987 2026-08-20 16/800 2026-08-24 10:23 by 太傻了
[基金申请] 科研孤儿太难了 +18 我4大白菜 2026-08-20 19/950 2026-08-24 09:47 by 凯恩广盛催化分�
[教师之家] 跳槽后在研项目怎么办？ +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
[基金申请] 看来今天不会放榜了？ +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 紫杉醇
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
信息提示
关闭
请填处理意见
关闭