我想生成一個任意指定元素個數的一維數組，并交互式給該數組的各個元素賦值。在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是怎么生成的