- 383 名前：デフォルトの名無しさん mailto:sage [2007/04/05(木) 17:45:17 ]
- >>382
文字型変数で書式を作って渡す。
character(len=20) :: fmt
...
write(fmt, "('(', I5, 'I3)')") N
do i=1,N,1
write(6, fmt) (A(i,j), j=1,N,1)
end do
または、Visual Fortran限定で良ければ書式中の <> 内に整数式を書き込む。
do i=1,N,1
write(6, '(<N>I3)') (A(i,j), j=1,N,1)
end do
