ＭＩＮＥＸＰＯＮＥＮＴ
copyright

green dotＭＩＮＥＸＰＯＮＥＮＴ

書式MINEXPONENT(X)
機能 引数Xと同じ型および同じ種別型パラメタの 数体系における指数部の最大値(表2のemax)、 最小値(表2のemin)を求める。
引数 X：実数型でスカラまたは配列
戻り値 型、種別型パラメタは基本整数型で形状はスカラである。

green dotサンプルプログラム

実数型の指数部の最大値と最小値を求める。 
    INTEGER,PARAMETER :: dp=SELECTED_REAL_KIND(10)
    REAL :: x ;  REAL(KIND=dp) :: y
    WRITE(*,*) MAXEXPONENT(x) ![例]   128 (emax)
    WRITE(*,*) MINEXPONENT(x) ![例]  -125 (emin)
    WRITE(*,*) MAXEXPONENT(y) ![例]  1024 (emax)
    WRITE(*,*) MINEXPONENT(y) ![例] -1021 (emin)
(表２)実数の数体系
hyou2 b,p2以上の整数
fk 0以上b未満(f1≠0)
s+1または -1
e最小値の整数eminから最大値の
整数 emaxまでの間の整数

line-end