some gfortran warning fixes

[unres.git] / source / unres / src_MD / mcm.F

diff --git a/source/unres/src_MD/mcm.F b/source/unres/src_MD/mcm.F
index 79e567b..d9ca9ad 100644 (file)
--- a/source/unres/src_MD/mcm.F
+++ b/source/unres/src_MD/mcm.F
@@ -301,7 +301,7 @@ C--------------------------------------------------------------------------
 
             if (WhatsUp.eq.0 .and. Kwita.eq.0) then
               call metropolis(nvar,varia,varold,etot,eold,accepted,
-     &                      my_conf,EneLower,it)
+     &                      my_conf,EneLower)
             endif
             write (iout,*) 'My_Conf=',My_Conf,' EneLower=',EneLower
             if (accepted) then