求助！！fortran读取753个站的逐日降水资料，并求月平均时遇到的问题

逸儿~~

北五味 发表于 2013-5-7 09:14

                               
登录/注册后可看大图

read里面不是一般都要加个end=endlabel以防读到文件末尾嘛。编程不熟，静待大神~~

嗯，我试一下~~

jeffggg

我也正在搞这个的！我给你私信了 请查收！

liutaoz21

楼主，你别把每个文件的设备号都设为11，分别设为11、22、33之类的试试？
OPEN(11,FILE='F:\DATA\753-50-12\753-50-12\station.txt')
OPEN(22,FILE='d:\DATA\753-50-12\753-50-12\DAY\SURF_CLI_CHN_MUL_DAY-'//sta(is)//'.txt',err=8000)
......
打开文件之后的操作要对应设备号如read（11，*）、read（12，*）

话说我也不太懂，感觉还是文件读取有问题~

逸儿~~

liutaoz21 发表于 2013-5-7 19:41

                               
登录/注册后可看大图

楼主，你别把每个文件的设备号都设为11，分别设为11、22、33之类的试试？
OPEN(11,FILE='F:\DATA\753-50-1 ...

今天也试了，还是不行~~ 谢谢哈~~

丹徵

逸儿~~ 发表于 2013-5-7 21:59

                               
登录/注册后可看大图

今天也试了，还是不行~~ 谢谢哈~~

话说建议在每一块程序后加句比如读完数据，算完一步什么的
print*，'ok1',print*，'ok2',这么长的程序会很晕的。。

逸儿~~

丹徵 发表于 2013-5-9 18:57

                               
登录/注册后可看大图

话说建议在每一块程序后加句比如读完数据，算完一步什么的
print*，'ok1',print*，'ok2',这么长的程序会 ...

嗯！好主意~~谢谢~~

mofangbao

逸儿~~ 发表于 2013-5-9 21:43

                               
登录/注册后可看大图

嗯！好主意~~谢谢~~

其实我写过这个程序，看来你也挺努力的了，我就把我的程序给你吧！因为是帮别人写的，要等她今年毕业后我才能公开，所以希望你不要把这个程序在今年7月份之前复制给任何人！
你留下你的邮箱，我明晚发送给你。

逸儿~~

mofangbao 发表于 2013-5-9 23:10

                               
登录/注册后可看大图

其实我写过这个程序，看来你也挺努力的了，我就把我的程序给你吧！因为是帮别人写的，要等她今年毕业后我 ...

嗯哈~~多谢多谢~~我的邮箱444375642@qq.com~~~

mofangbao

逸儿~~ 发表于 2013-5-10 12:26

                               
登录/注册后可看大图

嗯哈~~多谢多谢~~我的邮箱~~~

已经发给你了

baiduwenku

好长的程序，先让我消化一下。