求一个读取下面文件内容中的某个数值的源代码。

Tulips

ZCZC
FSC150 BABJ 201503010000
2015030100时中央台指导产品
SCMOC  2015030100
87
56598   104.7    27.1  1535.1 28 21
  3    5.4   95.3  144.5    1.5  999.9    0.1    9.0   15.2    7.0    8.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
  6    8.5   70.8   75.5    0.8  999.9    0.0    6.0   10.7    0.0    8.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
  9    8.7   70.1   74.0    1.5  999.9    0.0    1.0    0.0    0.0   12.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
12    6.8   86.9  100.3    1.7  999.9    0.0    9.0    1.9    0.0   12.0  999.9  999.9  999.9  999.9  999.9    0.1   29.7    6.9    7.0    0.0    0.0
15    5.8   98.2  136.8    0.9  999.9    0.0    9.0   78.7    0.0   12.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
18    4.9   98.2  155.1    0.9  999.9    0.1    9.0   71.1    7.0    8.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
21    5.1   96.4  207.9    1.9  999.9    0.0    9.0   49.1    0.0    8.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
24    5.5   91.0  222.0    2.3  999.9    0.0    9.0   33.6    0.0    8.0    8.7    4.9   99.2   53.1    0.2    0.1   97.6    0.1    7.0    0.0    0.0
27   11.4   69.3  242.9    1.7  999.9    0.0    6.0    8.0    0.0    8.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
30   14.1   74.0  262.3    3.3  999.9    0.0    0.0    2.0    0.0   12.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
33   14.1   73.8  258.9    2.7  999.9    0.0    9.0    2.1    0.0   12.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
36   11.6   74.2  285.2    1.6  999.9    0.0    0.0    1.5    0.0   12.0  999.9  999.9  999.9  999.9  999.9    0.0   95.7    0.0    2.0    0.0    0.0
39    8.0   85.4  346.9    2.5  999.9    0.0  100.0   51.4    2.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
42    5.7   92.2  351.4    2.8  999.9    0.4    9.0   96.7    7.0    8.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
45    5.3   92.4  353.8    3.2  999.9    0.8  100.0   98.1    7.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
48    4.8   93.4  356.5    2.4  999.9    0.5    9.0   96.2    7.0    8.0   14.1    4.8   93.4   64.8    1.7    1.7  100.0    1.4    7.0    0.0    0.0
54    5.6   87.1  162.8    0.5  999.9    0.2    9.0   92.3    7.0   12.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
60    5.2   92.0  121.7    2.5  999.9    0.0    9.0   13.6    0.0    8.0  999.9  999.9  999.9  999.9  999.9    0.6   62.9    0.9    7.0    0.0    0.0
66    4.5   97.1  204.1    0.8  999.9    0.1   80.0   18.2    7.0  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9  999.9
72    5.3   91.0  218.8    2.5  999.9    0.0    9.0   17.3    0.0    8.0    9.9    3.9   97.1   73.3    0.8    0.2   57.8    0.2    7.0    0.0    0.0
84   10.6   82.3  225.0    2.8  999.9    0.0    0.0    0.4    0.0   12.0  999.9  999.9  999.9  999.9  999.9    0.0   10.9    0.0    0.0    0.0    0.0
96    6.1   93.1  233.0    3.5  999.9    0.1    0.0   11.3    7.0   12.0   13.5    5.7   93.1   71.0    0.1    0.1   65.9    0.2    7.0    0.0    0.0
108   14.5   68.6  233.3    1.6  999.9    0.0    6.0   11.9    0.0   12.0  999.9  999.9  999.9  999.9  999.9    0.2   52.4    0.1    7.0    0.0    0.0
120    4.0   97.5  351.2    0.7  999.9    0.2    9.0   53.9    7.0   12.0   14.5    3.3   97.5   51.0    0.6    0.4   50.2    0.0    7.0    0.0    0.0
132    8.6   84.0   63.3    2.9  999.9    0.0    9.0    0.0    0.0   12.0  999.9  999.9  999.9  999.9  999.9    0.1  508.0    0.5    7.0    1.0    1.0
144    6.0   96.9  100.2    0.5  999.9    0.3    9.0   86.4    7.0   12.0   11.8    5.3   96.9   44.3    0.7    0.6   94.3    0.7    7.0    0.0    0.0
156   10.1   79.7   11.1    2.3  999.9    0.0    9.0    6.6    0.0   12.0  999.9  999.9  999.9  999.9  999.9    0.1    7.3    0.0    7.0    0.0    0.0
168    6.2   86.0    0.6    1.1  999.9    0.9   99.2   94.9    7.0  999.9   10.8    5.0   86.0   73.9    1.0    0.9   94.3    0.0    7.0    0.0    0.0

王磊

看起来是间隔3小时的输出，。每21个数据构成一块，使用表控格式读取即可。 读取语句可以是read（100，*） time,data(1:21)   !data是一个预先定义的用于存放数据的数组，如果你需要循环读取，可以直接设置循环，并使用二维数组。

王磊

看起来是间隔3小时的输出，。每21个数据构成一块，使用表控格式读取即可。 读取语句可以是read（100，*） time,data(1:21)   !data是一个预先定义的用于存放数据的数组，如果你需要循环读取，可以直接设置循环，并使用二维数组。

王磊

program name

        implicit none
        integer,parameter :: level=168/3,number=21
        real :: time,var(number,level)
        integer i

open(100,file="filename")

        do i=1,level
                read(100,*) var(:,i)               
        end do
close(100)

end program name        

topmad

输出格式确定的 但是时间间隔不一样  楼主注意一下
楼上朋友把时间间隔搞错了

王磊

topmad 发表于 2015-12-12 09:37
输出格式确定的 但是时间间隔不一样  楼主注意一下
楼上朋友把时间间隔搞错了

确实，输出间隔后面不一样

Tulips

王磊 发表于 2015-12-11 23:21
看起来是间隔3小时的输出，。每21个数据构成一块，使用表控格式读取即可。 读取语句可以是read（100，*） t ...

谢谢，我用顺序读取，好像也可以额

Tulips

王磊 发表于 2015-12-11 23:21
看起来是间隔3小时的输出，。每21个数据构成一块，使用表控格式读取即可。 读取语句可以是read（100，*） t ...

谢谢，我用顺序读取，好像也可以额