czytanie opcji

[unres.git] / source / xdrfpdb / src-M / xdrf2pdb-m.F

diff --git a/source/xdrfpdb/src-M/xdrf2pdb-m.F b/source/xdrfpdb/src-M/xdrf2pdb-m.F
index e3825b0..017de32 100644 (file)
--- 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