X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-newcorr%2Fprintmat.f;fp=source%2Funres%2Fsrc_MD-M-newcorr%2Fprintmat.f;h=be2b38f51d27653346f76965f17daf31f3c0f455;hb=e74a1da46f47c86b0c46679481b757c425642977;hp=0000000000000000000000000000000000000000;hpb=d0bc9ab44e8f75f5cb92a01cda9daba97791e379;p=unres.git

diff --git a/source/unres/src_MD-M-newcorr/printmat.f b/source/unres/src_MD-M-newcorr/printmat.f
new file mode 100644
index 0000000..be2b38f
--- /dev/null
+++ b/source/unres/src_MD-M-newcorr/printmat.f
@@ -0,0 +1,16 @@
+      subroutine printmat(ldim,m,n,iout,key,a)
+      character*3 key(n)
+      double precision a(ldim,n)
+      do 1 i=1,n,8
+      nlim=min0(i+7,n)
+      write (iout,1000) (key(k),k=i,nlim)
+      write (iout,1020)
+ 1000 format (/5x,8(6x,a3))
+ 1020 format (/80(1h-)/)
+      do 2 j=1,n
+      write (iout,1010) key(j),(a(j,k),k=i,nlim)
+    2 continue
+    1 continue
+ 1010 format (a3,2x,8(f9.4))
+      return
+      end