可以运行的。有两种方法：从语法上来修改如下：把do 23151 m=3,2改为 do 23151 m=3,2,-1就好。另外一种方法是就是定义一个整形变量，比如im, 然后代码如下调整：do 23151 im=1,2m=4-im
