Campbell PC208 Instrukcja Obsługi Pobierz pdf (Strona 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

1 2 ... 38 39 40 41 42 43 44 45 46 47 48 ... 53 54

Brak uwag

Campbell PC208 Instrukcja Obsługi Strona 43