各位大侠，大家好！
我有个程序，里面有两个子程序，一个子程序用来产生矩阵H00,H10，另一个矩阵用来调用它们，为什么调用的时候会出错呢？
             PROGRAM MAIN  
    IMPLICIT REAL*8(A-H,O-Z)
      character fname*15
    PARAMETER (N=34,t=2.8)    
    COMPLEX*16 H00(N,N),H10(N,N),H01(N,N),H12(N,N),H21(N,N)
    OPEN(UNIT=1,STATUS='unknown',FILE='biaomian1.DAT')
    CALL GMATRIX(T,N,H00,H10,H12)  
      H00=H00
      H10=H10
      H12=H12    
     DO IA=1,N
      DO IB=1,N
      WRITE(1,*) IA,IB,REAL(H10(IA,IB))
      ENDDO
      ENDDO
    CALL CESHI(N,H00,H10)
    END    
    subroutine GMATRIX(T,N,H00,H10,H12)
    implicit real*8(a-h,o-z)
    complex*16 i,H00(N,N),H10(N,N),H12(N,N) 
    H00=0.0D0
    H10=0.0D0     
      H12=0.0D0
      do J=1,N-1
    H00(J,J+1)=-t
    H00(J+1,J)=-t    
    enddo  
      do j=1,N
    if(mod(j,2)==1) then
    H10(j,j)=-t
      endif
      enddo     
      do j=1,N
      if(mod(j,2)==0) then
      H12(j,j)=-t
      endif
      enddo
    RETURN
    end    
      subroutine  CESHI(M,H00,H10)
      implicit real*8(a-h,o-z)
    complex*16 H00(m,m),H10(M,M)    
      OPEN(UNIT=2,STATUS='unknown',FILE='JJJ1.DAT')      
      DO IA=1,M
      DO IB=1,M
      WRITE(2,*) IA,IB,REAL(H10(IA,IA))
      ENDDO
      ENDDO     
      return
      END
      好郁闷啊！！就几行字，就是检查不出来哪里的问题！！
草了！！