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

Last change on this file since 20 was 20, checked in by mafoipsl, 15 years ago

MAF: Move comments before MODULE statement after this statement

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