OpenCMISS-Iron Internal API Documentation
kinds.f90
Go to the documentation of this file.
1 
43 
45 MODULE kinds
46 
47  IMPLICIT NONE
48 
49  !Module parameters
50 
55  INTEGER, PARAMETER :: intg=selected_int_kind(9)
56  INTEGER, PARAMETER :: sintg=selected_int_kind(4)
57  INTEGER, PARAMETER :: lintg=selected_int_kind(18)
58  INTEGER, PARAMETER :: ptr=intg
59  INTEGER, PARAMETER :: idx=intg
60  INTEGER, PARAMETER :: lidx=lintg
62 
67  INTEGER, PARAMETER :: sp=selected_real_kind(6,15)
68  INTEGER, PARAMETER :: dp=selected_real_kind(15,307)
69  INTEGER, PARAMETER :: qp=selected_real_kind(30,1000)
70 #ifdef SINGLE_REAL_PRECISION
71  INTEGER, PARAMETER :: rp=sp
72 #else
73  INTEGER, PARAMETER :: rp=dp
74 #endif
75 
76 
81  INTEGER, PARAMETER :: spc=kind((1.0_sp,1.0_sp))
82  INTEGER, PARAMETER :: dpc=kind((1.0_dp,1.0_dp))
83  !INTEGER, PARAMETER :: QPC=KIND((1.0_QP,1.0_QP))
84 #ifdef SINGLE_REAL_PRECISION
85  INTEGER, PARAMETER :: rpc=spc
86 #else
87  INTEGER, PARAMETER :: rpc=dpc
88 #endif
89 
90 
91 END MODULE kinds
integer, parameter ptr
Pointer integer kind.
Definition: kinds.f90:58
integer, parameter sintg
Short integer kind.
Definition: kinds.f90:56
integer, parameter idx
Integer index kind.
Definition: kinds.f90:59
integer, parameter intg
Standard integer kind.
Definition: kinds.f90:55
integer, parameter spc
Single precision complex kind.
Definition: kinds.f90:81
integer, parameter rpc
Real working precision complex kind i.e., single, double, etc.
Definition: kinds.f90:85
integer, parameter dp
Double precision real kind.
Definition: kinds.f90:68
integer, parameter sp
Single precision real kind.
Definition: kinds.f90:67
integer, parameter lintg
Long integer kind.
Definition: kinds.f90:57
integer, parameter lidx
Long integer index kind.
Definition: kinds.f90:60
integer, parameter rp
Real working precision kind i.e., single, double, etc.
Definition: kinds.f90:71
integer, parameter dpc
Double precision complex kind.
Definition: kinds.f90:82
This module contains all kind definitions.
Definition: kinds.f90:45
integer, parameter qp
Quadruple precision real kind.
Definition: kinds.f90:69