cpld_gridgen  1.13.0
 All Data Structures Files Functions Variables Pages
gengrid_kinds.F90
Go to the documentation of this file.
1 
7 
9 
10  implicit none
11 
12  integer,parameter :: real_kind = selected_real_kind( 6)
13  integer,parameter :: dbl_kind = selected_real_kind(12)
14 
15  integer,parameter :: int_kind = selected_int_kind ( 6)
16  integer,parameter :: int8_kind = selected_int_kind (13)
17 
18  integer, parameter :: CL = 256
19  integer, parameter :: CM = 64
20  integer, parameter :: CS = 24
21 
22 end module gengrid_kinds