From: czarek <cezary.czaplewski@ug.edu.pl>
Date: Wed, 4 May 2022 19:54:39 +0000 (+0200)
Subject: czytanie opcji
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=3d79e89922e83ded1dd9fe7689d30b45567bd6ef

czytanie opcji
---

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