Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- USE, INTRINSIC :: ISO_Fortran_env, dp=>REAL64 !modern DOUBLE PRECISION
- REAL(dp), PARAMETER :: G_H2_alpha = 1.57D+04, G_H2_beta = 5.3D+03, G_H2_gamma = 4.5D+03
- REAL(dp) :: E_total_alpha, E_total_beta, E_total_gamma, P_H2_sed
- P_H2_sed = G_H2_alpha * E_total_alpha + G_H2_beta * E_total_beta * G_H2_gamma * E_total_gamma
Add Comment
Please, Sign In to add comment