気になったのは次のコードですねー． program MatrixOut implicit none real(8), dimension(2,2,2) :: target integer :: i, j, k open(10,file='test.dat',form='formatted',status='unknown') do i = 1,2 do j = 1,2 do k = 1,2 target(i,j,k)=i+j+k end d…

今日ホゲーとなったのは次の書き方． real(8), dimension(2,2,2) :: target integer :: i, j, k do i = 1,2 do j = 1,2 do k = 1,2 target(i,j,k)=i+j+k end do end do end do do i = 1,2 do j = 1,2 do k = 1,2 print *, "i=", i,"j=",j, "k=",k, "matrix="…

参考：http://d.hatena.ne.jp/THE_MIND/20090421/1240329284fortranもできるんかいな，とやってみると… Program Test implicit none print *, "hoge" end Program Test できたー．やったー！！！