C ******************************************************* C * * C * THIS SOFTWARE WAS DEVELOPED WITH SUPPORT * C * FROM THE NATIONAL INSTITUTES OF HEALTH: * C * NIH CA06927 * C * NIH CA22780 * C * * C * DIRECT INQUIRIES TO: * C * COMPUTER CENTER * C * THE INSTITUTE FOR CANCER RESEARCH * C * 7701 BURHOLME AVENUE * C * PHILADELPHIA, PENNSYLVANIA 19111 * C * * C * NO WARRANTY OR REPRESENTATION, EXPRESS OR * C * IMPLIED, IS MADE WITH RESPECT TO THE * C * CORRECTNESS, COMPLETENESS, OR USEFULNESS * C * OF THIS SOFTWARE, NOR THAT USE OF THIS * C * SOFTWARE MIGHT NOT INFRINGE PRIVATELY * C * OWNED RIGHTS. * C * * C * NO LIABILITY IS ASSUMED WITH RESPECT TO * C * THE USE OF, OR FOR DAMAGES RESULTING FROM * C * THE USE OF THIS SOFTWARE * C * * C ******************************************************* C * * C * THIS SOFTWARE WAS DESIGNED FOR USE ON A * C * PDP-11/70 OPERATING UNDER IAS V3.0 USING * C * THE FORTRAN-IV PLUS COMPILER. * C * * C ******************************************************* SUBROUTINE WHOZON(NAME,FILL,DEV,UNIT) C C THIS SUBROUTINE GETS THE NAME OF THE USER ON A SPECIFIED C DEVICE WITHOUT THE NEED TO BE LINKED TO SCOM, IASCOM, OR ACCCOM. C C NAME -- TWELVE BYTE USER NAME C FILL -- FILL CHARACTER. NAMES ARE NORMALLY NULL FILLED WHEN C RETURNED. IF YOU WISH THEM SPACE FILLED, MAKE THIS A C SPACE. IF YOU DO NOT WISH THEM BLANK FILLED, THIS SHOULD C BE ZERO. C DEV -- DEVICE NAME: C IF DEV < 0, DEV IS A PUD POINTER (IE. THE TI INDICATOR C RETURNED BY THE RECEIVE BLOCK). C IF DEV = 0, THE NAME OF THE CURRENTLY LOGGED IN USER C IS DESIRED. C IF DEV > 0, DEV IS THE TWO CHARACTER DEVICE NAME. C UNIT -- DEVICE UNIT NUMBER (MUST BE PRESENT, BUT IGNORED C IF DEV <= 0). C C THIS SUBROUTINE CALLS SENMES WHICH IN TURN REQUIRES THAT .WHO. BE C INSTALLED. C BYTE NAME(12) BYTE FILL INTEGER DEV,UNIT INTEGER SMES(2),RMES(8) BYTE UNAME(12) EQUIVALENCE (UNAME,RMES(3)) INTEGER*4 WHOTSK DATA WHOTSK/6R.WHO. / SMES(1) = DEV SMES(2) = UNIT CALL SENMES(WHOTSK,SMES,2,.TRUE.,RMES,6) DO 10 I=1,12 NAME(I)=UNAME(I) IF(NAME(I).EQ.0.OR.NAME(I).EQ.1H )NAME(I)=FILL 10 CONTINUE RETURN END