X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fxdrfpdb%2Fsrc-M%2Fxdrf2pdb-m.F;h=017de320488bd68c8688c61d67639c9e7ead4669;hb=refs%2Fheads%2Fdevel;hp=e3825b08917048f017885d7ea0cbafd2f33d39a4;hpb=e60965f49d9b673b981e806180d7da574e1ae17a;p=unres.git

diff --git a/source/xdrfpdb/src-M/xdrf2pdb-m.F b/source/xdrfpdb/src-M/xdrf2pdb-m.F
index e3825b0..017de32 100644
--- a/source/xdrfpdb/src-M/xdrf2pdb-m.F
+++ b/source/xdrfpdb/src-M/xdrf2pdb-m.F
@@ -81,24 +81,25 @@
       read(arg,*) boxsize(2)
       call getarg(5,arg)
       read(arg,*) boxsize(3)
-      call getarg(3,arg)
+      call getarg(6,arg)
       iext = index(arg,'.cx') - 1
       if (iext.lt.0) then
         print *,"Error - not a cx file"
+        print *,arg
         stop
       endif
-      call getarg(4,cntraj)
+      call getarg(7,cntraj)
       read (cntraj,*) ntraj
-      call getarg(5,citraj)
+      call getarg(8,citraj)
       read (citraj,*) itraj
-      if (iargc().gt.5) then
-        call getarg(6,pdbfile)
+      if (iargc().gt.8) then
+        call getarg(9,pdbfile)
       else
         write(licz,'(bz,i3.3)') itraj
         pdbfile=arg(:iext)//'_'//licz//'.pdb'
       endif
-      if (iargc().gt.6) then
-        call getarg(7,cfreq)
+      if (iargc().gt.9) then
+        call getarg(10,cfreq)
         read (cfreq,*) ifreq
       endif
 c      print *,"ifreq",ifreq," ntraj",ntraj," itraj",itraj