主题:line文件里的二维数组应该是什么形式的,有没有逗号,括号
楼主
program ji
PARAMETER (NPP=2100000,MEE=2100000)
real blockline(20,20),linefi(100,100),linela(100,100)
integer lnum,blocksum,i,j,blocknum
real eleml
open(1,file='line.txt',status='old')
read(1,*)eleml !
read(1,*)blocksum
do 10 i=1,blocksum
read(1,*)blocknum
read(1,*)lnum
do 11 j=1,lnum
read(1,*)blockline(i,j),linefi(i,j),linela(i,j)
11 continue
10 continue
write(*,*)linefi(1,2)
stop
end
line文件
1
2
1
4
1,1 0.0,0.0 2.0,0.0
1,2 2.0,0.0 2.0,2.0
1,3 2.0,2.0 0.0,2.0
1,4 0.0,2.0 0.0,0.0
2
4
2,3 0.0,2.0 2.0,2.0
2,5 2.0,2.0 2.0,4.0
2,6 2.0,4.0 0.0,4.0
2,7 0.0,4.0 0.0,2.0
program ji
PARAMETER (NPP=2100000,MEE=2100000)
real blockline(20,20),linefi(100,100),linela(100,100)
integer lnum,blocksum,i,j,blocknum
real eleml
open(1,file='line.txt',status='old')
read(1,*)eleml !
read(1,*)blocksum
do 10 i=1,blocksum
read(1,*)blocknum
read(1,*)lnum
do 11 j=1,lnum
read(1,*)blockline(i,j),linefi(i,j),linela(i,j)
11 continue
10 continue
write(*,*)linefi(1,2)
stop
end
line文件
1
2
1
4
1,1 0.0,0.0 2.0,0.0
1,2 2.0,0.0 2.0,2.0
1,3 2.0,2.0 0.0,2.0
1,4 0.0,2.0 0.0,0.0
2
4
2,3 0.0,2.0 2.0,2.0
2,5 2.0,2.0 2.0,4.0
2,6 2.0,4.0 0.0,4.0
2,7 0.0,4.0 0.0,2.0