IGMBaseLib 1.0
|
00001 00012 module Universal_Constants 00013 ! モジュール引用 ; Use statements 00014 ! 00015 00016 ! 種類型パラメータ 00017 ! Kind type parameter 00018 ! 00019 use dc_types, only: DP ! 倍精度実数型. Double precision. 00020 00021 ! 宣言文 ; Declaration statements 00022 ! 00023 implicit none 00024 private 00025 00028 real(DP), parameter :: univ_G = 6.67428e-11 00029 00032 real(DP), parameter :: uni_R = 8.314472 00033 00034 end module Universal_Constants