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))