-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathSCFT_constants.f90
29 lines (22 loc) · 924 Bytes
/
SCFT_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
!-------------------------------------------------------------------------
! type : module
! purpose : define the numerical and physical constants
! input :
! output :
! status : unstable
! comment :
!-------------------------------------------------------------------------
module constants
implicit none
!=========================================================================
!>>> integer constants: numerical precision <<<
!=========================================================================
!>>> integer constants: file unit handler <<<
!=========================================================================
! standard console output
integer, public, parameter :: mystd = 6
! log file out
integer, public, parameter :: myout = 99
! common file output
integer, public, parameter :: mytmp = 100
end module constants