From 7c65945a7c5caf9f412142a48b60c91064d1c07f Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Tue, 22 May 2012 23:33:00 +0200 Subject: [PATCH] integer overflow fixed in xdrf2x.F --- source/xdrfpdb/src/xdrf2x.F | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/source/xdrfpdb/src/xdrf2x.F b/source/xdrfpdb/src/xdrf2x.F index be662e6..24ab39d 100644 --- 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) -- 1.7.9.5