MODULE types_module IMPLICIT NONE INTEGER, PARAMETER :: real4 = selected_real_kind(6,37) INTEGER, PARAMETER :: real8 = selected_real_kind(15,307) PUBLIC END MODULE types_module