6楼: Originally posted by li_clifff at 2011-10-16 22:51:30:
program  ex0804
implicit none
  integer :: a(2)
  DATA  a /1,2/
  integer :: b(2)
  data b  /2,3/
  call add(a,b)  ! 把变量a及b交给子程序add来处理
  stop
end


subroutine add(first, se ...

do i=1,96
   write(*,*) nf(1:3,i)
end do

3楼: Originally posted by snoopyzhao at 2011-10-15 14:30:40:
ALLOCATE nf(nodof,nn) 这句话是错误的吧？
ALLOCATE(nf(nodof,nn))
如果在这之后加一句：
nf = 100000
然后在程序结束之前加上：

CODE:

do i=1,96
   write(*,*) nf(1:3,i)
end do

你就知道你 ...