12   integer, parameter, private :: r8 = selected_real_kind(15)  variable
17        integer, parameter :: r8 = selected_real_kind(15)  local
23        integer, parameter :: r8 = selected_real_kind(15)  local
32        integer, parameter :: r8 = selected_real_kind(15)  local
40        integer, parameter :: r8 = selected_real_kind(15)  local
47        integer, parameter :: r8 = selected_real_kind(15)  local
53        integer, parameter :: r8 = selected_real_kind(15)  local
59        integer, parameter :: r8 = selected_real_kind(15)  local
65        integer, parameter :: r8 = selected_real_kind(15)  local
71             integer, parameter :: r8 = selected_real_kind(15)  local
79        integer, parameter :: r8 = selected_real_kind(15)  local
85             integer, parameter :: r8 = selected_real_kind(15)  local
93        integer, parameter :: r8 = selected_real_kind(15)  local
99        integer, parameter :: r8 = selected_real_kind(15)  local
105        integer, parameter :: r8 = selected_real_kind(15)  local
114        integer, parameter :: r8 = selected_real_kind(15)  local
121             integer, parameter :: r8 = selected_real_kind(15)  local
129        integer, parameter :: r8 = selected_real_kind(15)  local
135             integer, parameter :: r8 = selected_real_kind(15)  local
145        integer, parameter :: r8 = selected_real_kind(15)  local
152             integer, parameter :: r8 = selected_real_kind(15)  local
160        integer, parameter :: r8 = selected_real_kind(15)  local
166             integer, parameter :: r8 = selected_real_kind(15)  local
176        integer, parameter :: r8 = selected_real_kind(15)  local
184             integer, parameter :: r8 = selected_real_kind(15)  local
192        integer, parameter :: r8 = selected_real_kind(15)  local
199             integer, parameter :: r8 = selected_real_kind(15)  local
209        integer, parameter :: r8 = selected_real_kind(15)  local
217             integer, parameter :: r8 = selected_real_kind(15)  local
225        integer, parameter :: r8 = selected_real_kind(15)  local
232             integer, parameter :: r8 = selected_real_kind(15)  local
240        integer, parameter :: r8 = selected_real_kind(15)  local
250        integer, parameter :: r8 = selected_real_kind(15)  local
259             integer, parameter :: r8 = selected_real_kind(15)  local
267        integer, parameter :: r8 = selected_real_kind(15)  local
274             integer, parameter :: r8 = selected_real_kind(15)  local
282        integer, parameter :: r8 = selected_real_kind(15)  local
289        integer, parameter :: r8 = selected_real_kind(15)  local
295        integer, parameter :: r8 = selected_real_kind(15)  local
303        integer, parameter :: r8 = selected_real_kind(15)  local
310        integer, parameter :: r8 = selected_real_kind(15)  local
316        integer, parameter :: r8 = selected_real_kind(15)  local
323        integer, parameter :: r8 = selected_real_kind(15)  local
330        integer, parameter :: r8 = selected_real_kind(15)  local
336        integer, parameter :: r8 = selected_real_kind(15)  local
342        integer, parameter :: r8 = selected_real_kind(15)  local
348        integer, parameter :: r8 = selected_real_kind(15)  local