MODULE cg_precision
  ! Määritellään liukulukujen tarkkuus
  IMPLICIT NONE
  INTEGER, PARAMETER :: &
      prec = SELECTED_REAL_KIND(12,50)
END MODULE cg_precision