ＰＲＥＣＩＳＩＯＮ
copyright

green dotＰＲＥＣＩＳＩＯＮ

書式RANGE(X)
機能 PRECISIONは、引数Xと同じ型および同じ種別型パラメタの 数体系における10進精度を求める。
引数 X：実数型，複素数型でスカラまたは配列
戻り値 型、種別型パラメタは基本整数型で形状はスカラである。

green dotサンプルプログラム

実数型の10進精度と10進指数範囲を求める。 
    INTEGER,PARAMETER :: dp=SELECTED_REAL_KIND(10)
    REAL :: x;  REAL(KIND=dp) :: y
    WRITE(*,*) PRECISION(x) ![例]  6
    WRITE(*,*) RANGE(x)     ![例] 37
    WRITE(*,*) PRECISION(y) ![例] 15
    WRITE(*,*) RANGE(y)     ![例] 307
line-end