|
本帖最后由 wxy 于 2017-1-23 12:34 编辑
然后就是别人提供一个思路把第一列除以1000舍去小数部分剩下整数部分就是年份,这样可以判断年份 相同的年份输出到一个文件中,但是除以1000的语句和判断年份的语句怎么改也不对
[Fortran] 纯文本查看 复制代码 04 | INTEGER , allocatable :: days ( : ) , year ( : ) |
05 | real , allocatable :: tMax ( : ) , tMin ( : ) , rain ( : ) |
07 | open ( 8 , file = "cn003830.wth" ) |
09 | open ( 10 , file = "test.wth" ) |
10 | open ( 11 , file = "A:\EX\test.wth" ) |
12 | allocate ( year ( m ) , days ( m ) , tMax ( m ) , tMin ( m ) , rain ( m ) ) |
17 | read ( 8 , * ) year ( i ) , days ( i ) , srad , tMax ( i ) , tMin ( i ) , rain ( i ) |
21 | WHERE ( year ( i ) = year ( i ) +1 ) |
23 | write ( 10 , "(i5.5,2xf5.1,2xf5.1,2xf4.1)" ) days ( i ) , tMax ( i ) , tMin ( i ) , rain ( i ) |
26 | write ( 11 , "(i5.5,2xf5.1,2xf5.1,2xf4.1)" ) days ( i ) , tMax ( i ) , tMin ( i ) , rain ( i ) |
|
|