module eq_module
  use physconst_mod, only: czero=>zero, chalf=>half, cone=>one, ctwo=>two, &
       cpi=>pi, c2pi=>twopi
  ! private module used in implementation of original f77 style XPLASMA
  ! interface... i.e. private to the xplasma library, not meant for use
  ! by subroutines outside xplasma.

  ! NOTE: this module is meant to be used in the xplasma library along with
  ! the public module "xplasma_obj_instance" which makes a shared xplasma
  ! object available.

  implicit NONE
  save

  logical :: eq_module_init = .FALSE.

  integer :: lunerr = 6

  character*132 :: eq_premsg_text = ' '

  !--------------------------
  !  constants...

  real*8, parameter :: ceps4 = 1.0d-4
 
end module eq_module
