projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'homology' of mmka.chem.univ.gda.pl:unres into homology
[unres.git]
/
source
/
xdrfpdb
/
src
/
xdrf2x.F
diff --git
a/source/xdrfpdb/src/xdrf2x.F
b/source/xdrfpdb/src/xdrf2x.F
index
b6e86cf
..
24ab39d
100644
(file)
--- a/
source/xdrfpdb/src/xdrf2x.F
+++ b/
source/xdrfpdb/src/xdrf2x.F
@@
-3,7
+3,8
@@
integer ihpb(100),jhpb(100)
character*80 arg,ctime_start /"0"/,ctime_end /"1000000000"/,
& cfreq /"1"/
integer ihpb(100),jhpb(100)
character*80 arg,ctime_start /"0"/,ctime_end /"1000000000"/,
& cfreq /"1"/
- integer time_start,time_end,freq
+ integer*4 time_start,time_end,freq
+c real time_start,time_end,freq
call getarg(1,arg)
if (iargc().eq.0) stop
call getarg(1,arg)
if (iargc().eq.0) stop
@@
-11,13
+12,13
@@
call getarg(2,ctime_start)
read (ctime_start,*) time_start
else
call getarg(2,ctime_start)
read (ctime_start,*) time_start
else
- time_start=0.0d0
+ time_start=0
endif
if (iargc().gt.2) then
call getarg(3,ctime_end)
read (ctime_end,*) time_end
else
endif
if (iargc().gt.2) then
call getarg(3,ctime_end)
read (ctime_end,*) time_end
else
- time_end=1.0d10
+ time_end=1000000000
endif
if (iargc().gt.3) then
call getarg(4,cfreq)
endif
if (iargc().gt.3) then
call getarg(4,cfreq)