这个程序有问题，不能运行。
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是什么格式和意识也不懂，经测试，去掉其中任何一个字母会出错
DP= kind(1.d0)
kind是种别，上面这句就是先读取1.d0的种别，并把种别作为一个整型变量赋值给DP
real(DP),parameter::e=2.71828182845904523560287_DP
e是一个常量，值为2.71828182845904523560287，e的种别是DP
#include
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024