mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-26 22:28:41 -05:00
Removed rewind of LU 29, and connected it to debug.txt.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@573 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
51138866fa
commit
e52c46e4a0
@ -33,10 +33,7 @@ subroutine decode1(iarg)
|
||||
newdat=1
|
||||
endif
|
||||
|
||||
if(kbuf.ne.kbuf0) then
|
||||
kkdone=0
|
||||
rewind 29
|
||||
endif
|
||||
if(kbuf.ne.kbuf0) kkdone=0
|
||||
kbuf0=kbuf
|
||||
kkk=kk
|
||||
if(kbuf.eq.2) kkk=kk-5760000
|
||||
|
14
ftn_init.F90
14
ftn_init.F90
@ -5,7 +5,7 @@
|
||||
! 12 decoded.ave
|
||||
! 13 tsky.dat
|
||||
! 14 azel.dat
|
||||
! 15 debug.txt
|
||||
! 15
|
||||
! 16 c:/wsjt.reg
|
||||
! 17 wave files written to disk
|
||||
! 18 test file to be transmitted (wsjtgen.f90)
|
||||
@ -72,14 +72,6 @@ subroutine ftn_init
|
||||
err=930)
|
||||
#endif
|
||||
|
||||
#ifdef Win32
|
||||
open(15,file=appdir(:iz)//'/debug.txt',status='unknown', &
|
||||
share='denynone',err=940)
|
||||
#else
|
||||
open(15,file=appdir(:iz)//'/debug.txt',status='unknown', &
|
||||
err=940)
|
||||
#endif
|
||||
|
||||
#ifdef Win32
|
||||
open(19,file=appdir(:iz)//'/messages.txt',status='unknown', &
|
||||
share='denynone',err=911)
|
||||
@ -147,10 +139,10 @@ subroutine ftn_init
|
||||
#endif
|
||||
|
||||
#ifdef Win32
|
||||
open(29,file=appdir(:iz)//'/tmp29.txt',status='unknown', &
|
||||
open(29,file=appdir(:iz)//'/debug.txt',status='unknown', &
|
||||
share='denynone')
|
||||
#else
|
||||
open(29,file=appdir(:iz)//'/tmp29.txt',status='unknown')
|
||||
open(29,file=appdir(:iz)//'/debug.txt',status='unknown')
|
||||
#endif
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user