WRITE(83,914) NHEP
      DO I=1,NHEP
         WRITE(83,911) ISTHEP(I),IDHEP(I), JMOHEP(1,I),
     &                 JMOHEP(2,I),JDAHEP(1,I), JDAHEP(2,I)
         WRITE(83,912) PHEP(1,I), PHEP(2,I), PHEP(3,I), PHEP(4,I),
     &                 PHEP(5,I)
         WRITE(83,913) VHEP(1,I), VHEP(2,I), VHEP(3,I), VHEP(4,I)
      ENDDO
914   FORMAT (1x,i7)
911   FORMAT (1x,i7,1x,i7,1x,i7,1x,i7,1x,i7,1x,i7)
912   FORMAT (1x,f12.6,1x,f12.6,1x,f12.6,1x,f12.6,1x,f12.6)
913   FORMAT (1x,f16.7,1x,f16.7,1x,f16.7,1x,f16.7)