SELECTED_REAL_KIND(12) 是Fortran的内部函数, 返回一个合适精度值. 这个用来做精度控制可以不依赖系统和编译器.

SELECTED_REAL_KIND(P,R) 
· Integer transformational function. 
· Returns the kind number for the smallest real kind that has a decimal precision 
of at least P digits and an exponent range of at least R powers of 10. If more than 
one kind satisfies this constraint, then the kind returned will be the one with the 
smallest decimal precision. 
· If no real kind satisfies the requirement, a -1 is returned if the requested preci- 
sion was not available, a -2 is returned if the requested range was not avail- 
able, and a - 3 is returned if neither was available. 
· P and R must be integers. 

1._EB 就是这个1是EB精度的1.

这段代码习惯我挺喜欢, ^-^

SELECTED_REAL_KIND(12)：意思是如果要求数据有12位有效数字，那么定义数据类型的时候，应该是多少字节。
这里是12位有效数字，real(kind=8)才能满足要求，因此EB=8。
1._EB是等于1.0，后面加个_EB表示这个1.0是real(kind=8)类型的。

kind=8 严格来说也是依赖系统和编译器的(我也是看书才知道的). 据说有些系统下kind=2就是双精度.