C                                           *--> FROM CLBCOMMON.CLHDRS
      COMMON /CLHDRS/ FILEN(3),NU,IBLKF,IBLKL
C