*-- Author : Stephen Burke 14/10/92
SUBROUTINE FFTRAN
*-----------------------------------------Updates 14/10/92-------
**: FFTRAN.......SB. New deck for diagnostics.
*-----------------------------------------Updates----------------
**********************************************************************
* *
* Analyse the true track information *
* *
**********************************************************************
*KEEP,FFSCAL.
* Counters
PARAMETER (NSCAL=145)
COMMON /FFSCAL/ NPFAIL,NRFAIL,NXFAIL,NFFAIL,NMFAIL,NBFAIL,NTFAIL
&, NWFAIL,NNSPLT,NNMISS,NNMISP
&, NQFAIL,NAFAIL,NOFAIL,NIFAIL
&, NTRIN,NTROUT,NPRSEG(0:7,0:7),N23SEG(0:7,0:7)
*KEEP,FFDBG.
CHARACTER*5 CFDBG
CHARACTER*6 CFKDBG
PARAMETER (CFDBG='FFDBG',CFKDBG='FFKDBG')
PARAMETER (NTRACK=1000)
COMMON /FFDBG/ ITRTR(2,NTRACK),ITRNF(5,NTRACK),JTRTR
*KEND.
**********************************************************************
*
* Count the number of split tracks
*
JTR = 0
100 CONTINUE
JTR = JTR + 1
IF (ITRTR(2,JTR).GT.1) NNSPLT = NNSPLT + 1
IF (ITRTR(1,JTR).GT.0 .AND. JTR.LT.NTRACK) GOTO 100
*
* Count the number of missed tracks
*
JTR = 0
200 CONTINUE
JTR = JTR + 1
IF (ITRNF(2,JTR)+ITRNF(3,JTR).GT.8) NNMISS = NNMISS + 1
IF (ITRNF(4,JTR).GT.8) NNMISP = NNMISP + 1
IF (ITRNF(1,JTR).GT.0 .AND. JTR.LT.NTRACK) GOTO 200
RETURN
END
*