X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Flagrangian_lesyng.F;h=0c188a9f86b19f6ba67cc0b13439c21cd284927f;hb=58b37a8c9dff4d0d448f99de2ea09225f105faa0;hp=775142b47e01b17374cf0ddb4c1b279f0f01fe49;hpb=ce029d82f9541e9434d7b016ad442b20526de7a2;p=unres.git

diff --git a/source/unres/src_MD/lagrangian_lesyng.F b/source/unres/src_MD/lagrangian_lesyng.F
index 775142b..0c188a9 100644
--- a/source/unres/src_MD/lagrangian_lesyng.F
+++ b/source/unres/src_MD/lagrangian_lesyng.F
@@ -184,6 +184,7 @@ c sites (dimen1)
       endif
 #endif
 c      write (iout,*) "dimen",dimen," dimen1",dimen1," dimen3",dimen3
+       write (iout,*) "The number of degrees of freedom ",dimen3
 c  Zeroing out A and fricmat
       do i=1,dimen
         do j=1,dimen