X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Funres.F;h=053eec6ee1dacbd2eeffa4142d752ce3fb9a5c6f;hb=f6eb5c2d70287339a62fc51fadfbce56be74c40a;hp=9ddf3314e56347bd9ef8f48afe4d58b7b8040c24;hpb=1ec63117ee44a3e787d12afd971025ec11340b1f;p=unres.git

diff --git a/source/unres/src_MD/unres.F b/source/unres/src_MD/unres.F
index 9ddf331..053eec6 100644
--- a/source/unres/src_MD/unres.F
+++ b/source/unres/src_MD/unres.F
@@ -287,8 +287,8 @@ crc overlap test
         if (refstr) call rms_nac_nnc(rms,frac,frac_nn,co,.true.)
         call briefout(0,etot)
       endif
-      if (outpdb) call pdbout(etot,titel(:50),ipdb)
-      if (outmol2) call mol2out(etot,titel(:50))
+      if (outpdb) call pdbout(etot,titel(:32),ipdb)
+      if (outmol2) call mol2out(etot,titel(:32))
       return
       end
 c---------------------------------------------------------------------------
@@ -325,8 +325,8 @@ c---------------------------------------------------------------------------
       call enerprint(energy(0))
       call intout
       call briefout(0,etot)
-      if (outpdb) call pdbout(etot,titel(:50),ipdb)
-      if (outmol2) call mol2out(etot,titel(:50))
+      if (outpdb) call pdbout(etot,titel(:32),ipdb)
+      if (outmol2) call mol2out(etot,titel(:32))
       if (refstr) call rms_nac_nnc(rms,frac,frac_nn,co,.true.)
       write (iout,'(a,i3)') 'SUMSL return code:',iretcode
       return