mog_la https://blog.hatena.ne.jp/mog_la/ mog_laの日記 https://mog-la.hatenadiary.org/ real*8 a dimension a(100) open(1,file="data") do j=1,100 do i=1,20 read(1,*) a(5*i-4),a(5*i-3),a(5*i-2),a(5*i-1),a(5*i) end do write(*,11) (a(i),i=1,100) end do 11 format(100e16.8) end 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmog-la.hatenadiary.org%2Fentry%2F20080822" title="5カラム毎に改行された100x100データを正方表示、 Fortranで - mog_laの日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-08-22 00:00:00 rich https://mog-la.hatenadiary.org/entry/20080822 1.0 100%