mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-26 14:18:38 -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
|
newdat=1
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if(kbuf.ne.kbuf0) then
|
if(kbuf.ne.kbuf0) kkdone=0
|
||||||
kkdone=0
|
|
||||||
rewind 29
|
|
||||||
endif
|
|
||||||
kbuf0=kbuf
|
kbuf0=kbuf
|
||||||
kkk=kk
|
kkk=kk
|
||||||
if(kbuf.eq.2) kkk=kk-5760000
|
if(kbuf.eq.2) kkk=kk-5760000
|
||||||
|
14
ftn_init.F90
14
ftn_init.F90
@ -5,7 +5,7 @@
|
|||||||
! 12 decoded.ave
|
! 12 decoded.ave
|
||||||
! 13 tsky.dat
|
! 13 tsky.dat
|
||||||
! 14 azel.dat
|
! 14 azel.dat
|
||||||
! 15 debug.txt
|
! 15
|
||||||
! 16 c:/wsjt.reg
|
! 16 c:/wsjt.reg
|
||||||
! 17 wave files written to disk
|
! 17 wave files written to disk
|
||||||
! 18 test file to be transmitted (wsjtgen.f90)
|
! 18 test file to be transmitted (wsjtgen.f90)
|
||||||
@ -72,14 +72,6 @@ subroutine ftn_init
|
|||||||
err=930)
|
err=930)
|
||||||
#endif
|
#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
|
#ifdef Win32
|
||||||
open(19,file=appdir(:iz)//'/messages.txt',status='unknown', &
|
open(19,file=appdir(:iz)//'/messages.txt',status='unknown', &
|
||||||
share='denynone',err=911)
|
share='denynone',err=911)
|
||||||
@ -147,10 +139,10 @@ subroutine ftn_init
|
|||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifdef Win32
|
#ifdef Win32
|
||||||
open(29,file=appdir(:iz)//'/tmp29.txt',status='unknown', &
|
open(29,file=appdir(:iz)//'/debug.txt',status='unknown', &
|
||||||
share='denynone')
|
share='denynone')
|
||||||
#else
|
#else
|
||||||
open(29,file=appdir(:iz)//'/tmp29.txt',status='unknown')
|
open(29,file=appdir(:iz)//'/debug.txt',status='unknown')
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user