make cp src-HCD-5D

[unres.git] / source / unres / src-HCD-5D / printmat.f

diff --git a/source/unres/src-HCD-5D/printmat.f b/source/unres/src-HCD-5D/printmat.f
index be2b38f..397ded7 100644 (file)
--- 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