BUGSrad
 All Classes Files Functions Variables
kinds.f90
Go to the documentation of this file.
1 
2 
3 ! CVS: $Id: kinds.F90,v 1.1 2004/01/26 16:24:44 norm Exp $
4 ! CVS: $Name: $
5 
6 !|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
7 
8 module kinds
9 
10 !***********************************************************************
11 !
12 ! This module defines variable precision for all common data
13 ! types.
14 !
15 !-----------------------------------------------------------------------
16 
17 implicit none
18 
19 !-----------------------------------------------------------------------
20 
21 integer, parameter :: char_len = 80, &
22  int_kind = kind(1), &
23  log_kind = kind(.true.), &
24  real_kind = selected_real_kind(6), &
25  dbl_kind = selected_real_kind(13) !13 for dble
26 
27 end module kinds
28 
29 !|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
30 
31