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