#include "HepTuple/hbook/pilot.h"
      subroutine formatrwn(id1,blkformat)
*.
*.           To reconstruct the format string for a N-tuple
*.
      implicit none
*
#include "HepTuple/hbook/hcflag.inc"
#include "HepTuple/hbook/hcbook.inc"
#include "HepTuple/hbook/hcbits.inc"
#include "HepTuple/hbook/hcunit.inc"
      dimension name(2)
      character*(*) blkformat
      character*8   chtag
      character*1   null
      integer       id1
      integer       idpos, ndim, itag1, i, lenocc, lenform
      integer       name
      integer       locati, jbit
*.___________________________________________
*
      blkformat = ' '
      null = char(0)
      id=id1
      idpos=locati(iq(ltab+1),iq(lcdir+knrh),id)
      if(idpos.le.0)return
      lcid=lq(ltab-idpos)
      lcont=lq(lcid-3)
      i4=jbit(iq(lcid+kbits),4)
      if(i4.eq.0)return
      if (iq(lcid-2) .ne. 2) then
*        call hprnt(id1)
         return
      endif
*
      ndim=iq(lcid+2)
      itag1=iq(lcid+10)
*
      do 10 i=1,ndim
         call ucopy(iq(lcid+itag1+2*(i-1)),name,2)
         call uhtoc(name,4,chtag,8)
         if(i.eq.1) blkformat = chtag(1:lenocc(chtag))//':R*4'
         if(i.gt.1) blkformat = blkformat(1:lenocc(blkformat))//','
     +                        //chtag(1:lenocc(chtag))//':R*4'
  10  continue
*
      lenform = lenocc(blkformat)+1
      blkformat = blkformat(1:lenocc(blkformat))//null
  99  return
      end