您所在位置：主题：求助：解释这个读文件的fortran程序
cebaowy
[专家分：0] 发布于 2011-03-29 16:58:00
do k=1,12
if(k.lt.10)then
fname='R160'//char(k+48)//'.txt'
M1=54
else
fname='R161'//char(k+48-10)//'.txt'
M1=53
endif
open(k,file=fname)
do j=1,M1
read(k,*)(r(i,j,k),i=1,160)
enddo
close(k)
enddo
上面程序要读的文件名是个变量，其中第三行和第六行什么意思，为什么加上48 ，谢哪位高人指点啊
if(k.lt.10)then
fname='R160'//char(k+48)//'.txt'
M1=54
else
fname='R161'//char(k+48-10)//'.txt'
M1=53
endif
open(k,file=fname)
do j=1,M1
read(k,*)(r(i,j,k),i=1,160)
enddo
close(k)
enddo
上面程序要读的文件名是个变量，其中第三行和第六行什么意思，为什么加上48 ，谢哪位高人指点啊