相关疑难解决方法(0)

我想用一个隐式的do循环在一行上初始化一个数组.但是,我总是得到语法或形状错误.任何人都可以帮我纠正以下构造吗？

integer myarray :: (maxdim, nr)

myarray(1:maxdim,nr) = (/ (/i,i=1,maxdim/),nr /)