爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 4404|回复: 0

[源代码] fortran 读取txt 跳过开头数据信息

[复制链接]

新浪微博达人勋

发表于 2016-3-27 09:55:03 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
现在txt里面前25行既有数字也有字符串,还有空格,不知道跳过这25行开始处理数据的话,怎么书写跳过的语句喃,现在有很多txt需要处理,看了相关的帖子还是有点疑问,Copyright (C) 1995-2013 - All Rights Reserved
University Corporation for Atmospheric Research
NCAR Command Language Version 6.1.2
The use of this software is governed by a License Agreement.
See http://www.ncl.ucar.edu/ for more details.

Variable: h2o
Type: float
Total Size: 357120 bytes
            89280 values
Number of Dimensions: 4
Dimensions and sizes: [time | 1] x [levsoi | 10] x [lat | 72] x [lon | 124]
Coordinates:
            time: [9.96921e+36..9.96921e+36]
            levsoi: [0..2]
            lat: [19.74306..54.25694]
            lon: [73.74596..134.254]
Number Of Attributes: 6
  long_name : volumetric soil water
  units : mm3/mm3
  cell_method : time: mean
  FillValue : 1e+36
  missing_value : 1e+36
  _FillValue : 1e+36
0.3276034
0.4129702
0.4114943
0.3983252
0.3980107
0.3981399
0.3982514
0.3980571
0.3984232
0.3207843
0.320251
前面25行全部是开头信息,这是我的fortran程序,结果一直显示list directed i/o syntax error,unit 13,file F:\work\ch4.2\0.1\1.txt,请大神指点一下很急。
program change
implicit none
integer,parameter::n=89280
real a(n)
integer i,j
character(len=50)temp
!********************************
open(13,file="F:\work\ch4.2\0.1\1.txt")
do j=1,25
read(13,*)temp
end do
do i=1,n
read(13,*)a(i)
end do
close(13)
!*******************************
open(14,file="F:\work\ch4.2\0.1\2.txt")
do i=1,n
   if(a(i)==1e+36)then
      a(i)=-999
   end if
write(14,*)a(i)   
end do
close(14)
end


密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表