【答案】应助回帖

Originally posted by 贺仪 at 2011-04-27 11:44:03:
里面有几个变量没定义， nbandmin.and.iband.le.nbandmax 你随便改一下

program example
   real :: a,a1,b,b1,c(4),c1(4)
   integer :: n,n1,m,m1
   n=6
   m=8
   a=1.1
   b=2.2
   c(1)=3.3
   c(2)=4.4
   c(3)=5.5
   c(4)=6.6
   open(1,file='test',form='unformatted')
   write(1)a,b,n
   write(1)c,m
   close(1)
   open(1,file='test',form='unformatted', status = 'old')
   read(1) a1,b1,n1
   read(1) c1, m1
   write(*,*) a1, b1, n1, c1, m1
   close(1)
end