!$Id: dosgin.f90,v 1.1 2000/08/24 20:49:59 rlt Exp $
      subroutine dosgin(ix,iy,butn)

c      * * F E A P * * A Finite Element Analysis Program

c      Copyright (c) 1984-2005: Robert L. Taylor
c                               All rights reserved

c-----------------------------------------------------------------
c      Purpose: Graphical input of screen coordinates with mouse
c
c      Inputs:
c         none
c
c      Outputs:
c         ix       - x screen coordinate
c         iy       - y screen coordinate
c         butn     - Button pressed
c-----------------------------------------------------------------
      use MSFLIB

      implicit  none

      include  'wdata.h'

      character butn*1
      integer   mevent,shiftl,shiftr,key,result
      integer   ix,iy,x,y

      integer         idxl,idyl,jfill
      common /vgraph/ idxl,idyl,jfill

      save

c     Check for left or right button click

      shiftl = mouse$ks_shift .or. mouse$ks_lbutton
      shiftr = mouse$ks_shift .or. mouse$ks_rbutton

      mevent = mouse$lbuttondown .or. mouse$rbuttondown

      result = waitonmouseevent(mevent,key,x,y)

      if(key.eq.shiftl .or. key.eq.shiftr) then
         butn = 'm'
      elseif(key.eq.mouse$ks_lbutton) then
         butn = 'l'
      elseif(key.eq.mouse$ks_rbutton) then
         butn = 'r'
      else
         butn = 'e'
      endif

c     Return coordinates

      ix  = x*idxl
      iy  = 22000 - y*idyl

      end