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