X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FMD_A-MTS.F;h=90c32cf2a5657a6fc19a82fe6df10e20ceeac98d;hb=83a668a2587e4624d860c7d1de07dd1634b92f54;hp=84c5a187e2de8f95f9b63a4eeb0d8210afb12fa3;hpb=455b2d37bc67ae119290e3e2048e0ab1df408fd2;p=unres.git

diff --git a/source/unres/src_MD-M/MD_A-MTS.F b/source/unres/src_MD-M/MD_A-MTS.F
index 84c5a18..90c32cf 100644
--- a/source/unres/src_MD-M/MD_A-MTS.F
+++ b/source/unres/src_MD-M/MD_A-MTS.F
@@ -1489,7 +1489,7 @@ c if the friction coefficients do not depend on surface area
           stdforcp(i)=stdfp*dsqrt(gamp)
         enddo
         do i=nnt,nct
-          stdforcsc(i)=stdfsc(iabs(itype(i)))
+          if (itype(i).ne.ntyp1) stdforcsc(i)=stdfsc(iabs(itype(i)))
      &                *dsqrt(gamsc(iabs(itype(i))))
         enddo
       endif
@@ -1499,9 +1499,15 @@ c Open the pdb file for snapshotshots
         if (ilen(tmpdir).gt.0) 
      &    call copy_to_tmp(pref_orig(:ilen(pref_orig))//"_MD"//
      &      liczba(:ilen(liczba))//".pdb")
+#if defined(AIX) || defined(PGI)
         open(ipdb,
      &  file=prefix(:ilen(prefix))//"_MD"//liczba(:ilen(liczba))
-     &  //".pdb")
+     &  //".pdb", position='append')
+#else
+        open(ipdb,
+     &  file=prefix(:ilen(prefix))//"_MD"//liczba(:ilen(liczba))
+     &  //".pdb", access='append')
+#endif
       else
 #ifdef NOXDR
         if (ilen(tmpdir).gt.0 .and. (me.eq.king .or. .not.traj1file))