c=======================================================================

      subroutine openckf(ickp,lun) 1
      character*30 file
      logical prnton
c*****
      iprint(kkk,nnn)=mod((kkk/2**nnn),2)
      prnton(kkk,nnn)=iprint(kkk,nnn) .eq. 1
c*****
      do 10 i=0,15
        if(prnton(ickp,i)) then
          write(file,'(a,i2.2)') 'rtinfo.',i
          lu=lun+i
          open(unit=lun+i,file=file,status='unknown')
        endif
 10   continue
      return
      end