Il Linguaggio Fortran 90/95
25.06.2013 • Views
Share Embed Flag

Il Linguaggio Fortran 90/95

Il Linguaggio Fortran 90/95

Il Linguaggio Fortran 90/95

SHOW MORE
SHOW LESS
ePAPER READ
DOWNLOAD ePAPER
homes.di.unimi.it

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

START NOW

5.5 Moduli 231<br />

REAL(r4),PARAMETER :: eps_r4 = 10.0_r4**(-sig_fig_r4)<br />

REAL(r8),PARAMETER :: eps_r8 = 10.0_r8**(-sig_fig_r8)<br />

! Valori di pi greco e della costante di Nepero<br />

REAL(r8),PARAMETER :: pi = &<br />

3.14159265358979323846264338327<strong>95</strong>0288419716939937510_r8<br />

REAL(r8),PARAMETER :: two_pi = 2*pi<br />

REAL(r8),PARAMETER :: four_pi = 4*pi<br />

REAL(r8),PARAMETER :: four_pi_o3 = four_pi/3<br />

REAL(r8),PARAMETER :: pi_over_2 = pi/2<br />

REAL(r8),PARAMETER :: natural_e = &<br />

2.71828182845<strong>90</strong>45235360287471352662497757247093699<strong>95</strong>_r8<br />

! Fattori di conversione da gradi a radianti e da radianti a gradi<br />

REAL(r8),PARAMETER :: degrees_to_radians = pi/180<br />

REAL(r8),PARAMETER :: radians_to_degrees = 180/pi<br />

! Costanti fisiche (espresse nel SI, salvo avviso contrario)<br />

REAL(r4),PARAMETER :: G = 6.673E-11_r4 !Costante di Gravitazione<br />

! Universale (N m^2/kg^2)<br />

REAL(r8),PARAMETER :: c = 2.99792458E08_r8 !Velocita’ della luce (m/s)<br />

REAL(r8),PARAMETER :: h = 6.62606876E-34_r8 !Costante di Planck (J s)<br />

REAL(r8),PARAMETER :: hbar = h/two_pi !hbar (J s)<br />

REAL(r8),PARAMETER :: k_B = 1.3806503E-23_r8 !Costante di Boltzmann (J/K)<br />

REAL(r8),PARAMETER :: sigma = & !Costante di Stefan-Boltzmann<br />

2*pi**5*k_B**4/(15*c**2*h**3) ! (J/m^2/s/K^4)<br />

REAL(r8),PARAMETER :: a_rad = 4*sigma/c !Costante di radiazione<br />

! (J/m^3/K)<br />

REAL(r8),PARAMETER :: m_p = 1.67262158E-27_r8 !Massa del protone (kg)<br />

REAL(r8),PARAMETER :: m_n = 1.67492716E-27_r8 !Massa del neutrone (kg)<br />

REAL(r8),PARAMETER :: m_e = 9.1093818897E-31_r8 !Massa dell’elettrone (kg)<br />

REAL(r8),PARAMETER :: m_H = 1.673532499E-27_r8 !Massa dell’idrogeno (kg)<br />

REAL(r8),PARAMETER :: uma = 1.66053873E-27_r8 !Unita’ di massa atomica (kg)<br />

REAL(r8),PARAMETER :: e = 1.602176462E-19_r8 !Carica dell’elettrone (C)<br />

REAL(r8),PARAMETER :: eV = 1.602176462E-19_r8 !1 elettron-volt (J)<br />

REAL(r8),PARAMETER :: keV = 1.0E3_r8*eV !1 kilo eV (J)<br />

REAL(r8),PARAMETER :: MeV = 1.0E6_r8*eV !1 Mega eV (J)<br />

REAL(r8),PARAMETER :: GeV = 1.0E9_r8*eV !1 Giga eV (J)<br />

REAL(r8),PARAMETER :: N_A = 6.02214199E23_r8 !Numero di Avogadro<br />

REAL(r8),PARAMETER :: R = 8.314472_r8 !Costante universale<br />

! dei gas (J/mol/K)<br />

! Costanti di tempo<br />

REAL(r8),PARAMETER :: hr = 3600 !1 ora (in s)

logo

Prodotti

Risorse

Aziende

Terms of service
Privacy policy
Cookie policy
Cookie settings
Imprint
Change language
Made with love in Switzerland
© 2024 Yumpu.com all rights reserved

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!