program allocatable
implicit none
real:: inteval=0.01,TI=0.03,Bc=0.24,Bdot=4.
real,dimension(:),allocatable :: time
real,dimension(:),allocatable :: B
real,dimension(:,:),allocatable:: TB
integer:: n=1,m=2
integer::i
print *,'The size of the shuzu?'
read *,n
allocate(time(n))
allocate(B(n))
allocate(TB(m,n))
do i=1,n
   time(i)=TI+inteval*i
   B(i)=Bdot*(time(i)-TI)+Bc
enddo
   TB(1,:)=time
   TB(2,:)=B
   print 100,TB
   100 format(f8.5,5x,f8.5)
end program allocatable   

4楼: Originally posted by hanye0517 at 2014-04-21 15:36:15
能重复使用么，我要构造几十个数组，这不重复没有意义啊...

8楼: Originally posted by hanye0517 at 2014-04-21 19:54:32
我的意思是，比如要定义一个数组A，要先声明allocatable，然后在下边allocate，一个数组还是比较好解决的。
但是当我有100个数组的时候…………咋整，不能写一百遍吧，加一起就200次？
即使allocate可以allocate ...