C***
C       TITLE   RXSUMM
C
C       Version 1.0     JUN2282
C
C
C    FACILITY:
C   TEST PROGRAMS FOR THE COMMUNICATIONS DRIVER PACKAGE CDPACK
C
C
C    ABSTRACT:
C   SUMMARY SUBROUTINE FOR THE TASK
C   RCVXMT
        SUBROUTINE RXSUMM
C	INCLUDE FILE FOR RCVXMT TEST PROGRAM
C
C       VICKY WHITE, FNAL       JUN2282
C
	IMPLICIT INTEGER(A-Z)
        LOGICAL*1 RBSY,XBSY,STOP
	COMMON/CHANN/CHAN
	COMMON/ERRCOM/IERR
C
C  ARRAYS OF RECEIVER PTCS AND PARAMETERS FOR EACH RECEIVER PTC
C
        COMMON/OPPARS/
     &  RPTC(20),TOTRCV(20),RBSY(20),RWC(20),RDEV(20),RUNT(20),
     &  RCHAN(20),RMBN(20),RINDX(20),RERRS(20),RMODE(20),
     &  XPTC(20),TOTXMT(20),XBSY(20),XWC(20),XDEV(20),XUNT(20),
     &  XCHAN(20),XMBN(20),XNUM(20),XERRS(20),XMODE(20),
     &  XMTMAX,RCVMAX,NXMT,NRCV,MAXR,MAXX,MAXERR,ERRTOT,
     &  STOP                          !STOP ALWAYS AT END - 1 BYTE
C
	DATA RDEV,XDEV/40*'CD'/
	DATA RUNT,XUNT/40* 0  /
        DATA RBSY,XBSY/40*.TRUE./
	DATA RMODE/20*1/
	DATA RCHAN,XCHAN/40*2/
	DATA XWC/20*1000/
	DATA RWC/20*1000/
	DATA RCVLEN,XMTLEN/8000,4000/
	DATA RCVMAX,XMTMAX/1000,1000/
	DATA MAXR,MAXX/20,20/
	DATA MAXERR/5/
C
	DIMENSION STAT(2)
        WRITE(5,2000) NXMT,NRCV
2000    FORMAT(' TOTAL XMTS = ',I6,' TOTAL RCVS = ',I6)
        WRITE(5,2001)
2001	FORMAT(' RPTC      NO.MSGS.      NO. ERRORS')
	DO 10 IR=1,MAXR
	IF(RPTC(IR).EQ.0) GOTO 15
	WRITE(5,2002) RPTC(IR),TOTRCV(IR),RERRS(IR)
2002	FORMAT(I6,5X,I6,8X,I6)
10	CONTINUE
C
15	WRITE(5,2003)
2003	FORMAT(' XPTC      NO.MSGS.      NO. ERRORS')
	DO 20 IX=1,MAXX
        IF(XPTC(IX).EQ.0) GOTO 25
        WRITE(5,2002) XPTC(IX),TOTXMT(IX),XERRS(IX)
20	CONTINUE
C
25	RETURN
	END