character( len = 8 ) :: cdo i = 1 , 2 write( c , * ) i Open( 12 , File = "test_" // trim(adjustl( c ) ) // ".dat" ) !// 此处操作文件 Close( 12 )end do
