X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fprintmat.f;h=397ded7458b4c20285979eb6852398c1fe2e51e9;hb=a30bd29e64da2aa47b84963fdd0bf4192ead2738;hp=be2b38f51d27653346f76965f17daf31f3c0f455;hpb=020e579626d686ec20ecd9f0cc4c8313f474e152;p=unres.git

diff --git a/source/unres/src-HCD-5D/printmat.f b/source/unres/src-HCD-5D/printmat.f
index be2b38f..397ded7 100644
--- a/source/unres/src-HCD-5D/printmat.f
+++ b/source/unres/src-HCD-5D/printmat.f
@@ -1,4 +1,6 @@
       subroutine printmat(ldim,m,n,iout,key,a)
+      implicit none
+      integer ldim,m,n,nlim,iout,i,j,k
       character*3 key(n)
       double precision a(ldim,n)
       do 1 i=1,n,8