projects
/
unres.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
e60965f
)
czytanie opcji
devel
author
czarek
<cezary.czaplewski@ug.edu.pl>
Wed, 4 May 2022 19:54:39 +0000
(21:54 +0200)
committer
czarek
<cezary.czaplewski@ug.edu.pl>
Wed, 4 May 2022 19:54:39 +0000
(21:54 +0200)
source/xdrfpdb/src-M/xdrf2pdb-m.F
patch
|
blob
|
history
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)
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"
iext = index(arg,'.cx') - 1
if (iext.lt.0) then
print *,"Error - not a cx file"
+ print *,arg
stop
endif
stop
endif
- call getarg(4,cntraj)
+ call getarg(7,cntraj)
read (cntraj,*) ntraj
read (cntraj,*) ntraj
- call getarg(5,citraj)
+ call getarg(8,citraj)
read (citraj,*) itraj
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
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
read (cfreq,*) ifreq
endif
c print *,"ifreq",ifreq," ntraj",ntraj," itraj",itraj