module conplot

  ! local module to support ElVis display of trgraf contour plots
  ! (formerly SGLIB only)

  implicit NONE
  save
  
  integer :: conplot_init = 0    ! =1 when module is initialized
  logical :: do_elvis = .FALSE.  ! ElVis plot flag
  character*64 :: wname = ' '    ! set in conplt_init
  character*40 :: gname = ' '    ! set at ElVis plot time
  character*40 :: dname = ' '    ! set at ElVis plot time
  character*40 :: sname = ' '    ! set at ElVis plot time

end module conplot
