mirror of
				https://github.com/saitohirga/WSJT-X.git
				synced 2025-11-03 21:40:52 -05:00 
			
		
		
		
	Save a temporary test program.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4300 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
		
							parent
							
								
									0fe9dbf52d
								
							
						
					
					
						commit
						97aee45aa9
					
				@ -1 +1 @@
 | 
				
			|||||||
svn status | grep -v '?'
 | 
					svn status | grep -v "?"
 | 
				
			||||||
 | 
				
			|||||||
							
								
								
									
										13
									
								
								lib/t1.f90
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										13
									
								
								lib/t1.f90
									
									
									
									
									
										Normal file
									
								
							@ -0,0 +1,13 @@
 | 
				
			|||||||
 | 
					program t1
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  character*22 msg
 | 
				
			||||||
 | 
					  complex c3(0:4096-1)
 | 
				
			||||||
 | 
					  complex c5(0:4096-1)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  do i=1,999
 | 
				
			||||||
 | 
					     read(51,end=999) nutc,nsnr,xdt,nfreq,msg,c3,c5
 | 
				
			||||||
 | 
					     write(*,1010) nutc,nsnr,xdt,nfreq,msg
 | 
				
			||||||
 | 
					1010 format(2i6,f7.1,i6,2x,a22)
 | 
				
			||||||
 | 
					  enddo
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					999 end program t1
 | 
				
			||||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user