CIPRIME CNREC1                                                          CNREC1      1
      CHARACTER*4 TEXT                                                  CNREC1      2
      CHARACTER*12 LFID                                                 CNREC1      3
      DIMENSION SCALE(5),IDENT(18),IDATE(18),NAME(18)                   CNREC1      4
      COMMON /REC1/ LFNO,LFREC,ICASE,LBUSNO,SCALE,NAME,IDATE,IDENT,DG   CNREC1      5
      COMMON /REC1C/ TEXT(145),LFID                                     CNREC1      6
