Write antenna amplitudes to out_unit
This writes if write_antenna is .false.
while antenna_amplitudes writes if it is .true.!
subroutine dump_ant_amp
use gs2_time, only: user_time
use mp, only: proc0
implicit none
real :: time
integer :: i
if (no_driver) return
if (.not. write_antenna) then
time = user_time
do i=1,nk_stir
if (proc0) write(out_unit, fmt='(7(1x,e13.6),1x,i2)') &
& time, real((a_ant(i)+b_ant(i))/sqrt(2.)), &
& aimag((a_ant(i)+b_ant(i))/sqrt(2.)),real(a_ant(i)), aimag(a_ant(i)), &
& real(b_ant(i)), aimag(b_ant(i)),i
end do
end if
end subroutine dump_ant_amp