integer overflow fixed in xdrf2x.F

diff --git a/source/xdrfpdb/src/xdrf2x.F b/source/xdrfpdb/src/xdrf2x.F
index be662e6..24ab39d 100644 (file)
--- a/source/xdrfpdb/src/xdrf2x.F
+++ b/source/xdrfpdb/src/xdrf2x.F
@@ -3,8 +3,8 @@
       integer ihpb(100),jhpb(100)
       character*80 arg,ctime_start /"0"/,ctime_end /"1000000000"/,
      &  cfreq /"1"/
-c      integer time_start,time_end,freq
-      real 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
@@ -12,13 +12,13 @@ c      integer time_start,time_end,freq
         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)