C                                           *--> FROM COMMON.TSCRAT
      COMMON/TSCRAT/KTSCR,LRECL,MAXREC
C