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

diff --git a/source/unres/src_CSA_DiL/printmat.f b/source/unres/src_CSA_DiL/printmat.f
deleted file mode 100644
index be2b38f..0000000
--- a/source/unres/src_CSA_DiL/printmat.f
+++ /dev/null
@@ -1,16 +0,0 @@
-      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