2013年6月2日日曜日

fortran

カンマの場合は注意が必要。

program main
  integer i
  integer fout
  real(8) a(100),b(100)
  fout = 20
  open(fout,file='test.out')
  do i=1,100
    a(i) = real(i)
    b(i) = real(i)
  end do
  do i =1,100
    write(fout,'(I5,a,e10.3,a,e10.3)') i,",",a(i),",",b(i)
  end do
end program main

0 件のコメント:

コメントを投稿