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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教一个简单的real语法，谢谢
51/1返回列表
查看: 2154  |  回复: 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 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 272求调剂 +6 田智友 2026-02-28 6/300 2026-03-01 21:40 by 公瑾逍遥
[考研] 0856求调剂285 +10 吕仔龙 2026-02-28 10/500 2026-03-01 21:37 by 公瑾逍遥
[考研] 299求调剂 +3 Y墨明棋妙Y 2026-02-28 5/250 2026-03-01 21:01 by tangxiaotian
[考研] 材料化工调剂 +10 今夏不夏 2026-03-01 11/550 2026-03-01 19:49 by 无懈可击111
[考研] 高分子化学与物理调剂 +6 好好好1233 2026-02-28 12/600 2026-03-01 19:48 by 好好好1233
[考研] 306分材料调剂 +4 chuanzhu川烛 2026-03-01 5/250 2026-03-01 19:48 by 无际的草原
[考研] 材料学硕318求调剂 +9 February_Feb 2026-03-01 11/550 2026-03-01 19:47 by 无懈可击111
[考研] 0856化工专硕求调剂 +12 董boxing 2026-03-01 12/600 2026-03-01 19:45 by 材子momo
[考研] 298求调剂 +6 axyz3 2026-02-28 6/300 2026-03-01 19:00 by 18137688336
[考研] 291分工科求调剂 +9 science饿饿 2026-03-01 10/500 2026-03-01 18:55 by 18137688336
[考研] 0857调剂 +3 一ll半 2026-02-28 3/150 2026-03-01 18:32 by 热情沙漠
[考博] 26申博 +4 想申博！ 2026-02-26 6/300 2026-03-01 17:32 by 想申博！
[考研] 0856材料求调剂 +4 麻辣鱿鱼 2026-02-28 4/200 2026-03-01 16:51 by caszguilin
[考研] 285求调剂 +8 满头大汗的学生 2026-02-28 8/400 2026-03-01 16:47 by caszguilin
[考研] 295复试调剂 +3 简木ChuFront 2026-03-01 3/150 2026-03-01 14:27 by zzxw520th
[考研] 调剂 +3 简木ChuFront 2026-02-28 3/150 2026-03-01 11:46 by 王伟要上岸啊
[论文投稿] 求助coordination chemistry reviews 的写作模板 10+3 ljplijiapeng 2026-02-27 4/200 2026-03-01 09:07 by babero
[考研] 材料调剂 +4 爱擦汗的可乐冰 2026-02-28 4/200 2026-03-01 00:38 by 猫猫球alter
[考研] 304求调剂 +3 52hz~~ 2026-02-28 5/250 2026-03-01 00:00 by 52hz~~
[考研] 264求调剂 +3 巴拉巴拉根556 2026-02-28 3/150 2026-02-28 21:31 by gaoxiaoniuma
信息提示
关闭
请填处理意见
关闭