Question

Fortran 90中allocate语句的用法

最好给个实例，希望不要Ctrl。

Answer 1

用在ALLOCATABLE ARRAY 或 POINTER上.
POINTER是在SOBROUTINE里面ALLOCATE一个ARRAY后回MAIN PROGRAM的时候不会自动消失的VARIABLE．因为一个INTENT ARRAY不能在SUBROUTINE里面ALLOCATE， 所以只能用POINTER

用在ALLOCATABLE ARRAY上．
program main

real(8), allocatable::ning(:,:)
integer:: ji

allocate(ning(3,4), stat=ji)
if (ji>0) 'error' stop

end program

------------------------------------------------
------------------------------------------------

用在POINTER

subroutine ()

!local variables-----------

real(8), pointer:: ning(:,:)

allocate(ning(2,3))

Answer 2

比如你前面定义了一个数组real,allocatable::a()
后面你要把a分配成有5个元素的数组allocate（a(5))

Answer 3

eg::
integer::i
integer,allocatable::a(:) !声明一个可变大小的一维数组

read(*,*)i
allocate(a(i))

Answer 4

program main
real(kind=8),allocatable::a()
integer::i

i=10
allocate(a(i))
a=10
write(*,*) a
end program main
没有调试。你试试。