C	SNDREC -- PERFORMS VARIABLE SEND DATA AND RESUME RECEIVER
C		,AND RECEIVE DATA OR STOP(IF SEQUENCE =1) DATA
C		DIRECTIVES.
C
C	INPUTS:		ISEQ	EXCUTION ORDER 1= SEND AND RECEIVE
C					       2= SEND AND RETURN
C
C
	SUBROUTINE SNDREC(IERR,ISEQ)
	INTEGER TASKNM(2),ITERM,IDSW,RECDAT(9),SNDATA(7),ITASK(2),ISEQ
	COMMON /IONODE/TASKNM,ITERM,IDSW,RECDAT,ITASK
	EQUIVALENCE (RECDAT(3),SNDATA)
	IERR=.FALSE.
	CALL VSNDRR(TASKNM,,SNDATA,,7,,ITERM,IDSW)
C	PRINT 10,SNDATA      ! THESE LINE ARE FOR THE PURPOSE OF DEBUGGING SDT.
C	TYPE 10,SNDATA
C10	FORMAT(1X,7O6)
	IF(ISEQ.NE.1)GOTO30
15	CALL VRECST(TASKNM,RECDAT,9,ITERM,,IDSW)
	IF(IDSW.EQ.2)GOTO15
	IF(IDSW.NE.1)GOTO2000
C	TYPE 20,(RECDAT(I),I=3,9)
C	PRINT 20,(RECDAT(I),I=3,9)
20	FORMAT(1X,7O6)
C30	TYPE 35
C30	PRINT 35
C35	FORMAT(' ---------------------------------------------')
C30	RETURN
30	RETURN
2000	TYPE 2001
	IERR=.TRUE.
2001	FORMAT(' OBJECT TASK EXITED OR OTHER ERROR ')
	END