| module precision | |
| integer, parameter :: rk = selected_real_kind(8) | |
| integer, parameter :: ik = selected_real_kind(4) | |
| end module | |
| module precision | |
| integer, parameter :: rk = selected_real_kind(8) | |
| integer, parameter :: ik = selected_real_kind(4) | |
| end module | |