MODULE double
    INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(12)
END MODULE double