subroutine save_echo_params(nDop,nfrit,f1,fspread,id2,idir)

  integer*2 id2(10)
  integer*2 id2a(10)
  real*8 fspread,fspread0
  equivalence (nDop0,id2a(1))
  equivalence (nfrit0,id2a(3))
  equivalence (f10,id2a(5))
  equivalence (fspread0,id2a(7))

  if(idir.gt.0) then
     nDop0=nDop
     nfrit0=nfrit
     f10=f1
     fspread0=fspread
     id2=id2a
  else
     id2a=id2
     id2(1:10)=0
     nDop=nDop0
     nfrit=nfrit0
     f1=f10
     fspread=fspread0
  endif

  return
end subroutine save_echo_params