MODULE de_kind
  IMPLICIT NONE
  INTEGER, PARAMETER, PUBLIC :: &
    prec = SELECTED_REAL_KIND(12,100)
END MODULE de_kind