| 查看: 416 | 回复: 1 | ||
| 当前主题已经存档。 | ||
[交流]
【求助】FORTRAN 90程序问题【已解决】 已有1人参与
|
||
|
PROGRAM array_section IMPLICIT NONE INTEGER,DIMENSION(3,4)::p INTEGER,DIMENSION(5)::u=(/3,2,1,4,3/) p=RESHAPE((/1,2,3,4,5,6,7,8,9,10,11,12/),(/3,4/)) PRINT'(5I3)',p(1:3:2,1:4:2) PRINT'(I3)',SIZE(p(u(1:5:4),u(2:5:3))) END PROGRAM array_section 这个程序输出的第一行为什么是 1 3 7 9？？ [ Last edited by jjdg on 2010-4-22 at 03:37 ] |
回复此楼
2楼2010-04-21 20:56:34