forall与do循环的区别.docVIP

FORTRAN中FORALL与DO的区别 FORTRAN中FORALL与DO的区别： 以下是个人对FORALL与DO的区别的理解，完全基于一些程序【仅列出下面一个程序】和参考国内与国外教材而得出的。如果有不对的地方，请联系我。谢谢！ INTEGER :: nn(0:8)=(/0,1,2,3,4,5,6,7,8/), mm(0:7) FORALL(i=0:7)nn(i) = 0mm(i) = nn(i+1)END FORALL ! 等价于 nn(0:7) = 0!??????? mm(0:7) = nn(1:8) write(*,(a,10i2)) nn= : ,nnwrite(*,(a,10i2)) mm= : ,mm nn(0:8)=(/0,1,2,3,4,5,6,7,8/) DO i=0,7nn(i) = 0mm(i) = nn(i+1)END DO write(*,*)write(*,(a,10i2)) nn= : ,nnwrite(*,(a,10i2)) mm= : ,mmEND 程序运行结果：nn= : 0 0 0 0 0 0 0 0 8mm= : 0 0 0 0 0 0 0 8 nn= : 0 0 0 0 0 0 0 0 8mm= : 1 2 3 4 5 6 7 8Press any key to continue 先对DO理解：