"以定義一個雙精度 s 為例

方法1：

DOUBLE PRECISION :: s

方法2：

Real(8) :: s

方法3：

Real( Kind = 8 ) :: s

但方法2，和方法3，并不能保證所有編譯器都能夠認可 8，不同編譯器，對 8 的定義不同。

因此，最好的辦法是方法4：

Integer , parameter :: NP = SELECTED_REAL_KIND(8)

Real( Kind = NP ) :: s

其中，SELECTED_REAL_KIND(8) 表示自動選擇一種精度，使之能夠精確到小數點后 8 位。這個精度叫 NP，然后定義一個 NP 精度的變量，叫 s

（在32位編譯器上，NP 表示雙精度）"