1 2C*GRTTER -- test whether device is user's terminal (VMS) 3C+ 4 SUBROUTINE GRTTER(STRING, SAME) 5 CHARACTER*(*) STRING 6 LOGICAL SAME 7C 8C Return a logical flag indicating whether the supplied device 9C name is a name for the user's controlling terminal or not. 10C (Some PGPLOT programs wish to take special action if they are 11C plotting on the user's terminal.) 12C 13C Arguments: 14C STRING : (input) the device name to be tested. 15C SAME : (output) .TRUE. is STRING contains a valid name for the 16C user's terminal; .FALSE. otherwise. 17C-- 18C 9-Feb-1988 19C----------------------------------------------------------------------- 20 INTEGER LIB$GETDVI 21 INTEGER IER1, IER2, L1, L2 22 CHARACTER*255 DEV1, DEV2 23 EXTERNAL DVI$_FULLDEVNAM 24C 25 IER1 = LIB$GETDVI(%LOC(DVI$_FULLDEVNAM), , STRING, , 26 1 DEV1, L1) 27 IER2 = LIB$GETDVI(%LOC(DVI$_FULLDEVNAM), , 'TT:', , 28 1 DEV2, L2) 29 SAME = (IER1.EQ.1) .AND. (IER2.EQ.1) .AND. 30 1 (L1.EQ.L2) .AND. (DEV1(:L1).EQ.DEV2(:L2)) 31 END 32