先声明类型，再定义常量。例如：real(16)::a parameter(a=1.)
kind=16是表示16位二进制数表达的实型吧。要得到更精确的结果，请用kind=32或kind=64。即使如此，用实数计算，很难做到你要求的严格相等!
多数ARK反内核工具中都存在驱动级别的内存转存功能，该功能可以将应用层中运行进程的内存镜像转存到特定...
等于编译时加上编译选项： -r4 , 这一般是默认的，-r8 双精度用来检测精确度达16为的计算时试用较多，比如矩阵中的伴随检验！
real*8就是说数据类型为双精度实型，占有储存空间为8个字节，有效位数为15-16位，可表示最大正数为1.79*10^308最小正数为2.23*10^（-308）希望帮到你！！
real*8就是说数据类型为双精度实型，占有储存空间为8个字节，有效位数为15-16位，可表示最大正数为1.79*10^308最小正数为2.23*10^（-308）希望帮到你！！