Instruction manual

43
INTEGER I, NX
REAL*8 X(NX), XMIN, XMAX
XMIN = 1.0D10
XMAX = -1.0D10
DO 10 I=1,NX
IF(X(I).LE.XMIN) XMIN = X(I)
IF(X(I).GE.XMAX) XMAX = X(I)
10 CONTINUE
RETURN
END SUBROUTINE RANGESET
!==========================================================
SUBROUTINE MOUSECLICK(X,Y)
!==========================================================
USE DFLIB
IMPLICIT NONE
INTEGER*4 MOUSEEVENT, KEYSTATE, X, Y, RESULT
MOUSEEVENT = MOUSE$RBUTTONDOWN .OR. MOUSE$LBUTTONDOWN
RESULT = WAITONMOUSEEVENT(MOUSEEVENT, KEYSTATE, X, Y)
! WRITE(5,*) 'MOUSE AT ', X, Y
RETURN
END SUBROUTINE MOUSECLICK
!==========================================================
SUBROUTINE MOUSETOEXIT(UNIT,MOUSEEVENT,KEYSTATE
& ,MOUSEXPOS,MOUSEYPOS)
!==========================================================
USE DFLIB
INTEGER UNIT,MOUSEEVENT, KEYSTATE,MOUSEXPOS, MOUSEYPOS
LOGICAL MOUSEEXIT
COMMON /MOUSE/ MOUSEEXIT
MOUSEEXIT = .TRUE. ! ONLY EXECUTED IF MOUSE LBUTTON IS PRESSED
RETURN
END SUBROUTINE MOUSETOEXIT