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