blob: d4bb692a7b5c14d0107eff036e8c6b5df250e1d8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
subroutine pointcurs
c******************************************************************************
c This subroutine returns the cursor position upon a click
c******************************************************************************
include 'Pstuff.com'
integer ichr
call sm_graphics
if (whichwin .eq. '1of1') then
call sm_window (1,1,1,1,1,1)
elseif (whichwin .eq. '2of2') then
call sm_defvar ('y_gutter','0.0')
call sm_window (1,2,1,1,1,1)
endif
call sm_curs (xplotpos,yplotpos,ichr)
call sm_gflush
call sm_alpha
return
end
|
