source/unres/src-HCD-5D/printmat.f

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