constants.f90

Go to the documentation of this file.

module constants
    use,intrinsic :: iso_fortran_env, only: dp => real64
    implicit none
    real(dp), parameter :: &
        pi=3.1415926535897932384626433832795028841971693993751058209749445923&
            &078164062862089986280348253421170679_dp,&  !<pi
        sigmab=5.67037321e-8_dp,&       
        kb=1.380648813e-23_dp,&         
        rg=8.31446218_dp,&              
        na=rg/kb,&                      
        eulergamma=0.5772156649015328606&
            &065120900824024310421_dp,& 
        c0=299792458e0_dp,&             
        hpc=6.6260695729e-34_dp,&       
        c2=0.014387752_dp             
    complex(dp), parameter :: iu=(0.0e0_dp,1.0e0_dp)       
    character(len=80) :: &
        gasname(4)
    real(dp), dimension(4) :: & !oxygen, nitrogen, carbon dioxide, cyclopentane
        tc=(/154.58_dp,126.19_dp,304.17_dp,511.7_dp/),&   
        pc=(/5.043e6_dp,3.396e6_dp,7.386e6_dp,45.1e5_dp/),&    
        mg=(/32e-3_dp,28e-3_dp,44e-3_dp,70e-3_dp/),&   
        tb=(/90.19_dp,77.36_dp,194.75_dp,322.4_dp/),&  
        cpg=(/0,0,0,0/) 
end module constants