Fortran 数组参数

! 显式声明数组大小
subroutine process(data1, data2, n)
  integer, intent(in) :: n
  real, intent(in), dimension(n) :: data1
! 不定结构的数组，需要数组有显式接口
  real, intent(in), dimension(:,:) :: data2