您所在位置：主题：如何让数组赋值覆盖之前的赋值？
xiaoyuan24
[专家分：100] 发布于 2012-06-27 05:30:00
如题，如何让数组赋值覆盖之前的赋值？
下面是一个简单的给数组赋值的程序，我给a数组赋值两次，希望a数组的值能够是第二次赋的值，但是a数组的值仍然是2，3，4，5。
请教应该如何实现。我这么问是有原因的，请不要纠结于动机。以下只是个例子，在我的程序里a数组的维数是12*24。目前我所能想到的就是用data命令简化程序。如果不用data，又能简化程序并且能够实现我所想要的功能那更好！！
谢谢各位！！
PROGRAM MAIN
INTEGER a(4)
data (a(i),i=1,4)/2,3,4,5/
data (a(i),i=1,4)/2,4,4,7/
write(*,*) a
END
下面是一个简单的给数组赋值的程序，我给a数组赋值两次，希望a数组的值能够是第二次赋的值，但是a数组的值仍然是2，3，4，5。
请教应该如何实现。我这么问是有原因的，请不要纠结于动机。以下只是个例子，在我的程序里a数组的维数是12*24。目前我所能想到的就是用data命令简化程序。如果不用data，又能简化程序并且能够实现我所想要的功能那更好！！
谢谢各位！！
PROGRAM MAIN
INTEGER a(4)
data (a(i),i=1,4)/2,3,4,5/
data (a(i),i=1,4)/2,4,4,7/
write(*,*) a
END
