MODULE fund_const implicit none real(8), parameter :: q=1.60219e-19 real(8), parameter :: m0=9.1085e-31 real(8), parameter :: eps0=8.854e-12 real(8), parameter :: hbar=1.05459e-34 real(8), parameter :: bc=1.38e-23 real(8), parameter :: pi=3.14159265358979324 real(8), parameter :: pi2=6.2831853072 real(8), parameter :: pi4=12.5663706144 real(8), parameter :: pio2=1.5707963268 real(8), parameter:: mAlGaAs = 0.09*m0 real(8), parameter:: mGaAs = 0.067*m0 integer, parameter:: sites = 150 real(8), parameter:: deviceLength = 1.0d-6 real(8), parameter:: nominalWidth = 10.0d-9 real(8), parameter:: initialVelocity = 1.0d5 real(8), parameter:: velocitySlope = 2.0 integer, parameter:: modeCount = 30 real(8), parameter:: totalTime = 1.6d-11 integer, parameter:: timeSteps = 60 real(8), parameter :: c0=0.0d0 real(8), parameter :: c1=1.0d0 real(8), parameter :: c2=2.0d0 complex(8), parameter :: cimag=dcmplx(c0,c1) END MODULE fund_const