INTEGER, PARAMETER :: num = KIND(1.d0),REAL(num), PARAMETER :: c_tiny = TINY(1.0_num),里面的_num什么意思

`num` 在这里是一个整型常量，它的值等于 `1.d0` 的精度种类（即 `1.d0` 的数据类型）。在 Fortran 中，`KIND` 函数可以用来获取特定数据类型的精度种类。在这里，`KIND(1.d0)` 获取了双精度浮点数的数据类型，存储在 `num` 中。因此，`num` 可以用来指定双精度浮点数的数据类型。后面的 `REAL(num)` 语句中，`num` 被用来指定一个双精度浮点数的数据类型。同理，在 `TINY(1.0_num)` 中，`num` 被用来指定 `TINY` 函数返回值的数据类型。