SICOPOLIS V3.3
sico_types_m.F90
Go to the documentation of this file.
1 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2 !
3 ! Module : s i c o _ t y p e s _ m
4 !
5 !> @file
6 !!
7 !! Declarations of kind types for SICOPOLIS.
8 !!
9 !! @section Copyright
10 !!
11 !! Copyright 2009-2017 Ralf Greve
12 !!
13 !! @section License
14 !!
15 !! This file is part of SICOPOLIS.
16 !!
17 !! SICOPOLIS is free software: you can redistribute it and/or modify
18 !! it under the terms of the GNU General Public License as published by
19 !! the Free Software Foundation, either version 3 of the License, or
20 !! (at your option) any later version.
21 !!
22 !! SICOPOLIS is distributed in the hope that it will be useful,
23 !! but WITHOUT ANY WARRANTY; without even the implied warranty of
24 !! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25 !! GNU General Public License for more details.
26 !!
27 !! You should have received a copy of the GNU General Public License
28 !! along with SICOPOLIS. If not, see <http://www.gnu.org/licenses/>.
29 !<
30 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
31 
32 !-------------------------------------------------------------------------------
33 !> Declarations of kind types for SICOPOLIS.
34 !<------------------------------------------------------------------------------
36 
37 implicit none
38 save
39 
40 integer, parameter :: i1b = selected_int_kind(2) !< 1-byte integers
41 integer, parameter :: i2b = selected_int_kind(4) !< 2-byte integers
42 integer, parameter :: i4b = selected_int_kind(9) !< 4-byte integers
43 integer, parameter :: sp = kind(1.0) !< Single-precision reals
44 integer, parameter :: dp = kind(1.0d0) !< Double-precision reals
45 
46 end module sico_types_m
47 !
integer, parameter i2b
2-byte integers
integer, parameter i1b
1-byte integers
Declarations of kind types for SICOPOLIS.
integer, parameter i4b
4-byte integers
integer, parameter sp
Single-precision reals.
integer, parameter dp
Double-precision reals.