一次元配列a(:)に対してMINLOC(a)の類は要素1個の配列を返すが、MINLOC(a, 1)とすればスカラーで答えを受け取れる。 PROGRAM test IMPLICIT NONE REAL :: a(3) INTEGER :: k0(0), k1(1) CALL RANDOM_NUMBER(a) k0 = SHAPE( MINLOC(a, 1) ) k1 = SHAPE( MINLO…