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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教一个简单的real语法，谢谢
51/1返回列表
查看: 2172  |  回复: 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的回帖

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的回帖
查看全部 7 个回答

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的回帖

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的回帖
查看全部 7 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 化学工程085602 305分求调剂 +12 RichLi_ 2026-03-25 12/600 2026-03-26 12:34 by 小小麦片
[考研] 一志愿北京化工大学材料与化工（085600）296求调剂 +4 稻妻小编 2026-03-26 4/200 2026-03-26 09:52 by allen-yin
[考研] 打过很多竞赛，085406控制工程300分，求调剂 +3 askeladz 2026-03-26 3/150 2026-03-26 09:08 by 给你你注意休息
[考研] 考研调剂 +6 来好运来来来 2026-03-21 7/350 2026-03-25 22:43 by 418490947
[考研] 086000生物与医药292求调剂 +4 小小陈小小 2026-03-22 7/350 2026-03-25 19:07 by 星空星月
[考研] 333求调剂 +6 87639 2026-03-21 11/550 2026-03-25 16:17 by 87639
[考研] 求调剂 +3 李李不服输 2026-03-25 3/150 2026-03-25 13:03 by cmz0325
[考研] 284求调剂 +15 Zhao anqi 2026-03-22 15/750 2026-03-25 12:51 by wht0531
[考研] 一志愿吉林大学材料与化工303分求调剂 +4 为学666 2026-03-24 4/200 2026-03-25 11:27 by BruceLiu320
[考研] 材料学求调剂 +6 Stella_Yao 2026-03-20 6/300 2026-03-25 00:37 by baoball
[考研] 材料调剂 +6 匹克i 2026-03-23 6/300 2026-03-24 21:09 by greychen00
[考研] 调剂 +4 13853210211 2026-03-24 4/200 2026-03-24 19:44 by ms629
[考研] 求调剂 +5 林之夕 2026-03-24 5/250 2026-03-24 17:16 by dick_runner
[考研] 292求调剂 +4 鹅鹅鹅额额额额� 2026-03-24 4/200 2026-03-24 16:41 by peike
[考研] 材料专硕331求调剂 +4 鲜当牛 2026-03-24 4/200 2026-03-24 15:58 by JourneyLucky
[考研] 085404电子信息284分求调剂 +4 13659058978 2026-03-24 4/200 2026-03-24 12:15 by syl20081243
[考研] 一志愿华东理工大学081700，初试分数271 +5 kotoko_ik 2026-03-23 6/300 2026-03-24 10:29 by 学术搬砖er
[考研] 工科0856求调剂 +5 沐析汀汀 2026-03-21 5/250 2026-03-23 17:56 by 海瑟薇-
[考研] 一志愿东华大学化学070300，求调剂 +7 2117205181 2026-03-21 8/400 2026-03-22 22:55 by chixmc
[考研] 295材料求调剂，一志愿武汉理工085601专硕 +5 Charlieyq 2026-03-19 5/250 2026-03-20 20:35 by JourneyLucky
信息提示
关闭
请填处理意见
关闭