*CMZ :  2.04/00 23/11/94  14.16.58  by  Charles F. Maguire
*CMZU:  2.01/00 19/03/93  14.11.44  by  John P. Sullivan
*CMZ :  2.00/00 30/09/92  13.58.17  by  Charles F. Maguire
*-- Author : S.R. Tonse
      SUBROUTINE FV_PUT_DST
C
C  to write out the PISA vertex detector output zebra banks to
C  a Zebra FZ file
C  SRTonse 28-JUL-1992
C  UPDATE BY JHK 9/28/92 for the vertex detector
C
      IMPLICIT NONE
      include 'udst.inc'
      include 'fstore.inc'
      include 'guphnx.inc'
      include 'sublink.inc'
      include 'fpvlink.inc'
      include 'subevt.inc'

      integer dcode /4/   ! WBS order, after FKIN and PRI
      integer lk

      IF (CUDST_OTAG_TYP .EQ. 'PARA') THEN
C
C       at beginning of run write out parameters associated with VER
C
         CALL U_PUT_DS(IXDIV_FR,LFV_PARA,'PISA','VER ','PARA',' ')

         if(root_output.eq.1)then
            lk = lfv_para
            call parrootout(dcode, iqf(lk+2), qf(lk+2))
         endif

C
C  No user parameter:
C              CALL U_PUT_DS(IXDIV_FR,LFV_PARU,'PISA','VER ','PARU',' ')
C
      ENDIF ! CHECK ON CALL WITH A 'PARA' TAG
      IF (CUDST_OTAG_TYP .EQ. 'EVNT') THEN
C
C     event data written to DST  (WHAT HAPPENS TO PISORP IF LFV_CAL = 0 ?)
C
         IF (LFV_CAL(1) .NE. 0) CALL U_PUT_DS(IXDIV_FE,LFV_CAL(1),
     +   'PISA','VER ','VCAL',' ')

         lk = lfv_cal(1)
         if(root_output.eq.1)then
            if(nsub_evt.eq.nsubevents.or.iqf(lk+1).gt.0)then
               call dstrootout(dcode, 0, iqf(lk+1),
     +                         iqf(lk+2), qf(lk+2))
            endif !  check on last subevent or hits > 0
         endif  ! check on ROOT output

      ENDIF ! CHECK ON CALL WITH AN 'EVNT' TAG
      RETURN
      END