APDL交互式给数组的各个元素赋值怎么解决？

我想生成一个任意指定元素个数的一维数组，并交互式给该数组的各个元素赋值。在APDL下，我打算利用MULTIPRO和CSET，代码如下：

MULTIPRO,'START',1

*CSET,1,3,a1,'输入',4

*CSET,61,62,'数组中元素个数:'

MULTIPRO,'END'

*dim,aaa,array,a1

t=0

MULTIPRO,'START',a1

*DO,i,1,a1

*CSET,1+(i-1)*3,3*i,t,'赋值',t

aaa(i)=t

*ENDDO

*CSET,61,62,'元素赋值:'

MULTIPRO,'END'

程序试了下，在第2个MULTIPRO下，生成的aaa(i)始终是0，不是我输入的t。哪位大神给看看，或者谁懂FORTRAN，讲讲FORTRAN是怎么生成的