ＤＩＧＩＴＳ
copyright

green dotＤＩＧＩＴＳ

書式DIGITS(X)
機能 引数Xと同じ型および同じ種別型パラメタの数体系の 有効けた数(表1のq、表2のpの値)を求める。
引数 X：整数型、実数型でスカラまたは配列
戻り値 型、種別型パラメタは基本整数型で、形状はスカラである。

green dotサンプルプログラム

整数型、実数型の有効けた数を求める。
実行すると、たとえば31,63,24,53の順で出力される。 
    INTEGER,PARAMETER :: k=SELECTED_INT_KIND(10)
    INTEGER,PARAMETER :: dp=SELECTED_REAL_KIND(10)
    INTEGER         :: i  !基本整数型の変数
    INTEGER(KIND=k) :: j  !種別型パラメタkの変数
    REAL            :: x  !基本実数型の変数
    REAL(KIND=dp)   :: y  !種別型パラメタdpの変数
    WRITE(*,*) DIGITS(i)  !基本整数型の有効桁数q  [例] 31
    WRITE(*,*) DIGITS(j)  !種別型kの有効桁数q     [例] 63
    WRITE(*,*) DIGITS(x)  !基本実数型の有効桁数p  [例] 24
    WRITE(*,*) DIGITS(y)  !種別型dpの有効桁数p    [例] 53
(表１)整数の数体系
hyou1 r2以上の整数
q正の整数
wk0以上r未満
s+1または-1
(表２)実数の数体系
hyou2 b,p2以上の整数
fk 0以上b未満(f1≠0)
s+1または -1
e最小値の整数eminから最大値の
整数 emaxまでの間の整数