
你这个read程序其实是这样的
open(unit=1,file='gm_lc.inp',status='old')
do j=1,nm_lc
do m=m_ini,m_end
read(1,*), bj_lc(j), gm_lc(m,j)
enddo
enddo
先进行内部m的循环,然后再进行外部j的循环。所以读入到文件中的数据,先是一维的一个,然后是一串二维的,然后再是一维的一个,再是一串二维的。
二维数组中m是行,j是列。

你这个read程序其实是这样的
open(unit=1,file='gm_lc.inp',status='old')
do j=1,nm_lc
do m=m_ini,m_end
read(1,*), bj_lc(j), gm_lc(m,j)
enddo
enddo
先进行内部m的循环,然后再进行外部j的循环。所以读入到文件中的数据,先是一维的一个,然后是一串二维的,然后再是一维的一个,再是一串二维的。
二维数组中m是行,j是列。