blob: b807c1202aa46cf44c0cd1ee2762a3e4946cbd5a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
!
!---------------------------------------------------------------------
!
!Purpose:
! To store common constants relarive to accuracy or to mathematics.
!
!Copyright:
! Copyright (C) 2001 Ecole Polytechnique de Montreal.
!
!Author(s):
! X. Warin
!
!---------------------------------------------------------------------
!
MODULE PRECISION_AND_KINDS
INTEGER, PARAMETER :: PDB = SELECTED_REAL_KIND(8)
REAL(PDB), PARAMETER :: PI=3.14159265358979, TWOPI=2.*PI, &
HALFPI=PI/2., SMALL=1.E-20,INFINITY=1.E20
REAL(PDB) :: HUGE_PDB,LOG10_HUGE_PDB,TINY_PDB,LOG10_TINY_PDB
END MODULE PRECISION_AND_KINDS
|
