您所在位置：主题：求大家个事 谁能帮我解释一下这个程序啊
cuijxin
[专家分：0] 发布于 2012-02-28 16:55:00
大家好，能不能帮我看下这个程序啊，do循环里 read函数那一行 我不太明白 求好心人解释一下啊
program main
integer,parameter::N=11
integer,parameter::M=4
integer,parameter::G=3
integer,dimension(G)::NG
integer,dimension(N)::KG
real(3),dimension(N,M)::X
open(10,FILE='PB.DAT')
do I=1,N
read(10,*)I0,(X(I,J),J=1,M),KG(I)
end do
close(10)
open(12,FILE='PBFX.DAT')
call pbfx(X,N,M,NG,KG)
close(12)
end main
program main
integer,parameter::N=11
integer,parameter::M=4
integer,parameter::G=3
integer,dimension(G)::NG
integer,dimension(N)::KG
real(3),dimension(N,M)::X
open(10,FILE='PB.DAT')
do I=1,N
read(10,*)I0,(X(I,J),J=1,M),KG(I)
end do
close(10)
open(12,FILE='PBFX.DAT')
call pbfx(X,N,M,NG,KG)
close(12)
end main
