MODULE defprec 
!-
! $Id: def.prec 386 2008-09-04 08:38:48Z bellier $
!-
! This software is governed by the CeCILL license
! See IOIPSL/IOIPSL_License_CeCILL.txt
!!--------------------------------------------------------------------
!! The module "defprec" set default precision for computation
!!
!! This module should be used by every modules
!! to keep the right precision for every variable
!!--------------------------------------------------------------------
!?INTEGERS of KIND 1 are not supported on all computers
!?INTEGER,PARAMETER :: i_1=SELECTED_INT_KIND(2)
  INTEGER, PARAMETER, PUBLIC :: i_2=SELECTED_INT_KIND(4)  
  INTEGER, PARAMETER, PUBLIC :: i_4=SELECTED_INT_KIND(9)
  INTEGER, PARAMETER, PUBLIC :: i_8=SELECTED_INT_KIND(13)
  INTEGER, PARAMETER, PUBLIC :: r_4=SELECTED_REAL_KIND(6,37)    !< Simple precision real
  INTEGER, PARAMETER, PUBLIC :: r_8=SELECTED_REAL_KIND(15,307)  !< Double precision real
  INTEGER, PARAMETER, PUBLIC :: i_std=i_4, r_std=r_8
  !
!-----------------
END MODULE defprec