[tsscds] View of /trunk/src/constants.f90
View of /trunk/src/constants.f90
Parent Directory
| Revision Log
Revision 279 -
( download)
( annotate)
Wed Jun 27 20:30:08 2018 UTC
(5 years, 11 months ago)
by baaden
File size: 391 byte(s)
move to trunk 1
module constants
implicit none
save
! Definition of the constants
real, parameter :: c1=0.04184
real, parameter :: C6=1.8836518D-3
real, parameter :: pi=3.1415927
real, parameter :: vf=1.d6
real, parameter :: planck=6.62607004d-34
real, parameter :: boltz=1.38064852d-23
real, parameter :: r=1.987d-3
real, parameter :: avog=6.022d23
real, parameter :: ratm=0.08205746
end module constants
|