楼主
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