Linux R2.6.5-7.282-sn2 FORTRAN90/SX Rev.360 Tue Oct 11 12:33:34 2011 FILE NAME: constants0.f90 PROGRAM NAME: constants0 TRANSFORMATION LIST LINE FORTRAN STATEMENT 1 != 物理・数学定数設定 2 ! 3 != Physical and mathematical constants settings 4 ! 5 ! Authors:: Yasuhiro MORIKAWA, Yoshiyuki O. Takahashi 6 ! Version:: $Id: constants0.f90,v 1.2 2011-06-21 06:14:52 sugiyama Exp $ 7 ! Tag Name:: $Name: arare5-20111010 $ 8 ! Copyright:: Copyright (C) GFD Dennou Club, 2008. All rights reserved. 9 ! License:: See COPYRIGHT[link:../../../COPYRIGHT] 10 ! 11 12 module constants0 13 ! 14 != 物理・数学定数設定 15 ! 16 != Physical and mathematical constants settings 17 ! 18 ! Note that Japanese and English are described in parallel. 19 ! 20 ! 物理・数学定数の設定および保管を行います. 21 ! デフォルト値は地球大気を想定した値が設定されています. 22 ! 23 ! Physical and mathematical constants are set and stored. 24 ! By default, values on atmosphere of earth are set. 25 ! 26 !== Procedures List 27 ! 28 ! Constants0Init :: 物理定数の設定 29 ! ------------ :: ------------ 30 ! Constants0Init :: Settings of physical constants 31 ! 32 !== NAMELIST 33 ! 34 ! N/A 35 ! 36 37 38 ! モジュール引用 ; USE statements 39 ! 40 41 ! 種別型パラメタ 42 ! Kind type parameter 43 ! 44 use dc_types, only: DP ! 倍精度実数型. Double precision. 45 46 ! 宣言文 ; Declaration statements 47 ! 48 implicit none 49 private 50 51 ! 公開手続き 52 ! Public procedure 53 ! 54 public:: Constants0Init 55 56 ! 公開変数 57 ! Public variables 58 ! 59 logical, save, public:: constants0_inited = .false. 60 ! 初期設定フラグ. 61 ! Initialization flag 62 63 real(DP), parameter, public:: PI = 3.1415926535897932_DP 64 ! $ \pi $ . 65 ! 円周率. Circular constant 66 real(DP), parameter, public:: GasRUniv = 8.314_DP 67 ! $ R^{*} $ [J K-1 mol-1]. 68 ! 普遍気体定数. Universal gas constant 69 real(DP), parameter, public:: StB = 5.67e-8_DP 70 ! $ \sigma_{SB} $ . 71 ! ステファンボルツマン定数. 72 ! Stefan-Boltzmann constant 73 74 ! 非公開変数 75 ! Private variables 76 ! 77 78 character(*), parameter:: module_name = 'constants0' 79 ! モジュールの名称. 80 ! Module name 81 character(*), parameter:: version = & 82 & '$Name: arare5-20111010 $' // & 83 & '$Id: constants0.f90,v 1.2 2011-06-21 06:14:52 sugiyama Exp $' 84 ! モジュールのバージョン 85 ! Module version 86 87 contains 88 89 !-------------------------------------------------------------------------------------- 90 91 subroutine Constants0Init 92 ! 93 ! constants0 モジュールの初期化を行います. 94 ! 95 ! "constants0" module is initialized. 96 ! 97 98 ! モジュール引用 ; USE statements 99 ! 100 101 ! メッセージ出力 102 ! Message output 103 ! 104 use dc_message, only: MessageNotify 105 106 ! 宣言文 ; Declaration statements 107 ! 108 implicit none 109 110 ! 実行文 ; Executable statement 111 ! 112 113 if ( constants0_inited ) return 114 115 116 ! 印字 ; Print 117 ! 118 ! call MessageNotify( 'M', module_name, '----- Initialization Messages -----' ) 119 ! call MessageNotify( 'M', module_name, ' PI = %f', d = (/ PI /) ) 120 ! call MessageNotify( 'M', module_name, ' GasRUniv = %f', d = (/ GasRUniv /) ) 121 ! call MessageNotify( 'M', module_name, ' StB = %f', d = (/ StB /) ) 122 ! call MessageNotify( 'M', module_name, '-- version = %c', c1 = trim(version) ) 123 124 constants0_inited = .true. 125 126 end subroutine Constants0Init 127 128 !-------------------------------------------------------------------------------------- 129 130 end module constants0 Linux R2.6.5-7.282-sn2 FORTRAN90/SX Rev.360 Tue Oct 11 12:33:34 2011 FILE NAME: constants0.f90 PROGRAM NAME: constants0 FORMAT LIST LINE LOOP FORTRAN STATEMENT 1: != 物理・数学定数設定 2: ! 3: != Physical and mathematical constants settings 4: ! 5: ! Authors:: Yasuhiro MORIKAWA, Yoshiyuki O. Takahashi 6: ! Version:: $Id: constants0.f90,v 1.2 2011-06-21 06:14:52 sugiyama Exp $ 7: ! Tag Name:: $Name: arare5-20111010 $ 8: ! Copyright:: Copyright (C) GFD Dennou Club, 2008. All rights reserved. 9: ! License:: See COPYRIGHT[link:../../../COPYRIGHT] 10: ! 11: 12: module constants0 13: ! 14: != 物理・数学定数設定 15: ! 16: != Physical and mathematical constants settings 17: ! 18: ! Note that Japanese and English are described in parallel. 19: ! 20: ! 物理・数学定数の設定および保管を行います. 21: ! デフォルト値は地球大気を想定した値が設定されています. 22: ! 23: ! Physical and mathematical constants are set and stored. 24: ! By default, values on atmosphere of earth are set. 25: ! 26: !== Procedures List 27: ! 28: ! Constants0Init :: 物理定数の設定 29: ! ------------ :: ------------ 30: ! Constants0Init :: Settings of physical constants 31: ! 32: !== NAMELIST 33: ! 34: ! N/A 35: ! 36: 37: 38: ! モジュール引用 ; USE statements 39: ! 40: 41: ! 種別型パラメタ 42: ! Kind type parameter 43: ! 44: use dc_types, only: DP ! 倍精度実数型. Double precision. 45: 46: ! 宣言文 ; Declaration statements 47: ! 48: implicit none 49: private 50: 51: ! 公開手続き 52: ! Public procedure 53: ! 54: public:: Constants0Init 55: 56: ! 公開変数 57: ! Public variables 58: ! 59: logical, save, public:: constants0_inited = .false. 60: ! 初期設定フラグ. 61: ! Initialization flag 62: 63: real(DP), parameter, public:: PI = 3.1415926535897932_DP 64: ! $ \pi $ . 65: ! 円周率. Circular constant 66: real(DP), parameter, public:: GasRUniv = 8.314_DP 67: ! $ R^{*} $ [J K-1 mol-1]. 68: ! 普遍気体定数. Universal gas constant 69: real(DP), parameter, public:: StB = 5.67e-8_DP 70: ! $ \sigma_{SB} $ . 71: ! ステファンボルツマン定数. 72: ! Stefan-Boltzmann constant 73: 74: ! 非公開変数 75: ! Private variables 76: ! 77: 78: character(*), parameter:: module_name = 'constants0' 79: ! モジュールの名称. 80: ! Module name 81: character(*), parameter:: version = & 82: & '$Name: arare5-20111010 $' // & 83: & '$Id: constants0.f90,v 1.2 2011-06-21 06:14:52 sugiyama Exp $' 84: ! モジュールのバージョン 85: ! Module version 86: 87: contains 88: 89: !-------------------------------------------------------------------------------------- 90: 91: subroutine Constants0Init 92: ! 93: ! constants0 モジュールの初期化を行います. 94: ! 95: ! "constants0" module is initialized. 96: ! 97: 98: ! モジュール引用 ; USE statements 99: ! 100: 101: ! メッセージ出力 102: ! Message output 103: ! 104: use dc_message, only: MessageNotify 105: 106: ! 宣言文 ; Declaration statements 107: ! 108: implicit none 109: 110: ! 実行文 ; Executable statement 111: ! 112: 113: if ( constants0_inited ) return 114: 115: 116: ! 印字 ; Print 117: ! 118: ! call MessageNotify( 'M', module_name, '----- Initialization Messages -----' ) 119: ! call MessageNotify( 'M', module_name, ' PI = %f', d = (/ PI /) ) 120: ! call MessageNotify( 'M', module_name, ' GasRUniv = %f', d = (/ GasRUniv /) ) 121: ! call MessageNotify( 'M', module_name, ' StB = %f', d = (/ StB /) ) 122: ! call MessageNotify( 'M', module_name, '-- version = %c', c1 = trim(version) ) 123: 124: constants0_inited = .true. 125: 126: end subroutine Constants0Init 127: 128: !-------------------------------------------------------------------------------------- 129: 130: end module constants0