C***   LOGIN
      SUBROUTINE LOGIN
      IMPLICIT INTEGER(A-Z)
      DIMENSION VEC(15)
      LOGICAL ACTIVE
      INTEGER*4 MESSGS
      COMMON/LNKCOM/ACTIVE(32),USER(15,32),MESSGS(32),MONITO(32),
     1  TEXT(70,32)
      COMMON/WRUCOM/ME
      CALL TIMDAT(VEC,15)
      ME=VEC(12)
      CALL TIMDAT(USER(1,ME),15)
      ACTIVE(VEC(12))=.TRUE.
      RETURN
      END