X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fxdrfpdb%2Fsrc%2Fxdrf2x.F;fp=source%2Fxdrfpdb%2Fsrc%2Fxdrf2x.F;h=24ab39d64d24b913b2d1d70994511d7716d9c158;hb=52187c9365594597457799445140ea830f1141a3;hp=b6e86cf360434632ea762a7b3c15d83045c03d15;hpb=951f0fe4ce7a66542c398754524d8ae3d9b5dc5a;p=unres.git

diff --git a/source/xdrfpdb/src/xdrf2x.F b/source/xdrfpdb/src/xdrf2x.F
index b6e86cf..24ab39d 100644
--- 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 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
@@ -11,13 +12,13 @@
         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
-        time_end=1.0d10
+        time_end=1000000000
       endif
       if (iargc().gt.3) then
         call getarg(4,cfreq)