将dimensionhc068(iva,imon,iyr)改为 integer hc068(iva,imon,iyr)结果正确；否则出现混乱的数字！
这是为什么？！请教高手解答，代码见下 
     parameter(iva=74,imon=12,iyr=100)
      integer hc068(iva,imon,iyr)
    dimension rdg(imon,iyr)

      open(10,file='d:\1\hc068.txt',err=200)
      read(10,100) (((hc068(k,i,j),k=1,iva),i=1,imon),j=1,iyr)
100    format(37I5)
200    continue
      close(10)
    
      print*,hc068(1,1,1)
      do j=1,iyr
      do i=1,imon
    
    rdg(i,j)=hc068(27,i,j)
        enddo
    enddo
      print*,rdg(7,1)
    open(10,file='d:\wpsh\js.dat',form='binary')


    write(10) ((rdg(i,j),i=1,imon),j=1,iyr)

    close(10)

 
    end