貼れるらしいのでソースコードを貼ります #雫ぷよ

他の人のブログを見るとソースコードが貼ってあって羨ましかったので貼ってしまいました

参考にしたのはこちらです
kurokinomizuiwa.hatenablog.com

subroutine insertionsort(s)
  implicit none
  integer, intent(inout) :: s(:)
  integer :: i, j, tmp
  do i = 2, size(s) 
  ! ループ終了時に [1, i] の範囲が昇順
    do j = i, 2, -1  
    ! i の位置にあった新要素が適切な位置に来るまで落ちてくる
      if (s(j) >= s(j - 1)) exit
      tmp = s(j)
      s(j) = s(j - 1)
      s(j - 1) = tmp
    end do
  end do
end subroutine insertionsort

よきよき。
ちなみにこれは手元にあった挿入ソートです。これでFortran 始める人のための初歩を紹介していくものを書けるるかもしれません（n番煎じな感じもしますけど）