C C LOGPR2.ADM C INTEGER IRCPR2(8,32) COMMON /LOGPR2/IBFPR2(256) C EQUIVALENCE (IBFPR2(1),IRCPR2(1,1)) !32 "old total" records