我想在循环中写入文件，每次循环都要打开一个文件进行写入，如果要循环的次数比较庞大，open语句有必要放在循环内部，但是file=“变量”，这个变量应该怎设置，能设置成字符数组变量或怎么处理，求助！！

 

character(10) ::filename
filename=filexx
do i=1,n
    write(filename,'(I2.2)') i
    open(unit=20+i,trim(filename))
    .................
    close(20+i)
end do
...........

 

有个地方需要修改
write(filename(5:6),'(I2.2)') i
即将i写在xx处