w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Don't use CWD writes such as 'fort.33' in production versions!

This commit is contained in:
Joe Taylor 2021-02-03 15:20:37 -05:00
parent b0417838a8
commit ebd41fabcc
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lib/symspec.f90
View File

@ -140,20 +140,20 @@ subroutine chk_samples(ihsym,k,nstop)
call system_clock(count0,clkfreq) call system_clock(count0,clkfreq)
maxhsym=0 maxhsym=0
endif endif
if((mod(ihsym,100).eq.0 .or. ihsym.ge.nstop-100) .and. & ! if((mod(ihsym,100).eq.0 .or. ihsym.ge.nstop-100) .and. &
k0.ne.99999999) then ! k0.ne.99999999) then
call system_clock(count1,clkfreq) ! call system_clock(count1,clkfreq)
dtime=dfloat(count1-count0)/dfloat(clkfreq) ! dtime=dfloat(count1-count0)/dfloat(clkfreq)
if(dtime.lt.28.0) return ! if(dtime.lt.28.0) return
if(dtime.gt.1.d-6) fsample=(k-3456)/dtime ! if(dtime.gt.1.d-6) fsample=(k-3456)/dtime
call date_and_time(values=itime) ! call date_and_time(values=itime)
sec=itime(7)+0.001*itime(8) ! sec=itime(7)+0.001*itime(8)
write(ctime,3000) itime(5)-itime(4)/60,itime(6),sec ! write(ctime,3000) itime(5)-itime(4)/60,itime(6),sec
3000 format(i2.2,':',i2.2,':',f6.3) !3000 format(i2.2,':',i2.2,':',f6.3)
write(33,3033) ctime,dtime,ihsym,nstop,k,fsample ! write(33,3033) ctime,dtime,ihsym,nstop,k,fsample
3033 format(a12,f12.6,2i7,i10,f15.3) !3033 format(a12,f12.6,2i7,i10,f15.3)
flush(33) ! flush(33)
endif ! endif
k0=k k0=k
return return