Fortran如何实现1000个变量循环赋10个值

百事可乐

还有更简便的写法

[Fortran] 纯文本查看 复制代码

a = reshape(spread([1:10],2,100),shape(a))

它把 [ 1：10 ] 在第 2 个维度上延伸 100 倍。变成 10*100 的二维数组。然后再 reshape 成 a 的外形（即 1000 的一维数组）