*
* $Id: dlsout.F,v 1.1.1.1 1995/10/24 10:22:14 cernlib Exp $
*
* $Log: dlsout.F,v $
* Revision 1.1.1.1  1995/10/24 10:22:14  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.35  by  S.Giani
*-- Author :
      SUBROUTINE DLSOUT
C
#include "geant321/gcflag.inc"
C
      DIMENSION NUMVS(2),ITRA(50)
      DIMENSION NUMV1(2,50),NUMV2(2,50),NUMV3(2,50),NUMV4(2,50)
      DIMENSION HITS1(9,50),HITS2(9,50),HITS3(9,50),HITS4(9,50)
      DIMENSION VERT(3),PVERT(4)
      SAVE NUMVS
      DATA NUMVS/0,0/
C
      IF(ISWIT(10).LT.3)GO TO 99
      LUN=ISWIT(10)
 
      CALL GFHITS('DRFT','FSP ',2,9,50,0,NUMVS,ITRA,NUMV1,HITS1,NHITS1)
      CALL GFHITS('DRFT','RSP1',2,9,50,0,NUMVS,ITRA,NUMV2,HITS2,NHITS2)
      CALL GFHITS('DRFT','RSP2',2,9,50,0,NUMVS,ITRA,NUMV3,HITS3,NHITS3)
      CALL GFHITS('DRFT','RSP3',2,9,50,0,NUMVS,ITRA,NUMV4,HITS4,NHITS4)
C
      CALL GFKINE(1,VERT,PVERT,IP,NVERT,UBUF,NUBUF)
C
      WRITE(LUN)NHITS1,NHITS2,NHITS3,NHITS4,IP,VERT,PVERT
      IF(NHITS1.GT.0)THEN
        WRITE(LUN)(NUMV1(2,I),(HITS1(J,I),J=1,9),I=1,NHITS1)
      ENDIF
      IF(NHITS2.GT.0)THEN
        WRITE(LUN)(NUMV2(2,I),(HITS2(J,I),J=1,9),I=1,NHITS2)
      ENDIF
      IF(NHITS3.GT.0)THEN
        WRITE(LUN)(NUMV3(2,I),(HITS3(J,I),J=1,9),I=1,NHITS3)
      ENDIF
      IF(NHITS4.GT.0)THEN
        WRITE(LUN)(NUMV4(2,I),(HITS4(J,I),J=1,9),I=1,NHITS4)
      ENDIF
C
  99  RETURN
      END