配列生成子を使ったものは、配列はみ出しの場合分けをしなくて済むが、死ぬほど遅いｗ 素朴な方がいい。 module m_isort2 contains subroutine isort2( x ) real, intent(in out) :: x(:) real :: tmp integer :: i, k, n n = size(x) if (n <= 1) return do…