| [Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode 
   Program Main
    Implicit None
    Integer, Parameter:: Num_All=7000000, Num_List=40,Num_File=15000
    Integer I10,I11,I12,J10,K0,Num_Data
    Character*8 Filename(Num_File)
    Double Precision Num_Total(Num_All, Num_List)
    K0=1
    Open(Unit=10,File='D:\File.txt')
    Do I10=1,Num_File
        Read(10,*)Filename(I10)
    End Do
    Close(10)
    Do I11=1,Num_File
        Open(Unit=11,file='d:\File\'//Filename(I11)//'.txt')
        Read(11,*)Num_Data
        Do I12=1,Num_Data
            Read(11,*)(Num_Total(K0,J10),J10=1,Num_List)
            K0=K0+1
        End Do
        Close(11)
    End Do
    End Program Main |