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:
Joe Taylor 2007-11-02 20:05:44 +00:00
parent 51138866fa
commit e52c46e4a0
3 changed files with 5 additions and 16 deletions

View File

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

View File

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

View File

@ -1,4 +1,4 @@
#----------------------------------------------------------------------- MAP65 #---------------------------------------------------------------------- MAP65
# $Date$ $Revision$ # $Date$ $Revision$
# #
from Tkinter import * from Tkinter import *