Transcription of write 文の format で変数を使う(fortran 77)
1 write format ( fortran 77) write format write (6,*) write (6, ( ) ) format format integer n character fmt*11 n=4 write (fmt, ( ( I0 ) ) n write (6,fmt) 2 fmt n write (6,*) fmt ( ) I0 fortran 77 format )