Fixed logic for transmission of test files in wsjtgen.F90.

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

wsjtgen.F90

@@ -60,30 +60,29 @@ subroutine wsjtgen
 
   if(msg(1:1).eq.'@') then
      if(msg(2:2).eq.'/' .or. ichar(msg(2:2)).eq.92) then
-        if(msg(2:).ne.testfile) then
+        txmsg=msg
-           testfile=msg(2:)
+        testfile=msg(2:)
-
 #ifdef Win32
-           open(18,file=testfile,form='binary',status='old',err=12)
+        open(18,file=testfile,form='binary',status='old',err=12)
 #else
-           open(18,file=testfile,form='unformatted',status='old',err=12)
+        open(18,file=testfile,form='unformatted',status='old',err=12)
 #endif
 
-           go to 14
+        go to 14
-12         print*,'Cannot open test file ',msg(2:)
+12      print*,'Cannot open test file ',msg(2:)
-           go to 999
+        go to 999
-14         read(18) hdr
+14      read(18) hdr
-           if(ndata.gt.NTxMax) ndata=NTxMax
+        if(ndata.gt.NTxMax) ndata=NTxMax
-           call rfile(18,iwave,ndata,ierr)
+        call rfile(18,iwave,ndata,ierr)
-           close(18)
+        close(18)
-           if(ierr.ne.0) print*,'Error reading test file ',msg(2:)
+        if(ierr.ne.0) print*,'Error reading test file ',msg(2:)
-           nwave=ndata/2
+        nwave=ndata/2
-           do i=nwave,NTXMAX
+        do i=nwave,NTXMAX
-              iwave(i)=0
+           iwave(i)=0
-           enddo
+        enddo
-        endif
         go to 999
      endif
+     
 
 ! Transmit a fixed tone at specified frequency
      freq=1000.0

wsjtrc.win

@@ -1,6 +1,6 @@
-*font:			Arial 9
+*font:			Arial 8
-*Label*font:		Arial 9
+*Label*font:		Arial 8
-*Text*font:		"Courier New" 10
+*Text*font:		"Courier New" 9
 *background:		gray85
 *Text*background:	white
 *Entry*background:	white