mirror of
				https://github.com/saitohirga/WSJT-X.git
				synced 2025-11-03 21:40:52 -05:00 
			
		
		
		
	Fixed so that files can be read while Monitoring or Auto is on.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@135 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
		
							parent
							
								
									6bcfe14ec2
								
							
						
					
					
						commit
						4dc8d03f8a
					
				@ -41,7 +41,6 @@ subroutine getfile(fname,len)
 | 
				
			|||||||
#ifdef Win32
 | 
					#ifdef Win32
 | 
				
			||||||
  open(10,file=fname,form='binary',status='old',err=998)
 | 
					  open(10,file=fname,form='binary',status='old',err=998)
 | 
				
			||||||
  read(10,end=998) hdr
 | 
					  read(10,end=998) hdr
 | 
				
			||||||
  
 | 
					 | 
				
			||||||
#else
 | 
					#else
 | 
				
			||||||
  call rfile2(fname,hdr,44+2*NDMAX,nr)
 | 
					  call rfile2(fname,hdr,44+2*NDMAX,nr)
 | 
				
			||||||
#endif
 | 
					#endif
 | 
				
			||||||
@ -75,13 +74,7 @@ subroutine getfile(fname,len)
 | 
				
			|||||||
#endif
 | 
					#endif
 | 
				
			||||||
  endif
 | 
					  endif
 | 
				
			||||||
 | 
					
 | 
				
			||||||
  if(monitoring.eq.0) then
 | 
					  ndiskdat=1
 | 
				
			||||||
! In this case, spec should read data from d2c
 | 
					 | 
				
			||||||
!     jzc=jzc/2048
 | 
					 | 
				
			||||||
!     jzc=jzc*2048
 | 
					 | 
				
			||||||
     ndiskdat=1
 | 
					 | 
				
			||||||
  endif
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
  mousebutton=0
 | 
					  mousebutton=0
 | 
				
			||||||
  go to 999
 | 
					  go to 999
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
				
			|||||||
							
								
								
									
										1
									
								
								spec.f90
									
									
									
									
									
								
							
							
						
						
									
										1
									
								
								spec.f90
									
									
									
									
									
								
							@ -199,7 +199,6 @@ subroutine spec(brightness,contrast,logmap,ngain,nspeed,a)
 | 
				
			|||||||
     nspeed0=nspeed
 | 
					     nspeed0=nspeed
 | 
				
			||||||
  endif
 | 
					  endif
 | 
				
			||||||
 | 
					
 | 
				
			||||||
!  print*,brightness,contrast,logmap,gain,gamma,offset
 | 
					 | 
				
			||||||
  do i=1,iz
 | 
					  do i=1,iz
 | 
				
			||||||
     n=0
 | 
					     n=0
 | 
				
			||||||
     if(a0(i).gt.0.0 .and. logmap.eq.1) n=gain*log10(0.001*a0(i)) + offset + 20
 | 
					     if(a0(i).gt.0.0 .and. logmap.eq.1) n=gain*log10(0.001*a0(i)) + offset + 20
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user