Question

一个fortran程序问题。

module mathconstant
implicit none
integer::DP= kind(1.d0)
real(DP),parameter::e=2.71828182845904523560287_DP
end module mathconstant
program main
use module mathconstant
implicit none
real e
write( *,*),e*2
end
这程序没问题吧。。。。
integer::DP= kind(1.d0)这是什么意思啊 找不到啊
real(DP),parameter::e=2.71828182845904523560287_DP 这句呢

Answer 1

这个程序有问题，不能运行。
kind(1.d0)=8,因为1.d0是双精度的。
real(DP),parameter::e=2.71828182845904523560287_DP这样赋值出错：DP不能是变量，在前一行应改为integer,parameter:: DP=kind(1.d0)才成
至于::e=2.71828182845904523560287_DP 后面多的那个DP是什么格式和意识也不懂，经测试，去掉其中任何一个字母会出错

追问

你的认真仔细让我感动啊 ，， 那确实是我打错了。。

Answer 2

DP= kind(1.d0)
kind是种别，上面这句就是先读取1.d0的种别，并把种别作为一个整型变量赋值给DP
real(DP),parameter::e=2.71828182845904523560287_DP
e是一个常量，值为2.71828182845904523560287，e的种别是DP

追问

1.d0的种别什么样的种别？那本书上竟然提都不提啊 ，，谢谢.

SELECTED_REAL_KIND([n][,m]) ：该函数返回实型变量对所取的值范围和精度恰当的种别值。其中 n 是指明十进制有效位的位数， m 指明值范围内以 10 为底的幂次。就是没这个啊。

Answer 3

#include

追问

什么意思？？？