source/cluster/wham/src/printmat.f

   1       subroutine printmat(ldim,m,n,iout,key,a)
   2       character*3 key(n)
   3       double precision a(ldim,n)
   4       do 1 i=1,n,8
   5       nlim=min0(i+7,n)
   6       write (iout,1000) (key(k),k=i,nlim)
   7       write (iout,1020)
   8  1000 format (/5x,8(6x,a3))
   9  1020 format (/80(1h-)/)
  10       do 2 j=1,n
  11       write (iout,1010) key(j),(a(j,k),k=i,nlim)
  12     2 continue
  13     1 continue
  14  1010 format (a3,2x,8(f9.4))
  15       return
  16       end