RANGE
copyright

green dotRANGE

書式RANGE(X)
機能 RANGEは、引数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