This module provide parameter of KIND.
種別型パラメタ値を提供するモジュールである。 この他のモジュールおよびプログラムは原則的に全て このモジュールを参照するようにする。 そのようにすることで、種別型パラメタ値を変更したい場合、 このモジュール内の値を変更するだけで全てのモジュールに その変更が適用される。
none.
private public :: REKIND, DBKIND, INTKIND, TOKEN, STRING, NMLARRAY ! variables
integer, parameter:: TOKEN = 32 ! 単語の文字列の長さ integer, parameter:: STRING = 500 ! 文章の文字列の長さ integer, parameter:: REKIND = kind(0.0e0) ! 単精度実数の精度 integer, parameter:: DBKIND = kind(0.0d0) ! 倍精度実数の精度 integer, parameter:: INTKIND = kind(0) ! 整数の精度 integer, parameter:: NMLARRAY = 100 ! NAMELIST で配列を取得する際の ! デフォルトの配列サイズ