[½»Á÷] ¡¾ÇóÖú¡¿Çó³ÌÐò

Originally posted by baoer3808 at 2010-12-17 16:34:46:
ÓÐ32¸ö.datÎļþ£¬Ã¿¸öÎļþÀﶼÓÐ6ÁУ¬291ÐУ¬Ïë°ÑÕâ32¸öÎļþÖеĵڶþÁÐÿÐÐÒÀ´ÎÏà¼Ó£¬ÎÒÊǸսӴ¥fortran£¬Çë¸ßÊÖ°ï棡

Originally posted by baoer3808 at 2010-12-17 16:34:46:
ÓÐ32¸ö.datÎļþ£¬Ã¿¸öÎļþÀﶼÓÐ6ÁУ¬291ÐУ¬Ïë°ÑÕâ32¸öÎļþÖеĵڶþÁÐÿÐÐÒÀ´ÎÏà¼Ó£¬ÎÒÊǸսӴ¥fortran£¬Çë¸ßÊÖ°ï棡

Originally posted by holmescn at 2010-12-17 20:21:48:
ÄãºÃ£¬ÇëÌûµãÊý¾ÝÉÏÀ´¡£
ÄãÔÚwindowsÏ»¹ÊÇÔÚlinuxÏ£¿
ԭʼÊý¾ÝÓÃɶËãµÃ£¬»¹ÊÇʵÑéÊý¾Ý£¿

program mysum
    implicit none
    real, dimension(6) :: array
    real :: s
    integer :: i, stat1, stat2
    character(len=255) :: filename
    s = 0
    array = 0
    open(100, file="list.txt")
    do
        read (100, '(A)', iostat = stat1), filename
        if(stat1 .ne. 0) exit
        if(len_trim(filename) .eq. 0) cycle
        print '(A)', trim(filename)
        open (200, file=trim(filename))
        do
            read (200 , '(5(ES11.5, 2X), ES11.5)', iostat = stat2), array
            if(stat2 .ne. 0) exit
            s = s + array(2)
        end do
        close(200)
    end do
    close(100)
    print '(A, ES11.5)', "SUM=", s
end program mysum

Originally posted by holmescn at 2010-12-18 11:48:51:
[code]
program mysum
    implicit none
    real, dimension(6) :: array
    real :: s
    integer :: i, stat1, stat2
    character(len=255) :: filename
    s = 0
    array = 0
    open(100, ...

Originally posted by baoer3808 at 2010-12-21 11:29:35:


²»ÊÇËùÓеĵڶþÁÐÏà¼Ó£¬ÊÇËùÓÐ
.datÎļþµÄµÚ¶þÁÐÿÐÐÒÀ´ÎÏà¼Ó£¬

×îºóµÃ³öµÄÊÇÒ»ÁÐ291ÐеÄÊý¾Ý

Originally posted by holmescn at 2010-12-21 11:53:45:



²»Ã÷°×ÄãɶÒâ˼£¬Çë¾ÙÀý˵Ã÷

program mysum
    implicit none
    integer, parameter :: N = 291
    real, dimension(6) :: array
    real, dimension(N) :: s
    integer :: i, stat1, stat2
    character(len=255) :: filename
    s = 0
    array = 0
    open(100, file="list.txt")
    do
        read (100, '(A)', iostat = stat1), filename
        if(stat1 .ne. 0) exit
        if(len_trim(filename) .eq. 0) cycle
        print '(A)', trim(filename)
        open (200, file=trim(filename))
        do i = 1, N
            read (200 , '(5(ES11.5, 2X), ES11.5)', iostat = stat2), array
            if(stat2 .ne. 0) exit
            s(i) = s(i) + array(2)
        end do
        close(200)
    end do
    close(100)
    print '(ES11.5)', s
end program mysum

Originally posted by holmescn at 2010-12-22 09:32:07:
[code]
program mysum
    implicit none
    integer, parameter :: N = 291
    real, dimension(6) :: array
    real, dimension(N) :: s
    integer :: i, stat1, stat2
    character(len=255) ::  ...