Some fondamental constants.
More...
|
|
real *8, parameter | pi =3.141592653589793d0 |
| |
|
real *8, parameter | deupi =2.d0*pi |
| |
|
real *8, parameter | pis2 =pi/2.d0 |
| |
|
real *8, parameter | deg2rad =1.745329251994330d-2 |
| |
|
real *8, parameter | rad2deg =57.295779513082320d0 |
| |
|
real, parameter | kb = 1.380658e-23 |
| |
|
real, parameter | gm = 6.6726e-17 |
| |
|
real *8, parameter | au = 149.597870691e6 |
| |
|
real, parameter | uma =1.6605e-27 |
| |
|
real, parameter | me =9.1094e-31 |
| |
|
real, parameter | charge =1.6022e-19 |
| |
|
real, parameter | kbev =kb/charge |
| |
|
real, parameter | r_gas =uma/kb |
| |
|
real, parameter | epso =8.85419e-12 |
| |
|
real, parameter | qpiepso_1 =1./4./pi/epso |
| |
|
real, parameter | muo =4.e-7*Pi |
| |
|
real, parameter | hplanck =6.62e-34 |
| |
|
real, parameter | clum =2.99792e8 |
| |
|
real, parameter | hc =hplanck*clum |
| |
|
real, parameter | hc_nm_ev =hc/charge*1e9 |
| |
|
real *8, parameter | one3rd =1.d0/3.d0 |
| |
|
real *8, parameter | one6th =one3rd/2.d0 |
| |
|
real *8, parameter | ftpi =4.1887902 |
| |
|
real *8, parameter | bignum =1.e38 |
| |
|
real *8, parameter | diff1 =1.d0 |
| |
|
real, parameter | r2_3 =2./3. |
| |
|
real, parameter | r2_9kb =2./9./kb |
| |
|
real *8, parameter | sqt3 =1.732050807568877d0 |
| |
|
real *8, parameter | sqt3_2 =0.866025403784439d0 |
| |
|
real, parameter | cq1 =11./18. |
| |
|
real, parameter | cq2 =8./9. |
| |
|
real, parameter | cq3 =17./9. |
| |
|
real, parameter | cq4 =-cq2 |
| |
|
real, parameter | cq5 =4./9. |
| |
|
integer | ind_ode =5 |
| |
|
real *8, parameter | j2000 =2451545.0d0 |
| |
Some fondamental constants.
The documentation for this module was generated from the following file:
1.8.5
