PROGRAM RCVTST
C
C	Version 2.0	5JUL84
C
C
C    FACILITY:
C   TEST PROGRAMS FOR THE COMMUNICATIONS DRIVER PACKAGE CDPACK
C
C
C    ABSTRACT:
C   MAKES CALLS TO THE ROUTINES OF CDPACK TO RECEIVE MESSAGES
C
C
C    AUTHOR     Vicky White
C               Computing Department
C               Fermi National Accelerator Lab
C
C   CREATION DATE: JUN0382
C
C   MODIFIED BY:	David Berg	specify unit numbers
C					open multiple sessions and wait
C
C***
	IMPLICIT INTEGER(A-Z)
C Allocate space for up to 4 open sessions on 4 channels
	COMMON /CDCM82/ CDCM(20 + 4*19)
	DIMENSION RBUF(4000)
	DIMENSION STAT(2)
	DATA MAXWC/4000/
C
	L = 1
5	CALL DLDEC(' CD UNIT NUMBER',UNIT,UNIT,0,)
        CALL CDASGN(L,'CD',UNIT,STAT)
	CALL DLOUTO(' ASSIGN STATUS ',STAT(1),STAT(2))
	IF(L.GE.4) GOTO 6
	GO = 0
	CALL DLYENO(' OPEN ANOTHER SESSION?',GO,GO)
	IF(GO.EQ.0) GOTO 6
	L = L + 1
	GOTO 5
6	LIM = L
	DO 7 L=1,LIM
	CALL CDOPEN(L,L,STAT)
        CALL DLOUTO(' OPEN STATUS ',STAT(1),STAT(2))
	CALL CDRCV(L,L,RBUF,MAXWC,STAT)
        CALL DLOUTO(' RCV STATUS ',STAT(1),STAT(2))
7	CONTINUE
10	MBN = 0
	CALL CDWAIT(MBN)
	CALL CDSTAT(MBN,INF,STAT)
	CALL DLOUTO(' MBN/INF = ',MBN,INF)
	CALL DLOUTO(' STATUS AFTER WAIT ',STAT(1),STAT(2))
        CALL DLYENO(' EXIT?',EX,EX)
	IF(EX.NE.1) GOTO 10
	CALL EXIT
	END