Working on bandmap display ...

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@347 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

ftn_init.F90

@@ -9,7 +9,7 @@
 !   16  c:/wsjt.reg 
 !   17  wave files written to disk
 !   18  test file to be transmitted (wsjtgen.f90)
-!   19
+!   19  bandmap.txt
 !   20
 !   21  ALL.TXT
 !   22  kvasd.dat
@@ -97,8 +97,10 @@ subroutine ftn_init
        status='unknown')
 #endif
 
-  open(24,file=appdir(:iz)//'/tmp24.txt',status='unknown')
-  open(26,file=appdir(:iz)//'/tmp26.txt',status='unknown')
+!  open(24,file=appdir(:iz)//'/tmp24.txt',status='unknown',                 &
+!       share='denynone')
+  open(26,file=appdir(:iz)//'/tmp26.txt',status='unknown',                 &
+       share='denynone')
 
   return
 

map65.py

@@ -1264,6 +1264,7 @@ def update():
             except:
                 lines=""
             bmtext.configure(state=NORMAL)
+            bmtext.delete('1.0',END)
             bmtext.insert(END,' Freq     DF Pol  UTC\n')
             bmtext.insert(END,'--------------------------------------------\n')
             for i in range(len(lines)):

map65a.f90

@@ -23,14 +23,24 @@ subroutine map65a
   common/spcom/ss(4,322,NFFT)                !169 MB: half-symbol spectra
   data blank/'                      '/
   data shmsg0/'ATT','RO ','RRR','73 '/
+  data nfile/0/
+  save
 
   include 'gcom2.f90'
 
+  rewind 11
+  rewind 12
+  nfile=nfile+1
+  nutc=0744+nfile
+  infile='061111.0745'
+  write(infile(8:11),1001) nutc
+1001 format(i4.4)
+!  read(infile(8:11),*) nutc
+
   tskip=0.
   fselect=0.
   fselect=104.5303
   nmin=1
-  infile='061111.0745'
 
   open(23,file='CALL3.TXT',status='unknown')
 
@@ -43,12 +53,10 @@ subroutine map65a
   kk=0
   nkk=1
 
-  do nfile=1,nmin
   n=8*NSMAX
   call rfile3a(infile,id,n,ierr)
   newdat=1
   nz=n/8
-     read(infile(8:11),*) nutc
   if(fselect.gt.0.0) then
 
 !  nfilt=2 should be faster (but doesn't work right?)
@@ -277,9 +285,6 @@ subroutine map65a
      j=j+nsiz(n)
   enddo
   call display(nutc)
-!         if(nfile.ge.1) go to 999
-100  continue
-  enddo
   
-999 return
+  return
 end subroutine map65a

sysqqq.f90

@@ -7,7 +7,7 @@ subroutine sysqqq(cmnd,iret)
 #endif
   character*(*) cmnd
 
-!  iret=system(cmnd)
+  iret=system(cmnd)
 
   return
 end subroutine sysqqq