c
      subroutine wrlab5(tlab0,tlab1,toffset, blab0,blab1,blab2,
     +  boffset, tlab0_sz, tlab1_sz, blab0_sz, blab1_sz, blab2_sz, 
     +  ihq)
      character*(*) tlab0,tlab1,blab0,blab1,blab2
      data space_between/.03/
c
      call getset(vl,vr,vb,vt,wl,wr,wb,wt,lnlg)
      xmid = .5*(vl+vr)
      ltlab0 = lenstr(tlab0)
      ltlab1 = lenstr(tlab1)
      lblab0 = lenstr(blab0)
      lblab1 = lenstr(blab1)
      lblab2 = lenstr(blab2)
c
c Two top labels:
c
      if (ltlab1.gt.0)
     +  call wrlab(tlab1(1:ltlab1),xmid,vt+toffset+space_between,
     +    tlab1_sz, ihq)
      if (ltlab0.gt.0)
     +  call wrlab(tlab0(1:ltlab0),xmid,vt+toffset,tlab0_sz,ihq)
c
c Three bottom labels:
c
      if (lblab2.gt.0)
     +  call wrlab(blab2(1:lblab2),xmid,vb-boffset,blab2_sz,ihq)
      if (lblab1.gt.0)
     +  call wrlab(blab1(1:lblab1),xmid,vb-boffset-space_between,
     +    blab1_sz, ihq)
      if (lblab0.gt.0)
     +  call wrlab(blab0(1:lblab0),xmid,vb-boffset-2.*space_between,
     +    blab0_sz, ihq)
      return
      end