From e52c46e4a048cb46bbfeccfbd78ec163a5d1d145 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 2 Nov 2007 20:05:44 +0000 Subject: [PATCH] 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 --- decode1.F90 | 5 +---- ftn_init.F90 | 14 +++----------- map65.py | 2 +- 3 files changed, 5 insertions(+), 16 deletions(-) diff --git a/decode1.F90 b/decode1.F90 index 78bd56a03..94bcf2af2 100644 --- a/decode1.F90 +++ b/decode1.F90 @@ -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 diff --git a/ftn_init.F90 b/ftn_init.F90 index 8dfd9496f..a79a400ca 100644 --- a/ftn_init.F90 +++ b/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 diff --git a/map65.py b/map65.py index 0db1cac18..c285969e6 100644 --- a/map65.py +++ b/map65.py @@ -1,4 +1,4 @@ -#----------------------------------------------------------------------- MAP65 +#---------------------------------------------------------------------- MAP65 # $Date$ $Revision$ # from Tkinter import *