Initial commit

1 files changed, 27 insertions, 0 deletions

diff --git a/Pointcurs.f b/Pointcurs.f
new file mode 100755
index 0000000..d4bb692
--- /dev/null
+++ b/Pointcurs.f
@@ -0,0 +1,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
+
+
+