1.自动的 SUBROUTINE F90(N) INTEGER N REAL W(N)
2.分配 REAL,ALLOCATABLE::A(:) READ(*,*) N ALLOCATE (A(N)) ... DEALLOCATE (A)
3.指针 REAL,POINTER::A(:)
