fortran66のブログ

fortran について書きます。

2015-01-02から1日間の記事一覧

整数論的関数2 位数 原始根 指数表

メモ帳代わりに。ソースだけ。 program order implicit none integer, allocatable :: iprm(:), irtp(:), iwk(:) integer :: i, k, m iprm = eratos(100) do k = 1, size(iprm) print *, ' ', iprm(k) do i = 2, iprm(k) - 1 print *, i, ':', ord(iprm(k), …