some corrections in xdrf2pdb-m for dyn_ss

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

diff --git a/source/unres/src_MD/MREMD.F b/source/unres/src_MD/MREMD.F
index b4f14d5..34a5343 100644 (file)
--- a/source/unres/src_MD/MREMD.F
+++ b/source/unres/src_MD/MREMD.F
@@ -1704,7 +1704,6 @@ ctime        call flush(iout)
           call xdrffloat_(ixdrf, real(t_restart1(4,il)), iret)
           call xdrfint_(ixdrf, nss, iret) 
           do j=1,nss
-          do j=1,nss
            if (dyn_ss) then
             call xdrfint(ixdrf, idssb(j)+nres, iret)
             call xdrfint(ixdrf, jdssb(j)+nres, iret)