ＭＩＮ
copyright

green dotＭＩＮ

書式 MIN(A1,A2[,A3][,A4][,…])
機能 A1,A2[,A3][,A4][,…]の値で最小値を求める。
引数 A1,A2[,A3][,A4][,…]：整数型，実数型
　引数は、すべて同じ型、種別型パラメタでなければならない。
戻り値 型、種別型パラメタは引数と同じである。

green dotサンプルプログラム

(1)整数 4, -3, 3の最大値を求める。
(2)実数4.3, -3.2, 8.9, 10.2の最小値を求める。 
    INTEGER :: i1,i2,i3,i
    i1=4; i2=-3; i3=3
    WRITE(*,*) MAX(i1,i2,i3),MIN(4.3,-3.2,8.9,10.2)


実行例

    4 -3.2000…
line-end