怎么用Fortran分离站点数据

JeremyJin · 发表于 2017-4-5 21:03:39

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

怎么把数据分离成单站点的数据，求大神指导

少年纪 · 发表于 2017-4-5 21:22:15

好好好++++++++++++++

少年纪 · 发表于 2017-4-5 21:22:32

好好好++++++++++++++

少年纪 · 发表于 2017-4-5 21:22:41

好好好++++++++++++++

言深深 · 发表于 2017-4-6 08:31:51

本帖最后由言深深于 2017-4-6 08:33 编辑

全部read到一个数组里面，然后识别站点，安装不同的站点新建文件，并write进去：
integer sta(1:nstation)
real x(1:n)
character*5 stationname

do i=1,nstaition
write(stationname,"(i5)")sta(i)
open(1,file=trim(stationname)//".txt")
do j=1,n
if(int(x(j)).eq.sta(i))then
write(1,*)x(j)
endif
enddo
close(1)
end

我简单写了一段不知道你能不能看得懂。
sta是用来存放站点名称的，需要写到stationname字符串里面，然后用trim语句构造新的文件名，然后判断文件x（j），x是你的总文件数目，符合条件满足i站名称的，就写到这个文件里面。

mofangbao · 发表于 2017-4-6 09:01:07

言深深发表于 2017-4-6 08:31
全部read到一个数组里面，然后识别站点，安装不同的站点新建文件，并write进去：
integer sta(1:nstation) ...

字应该都认识，深深好久没有手把手教了

言深深 · 发表于 2017-4-6 09:48:46

mofangbao 发表于 2017-4-6 09:01
字应该都认识，深深好久没有手把手教了

你没看到而已啊···我一直在，从未走远···

JeremyJin · 发表于 2017-4-6 11:10:30

言深深发表于 2017-4-6 08:31
全部read到一个数组里面，然后识别站点，安装不同的站点新建文件，并write进去：
integer sta(1:nstation) ...

谢谢大神帮忙

haoxj22s · 发表于 2017-5-24 14:04:57

谢谢，很有用！

bzhzdgn · 发表于 2017-7-13 16:52:06

{:eb301:}{:eb301:}超级有用啊

		自动登录	找回密码
密码			立即注册

[求助] 怎么用Fortran分离站点数据

登录后查看更多精彩内容~