MODULE precisions
  ! Parametros globais para selecionar a precisao. Modifique conforme o
  ! interesse e as possibilidades
  !
  !obs: SELECTED_REAL_KIND(6)  = single
  !     SELECTED_REAL_KIND(15) = double
  !     SELECTED_REAL_KIND(18) = double extended
  !     SELECTED_REAL_KIND(33) = quadruple
  !
  INTEGER, PARAMETER :: wp = SELECTED_REAL_KIND(15),& ! working precision
                        hp = SELECTED_REAL_KIND(33)   ! higher precision
END MODULE precisions