From 3d79e89922e83ded1dd9fe7689d30b45567bd6ef Mon Sep 17 00:00:00 2001 From: czarek Date: Wed, 4 May 2022 21:54:39 +0200 Subject: [PATCH] czytanie opcji --- source/xdrfpdb/src-M/xdrf2pdb-m.F | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) 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 -- 1.7.9.5