-
Notifications
You must be signed in to change notification settings - Fork 14
/
Copy pathMODULE_CONSTANTS.f90
65 lines (57 loc) · 2.33 KB
/
MODULE_CONSTANTS.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
!=================================================================================================
!> CARTESIAN QUADTREE ADAPTIVE MESH REFINEMENT LIBRARY
!> AUTHOR: VAN-DAT THANG
!> E-MAIL: [email protected]
!> E-MAIL: [email protected]
!> SOURCE CODE LINK: https://github.com/dattv/QTAdaptive
!=================================================================================================
MODULE MODULE_CONSTANTS
use MODULE_PRECISION
private
public :: zero , &
one , &
two , &
three , &
four , &
five , &
six , &
seven , &
eight , &
nine , &
half , &
third , &
fourth , &
fifth , &
sixth , &
two_third , &
four_third , &
three_fourth , &
twelfth , &
one_twentyfourth
public :: MPI
public :: UNDERFINED_VALUE
public :: tolerance
real(rp), parameter :: zero = 0._rp , &
one = 1._rp , &
two = 2._rp , &
three = 3._rp , &
four = 4._rp , &
five = 5._rp , &
six = 6._rp , &
seven = 7._rp , &
eight = 8._rp , &
nine = 9._rp , &
half = 0.5_rp , &
third = 1.0_rp/ 3.0_rp, &
fourth = 1.0_rp/ 4.0_rp, &
fifth = 1.0_rp/ 5.0_rp, &
sixth = 1.0_rp/ 6.0_rp, &
two_third = 2.0_rp/ 3.0_rp, &
four_third = 4.0_rp/ 3.0_rp, &
three_fourth = 3.0_rp/ 4.0_rp, &
twelfth = 1.0_rp/12.0_rp, &
one_twentyfourth = 1.0_rp/24.0_rp
real(rp), parameter :: MPI = four*atan(one)
integer(ip), parameter :: UNDERFINED_VALUE = -9999
real(rp), parameter :: tolerance = 1.e-8_rp
END MODULE MODULE_CONSTANTS