mirror of
				https://github.com/saitohirga/WSJT-X.git
				synced 2025-11-04 05:50:31 -05:00 
			
		
		
		
	
		
			
	
	
		
			10 lines
		
	
	
		
			125 B
		
	
	
	
		
			Fortran
		
	
	
	
	
	
		
		
			
		
	
	
			10 lines
		
	
	
		
			125 B
		
	
	
	
		
			Fortran
		
	
	
	
	
	
| 
								 | 
							
								subroutine save_dxbase(dxbase0)
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								  use packjt77
							 | 
						||
| 
								 | 
							
								  character*6 dxbase0
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								  dxbase=dxbase0
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								  return
							 | 
						||
| 
								 | 
							
								end subroutine save_dxbase
							 |