source: IOIPSL/trunk/src/def.prec @ 11

Last change on this file since 11 was 11, checked in by bellier, 15 years ago

JB: on the road to svn

  • Property svn:keywords set to Id
File size: 764 bytes
RevLine 
[11]1! $Id$
[4]2MODULE defprec
3!!--------------------------------------------------------------------
4!! The module "defprec" set default precision for computation
5!!
6!! This module should be used by every modules
7!! to keep the right precision for every variable
8!!--------------------------------------------------------------------
9!?INTEGERS of KIND 1 are not supported on all computers
10!?INTEGER,PARAMETER :: i_1=SELECTED_INT_KIND(2)
11  INTEGER,PARAMETER :: i_2=SELECTED_INT_KIND(4)
12  INTEGER,PARAMETER :: i_4=SELECTED_INT_KIND(9)
13  INTEGER,PARAMETER :: i_8=SELECTED_INT_KIND(13)
14  INTEGER,PARAMETER :: r_4=SELECTED_REAL_KIND(6,37)
15  INTEGER,PARAMETER :: r_8=SELECTED_REAL_KIND(15,307)
[11]16  INTEGER,PARAMETER :: i_std=i_?, r_std=r_?
[4]17!-----------------
18END MODULE defprec
Note: See TracBrowser for help on using the repository browser.