module m_mandel implicit none integer, parameter :: kd = kind(0.0d0) integer, parameter :: maxiter = 50 contains pure elemental integer function imandel(z) complex(kd), intent(in) :: z complex(kd) :: c c = (0.0_kd, 0.0_kd) do imandel = max…

80x24 136x45

ネットでよく見るキャラクター版マンデルブロ図形を Fortran で描いてみました。参考：ASCII Haskell Mandelbrot http://yannesposito.com/Scratch/en/blog/Haskell-Mandelbrot/intel visual fortran の visual studio のアウトライン表示は、forall １行の…