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 : ...

   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))

3楼: Originally posted by lijunjiexm at 2011-10-10 00:30:48:
前面没有出现iwp了，我就觉得很奇怪，没出现iwp的定义，那默认是怎样呢

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

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