47
3
0
大师
temp = ia_index(1,:) ra_val3(temp ) = ra_val3(temp ) + ra_add
使用道具 举报
program main implicit none integer :: ia(5),ib(9) ia = [1,5,5,5,2] ib = 0 ib(ia) = ib( ia (:) ) + [1,1,1,1,1] write(*,*) ib stop end program
andy8496 发表于 2017-8-5 21:29 唉,我都忘了我哪些地方用了这种写法,但是肯定不止目前发现的这个位置。真是郁闷了! 要是能通过什么编译 ...
chiangtp 发表于 2017-8-7 16:16 你ˋ可能還需要考慮另一個問題:
chiangtp 发表于 2017-8-8 00:02 http://pan.baidu.com/s/1i5l8Ypf
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-5-6 05:29
Powered by Tencent X3.4
© 2013-2024 Tencent