fortran处理数据问题

wff1299

50527 1951 1 1 9452 9463 32766 9438 32766 10422 32766 -327 32766 -436 32766 -386 32766 1 50 33 32766 0 0 0 0 0 32766 32766 2 32766 4 0 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 14 33 9 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 32766 74 754 1606 32766 32766 32766 32766 32766 32766
这是一个站点数据，我只需要其中的降水资料。怎么编程把需要的数据提出来？一个txt文件里有700多个站，要从这里面找出我需要的站。因为是新手，这方面处理对我来说真的很复杂。希望有人能指导一下。真心求助，谢谢……

守望之月/;-D

看看fortran书里读取文件的部分再试试应该没有问题的~

假设有5个数据，分别是站号、最高温、最低温、平均温度和降水，
程序里变量定义时，分别定义5个变量，比如，sta, tmax, tmin, tave, pre,
读文件时读取这5个数，
写文件时只要把最后一个数（降水）写到新的文件中就可以了。

朽木露琪亚

你得说说数据格式，比如每个站几个数据，各个数据代表什么

wff1299

朽木露琪亚 发表于 2014-4-15 22:01
你得说说数据格式，比如每个站几个数据，各个数据代表什么

1	区站号	Char(5)
2	年	Smallint	年
3	月	tinyint	月
4	日	tinyint	日
5	平均本站气压	Smallint	0.1hPa
6	日最高本站气压	Smallint	0.1hPa
7	日最高本站气压出现时间	Smallint	前2位时；后2位分
8	日最低本站气压	Smallint	0.1hPa
9	日最低本站气压出现时间	Smallint	前2位时；后2位分
10	平均海平面气压	Smallint	0.1hPa
11	平均气温	Smallint	0.1℃
12	日最高气温	Smallint	0.1℃
13	日最高气温出现时间	Smallint	前2位时；后2位分
14	日最低气温	Smallint	0.1℃
15	日最低气温出现时间	Smallint	前2位时；后2位分
16	平均湿球温度	Smallint	0.1℃
17	平均露点温度	Smallint	0.1℃
18	平均水汽压	Smallint	0.1hPa
19	平均相对湿度	Smallint	1%
20	最小相对湿度	Smallint	1%
21	最小相对湿度出现时间	Smallint	前2位时；后2位分
22	平均总云量	Smallint	0.1成
23	平均低云量	Smallint	0.1成
24	20-8时降水量	Smallint	0.1mm
25	8-20时降水量	Smallint	0.1mm
26	20-20时降水量	Smallint	0.1mm
27	1小时最大降水量	Smallint	0.1mm
28	10分钟最大降水量	Smallint	0.1mm
29	小型蒸发量	Smallint	0.1mm
30	大型蒸发量	Smallint	0.1mm

wff1299

朽木露琪亚 发表于 2014-4-15 22:01
你得说说数据格式，比如每个站几个数据，各个数据代表什么

一个站点每天有76个要素。我只截了到降水我需要的数据

朽木露琪亚

wff1299 发表于 2014-4-15 22:22
一个站点每天有76个要素。我只截了到降水我需要的数据

parameter(m=700,n=76)               m个站点 ，n个要素
real data(m,n)
open(1,file="f:\1.txt")
read(1,*) ((data(i,j),j=1,n),i=1,m)
close(1)
你试试，我也没测试过

wff1299

守望之月/;-D 发表于 2014-4-16 09:00
看看fortran书里读取文件的部分再试试应该没有问题的~

假设有5个数据，分别是站号、最高温、最低温、平 ...

好的，我试试。谢谢！

wff1299

朽木露琪亚 发表于 2014-4-16 13:24
parameter(m=700,n=76)               m个站点 ，n个要素
real data(m,n)
open(1,file="f:\1.txt")

十分感谢。

朽木露琪亚

wff1299 发表于 2014-4-16 13:27
十分感谢。

不客气，大家相互帮助

wff1299

朽木露琪亚 发表于 2014-4-16 13:31
不客气，大家相互帮助

再麻烦问问，((data(i,j),j=1,n),i=1,m)这句话是什么意思？这个程序是读取文件的是吗？