0.0_p2是什么意思？

Question

请解释此处0.0_p2和1.0_p2的含义。

integer , parameter :: sp = kind(1.0)
integer , parameter :: p2 = selected_real_kind(2*precision(1.0_sp))

real(p2), parameter :: zero = 0.0_p2, &
                       one = 1.0_p2

Answer 1

术语

0.0_p2

是带有0.0种类的实数p2。您发布的代码段告诉我们p2表示表达式返回的类型

selected_real_kind(2*precision(1.0_sp))

所以p2可能与double precision相同，也可能是64位实数。