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
      implicit none
      real blockline(8,6)
      integer elem1,elem2,elem3,elem4,elem5,elem6
      integer i,ii
      open(10,file='line.txt')    
      read(10,*)elem1,elem2  
      read(10,*)elem3,elem4
      do 10 i=1,elem4
      read(10,*)(blockline(i,ii),ii=1,6)
10    continue
      read(10,*)elem5,elem6
      do 11 i=1,elem6
      read(10,*)(blockline(i+4,ii),ii=1,6)
11    continue
      write(*,'(1x,2i3,/)')elem1,elem2,elem3,elem4
      write(*,'(1x,6f7.3,/)')((blockline(i,ii),ii=1,6),i=1,4)
      write(*,'(1x,2i3,/)')elem5,elem6
      write(*,'(1x,6f7.3,/)')((blockline(i,ii),ii=1,6),i=5,8)
      stop
      end