C
C	LOGPR1.ADM
C
	LOGICAL*1 LRCPR1(512),UIC(10),PRONAM(32)
	INTEGER LLGIN(6,10),LLGOUT(6,10),TOTLOG(3),TOTSNC(8),ICURPN
	INTEGER GRANTL(3),GRANTS(8)
	COMMON /LOGPR1/IBFPR1(256)
C
	EQUIVALENCE (IBFPR1(1),LRCPR1(1)),	!Easy to use
     $		(LRCPR1(1),UIC(1)),		!UIC of owning account
     $		(LRCPR1(11),PRONAM(1)),		!Project name
     $		(IBFPR1(22),TOTLOG(1)),		!Current total connect time
     $		(IBFPR1(25),TOTSNC(1)),		!Start of current total
     $		(IBFPR1(33),LLGIN(1,1)),	!Last login for each terminal
     $		(IBFPR1(93),LLGOUT(1,1)),	!Last logout for each terminal
     $		(IBFPR1(153),ICURPN),		!Point. to next free old total
						!record in 2nd project block
     $		(IBFPR1(154),GRANTL(1)),	!Grand total connect time
     $		(IBFPR1(157),GRANTS(1))		!Creation date/time of project