SICOPOLIS V5-dev
Revision 1420
Main Page
Modules
Data Types List
Files
File List
File Members
subroutines
general
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-2019 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
!<------------------------------------------------------------------------------
35
module
sico_types_m
36
37
implicit none
38
save
39
40
#if !defined(ALLOW_OPENAD)
41
42
integer
,
parameter
::
i1b
= selected_int_kind(2)
!< 1-byte integers
43
integer
,
parameter
::
i4b
= selected_int_kind(9)
!< 4-byte integers
44
integer
,
parameter
::
sp
= kind(1.0)
!< Single-precision reals
45
integer
,
parameter
::
dp
= kind(1.0d0)
!< Double-precision reals
46
47
#else
48
49
integer
,
parameter
::
i1b
= 4
50
! SHK: found that setting i1b=4 (4-byte integers) is the only way
51
! to make OpenAD not have a whirl opcode error
52
integer
,
parameter
::
i4b
= 4
53
integer
,
parameter
::
sp
= 4
54
integer
,
parameter
::
dp
= 8
55
56
#endif
57
58
end module
sico_types_m
59
!
sico_types_m::i1b
integer, parameter i1b
1-byte integers
Definition:
sico_types_m.F90:42
sico_types_m
Declarations of kind types for SICOPOLIS.
Definition:
sico_types_m.F90:35
sico_types_m::i4b
integer, parameter i4b
4-byte integers
Definition:
sico_types_m.F90:43
sico_types_m::sp
integer, parameter sp
Single-precision reals.
Definition:
sico_types_m.F90:44
sico_types_m::dp
integer, parameter dp
Double-precision reals.
Definition:
sico_types_m.F90:45
Generated on Tue Feb 5 2019 10:22:11 for SICOPOLIS V5-dev by
1.8.11