fortran程序怎样跳过文件开头几行？

whmooncool

diamond 3 02年01月06日05时24小时降水量
02 01 06 05   -2
      8
      1      5     10     25     50    100    150    200
      1     25     39
  122.7   37.3  122.5   36.7  120.8   36.2  119.3   35.0  120.4   34.3
  121.1   32.7  122.3   30.9  122.5   30.1  121.5   28.0  119.8   25.0
  116.1   22.6  111.0   21.0  111.0   18.6  109.6   18.1  108.3   18.5
  108.9   19.9  109.3   21.0  106.4   21.6  104.1   22.2  101.6   20.8
   98.7   22.0   97.1   24.1   97.7   27.0   91.7   26.6   85.7   27.7
   78.9   30.6   73.3   37.1   74.1   40.7   87.6   49.8   98.5   43.9
  110.4   44.3  122.0   54.7  135.7   48.3  131.5   42.2  125.2   39.4
  121.3   38.5  121.2   40.3  118.5   38.6  120.8   38.1
    1     51
51542   84.15   43.03 2459     .1
57522  107.41   29.75  273    2.6
57554  110.17   29.40  322    .01
56386  103.75   29.56  422    .01
54012  117.60   44.58  997    .01
50915  116.97   45.52  840    .01
57458  110.68   30.18  906    1.2
50527  119.75   49.22  611    2.4
这个是micaps资料的前一部分，我想编写程序读站点资料，需要跳过前面的说明，我自己不会。请高手们指点一下，该怎么写程序跳过这一段。万分感谢！！

良辰

read*,
read*,
read*,
read*,
有几行就跳过几行，你试一试吧

mofangbao

楼上正解

whmooncool

良辰 发表于 2012-1-13 15:08

                               
登录/注册后可看大图

read*,
read*,
read*,

请问是不是没有逗号？

良辰

whmooncool 发表于 2012-1-13 15:17

                               
登录/注册后可看大图

请问是不是没有逗号？

read(*,*)这样也可以

hjptfq

read(*,*)
read(*,*)
read(*,*)

言深深

哈哈，可以执行循环的do i=1,m
read(*,*) x
enddo
m是你需要跳过的行数

刘振

循环高效呵，看下来挺有意思的。好多财神卡，我也试下

iloveplmmok

小技巧，呵呵
学习

wode_q_x

多逛论坛，收获多多啊