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
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)