subroutine rfxqlo_options_dflts(zopt)
  !  get default settings for instance of rfxqlo_options compound data type
  use rfxqlo_types
  implicit NONE
  type (rfxqlo_options), intent(out) :: zopt

  zopt%mod_dielec = 1
  zopt%lisotrp = .TRUE.
  zopt%lposabs = .TRUE.

  zopt%iflr = 1
  zopt%ibweld = 1

  zopt%ibpol = 1
  zopt%iqtor = 1
  zopt%icoll = 0
  zopt%enhcol = 0.0d0

  zopt%flr_fac = 1.0d0
  zopt%iflre = 0
  zopt%alfvn = 0.0d0

  zopt%numeric_mhd = .TRUE.

end subroutine rfxqlo_options_dflts

subroutine rfxqlo_options_set(zopt,ierr)
  !  define options settings for rfxqlo module
  use rfxqlo_private
  implicit NONE
  type (rfxqlo_options), intent(in) :: zopt
  integer, intent(out) :: ierr     ! 0: OK; 1: error

  ierr=0
  have_options = .TRUE.
  rfx_options = zopt

end subroutine rfxqlo_options_set

subroutine rfxqlo_options_get(zopt,ierr)
  !  fetch options settings from rfxqlo module
  use rfxqlo_private
  implicit NONE
  type (rfxqlo_options), intent(out) :: zopt
  integer, intent(out) :: ierr     ! 0: OK; 1: error

  ierr=0
  if(.not.have_options) then
     ierr=1
     write(lunmsg,*) &
          ' ?rfxqlo_options: options settings have not been provided', &
          ' to rfxqlo module.'
  else
     zopt = rfx_options
  endif

end subroutine rfxqlo_options_get
