PROGRAM TSTUSR
C
C File TSTUSR.FTN
C
C Program to test calls to CDUSER
C
	IMPLICIT INTEGER (A-Z)
	EXTERNAL USRCMP,USRSIG
C
	COMMON /CDCM82/ CDCM(1)
C
	DIMENSION USRADR(2)
C
	CALL GETADR(USRADR,USRCMP,USRSIG)
	TYPE 1000,USRADR
1000	FORMAT(' ADDRESSES OF USRCMP,USRSIG = ',2O7)
C
C Check setting of error message LUN
	TYPE 1001,CDCM(20)
1001	FORMAT(' CD.ERL = ',I3)
	CALL CDERRL(9)
	TYPE 1001,CDCM(20)
	CALL CDERRL(5)
	TYPE 1001,CDCM(20)
C
C Check setting of user AST routines
	TYPE 1010,(CDCM(16+I),I=1,3)
1010	FORMAT(' CD.CRN, CD.CMP, CD.SIG = ',3O7)
	CALL CDUSER(USRCMP,USRSIG)
	TYPE 1010,(CDCM(16+I),I=1,3)
	CALL CDUSER
	TYPE 1010,(CDCM(16+I),I=1,3)
	CALL CDUSER(USRCMP,)
	TYPE 1010,(CDCM(16+I),I=1,3)
	CALL CDUSER(USRCMP,USRSIG)
	TYPE 1010,(CDCM(16+I),I=1,3)
	CALL CDUSER()
	TYPE 1010,(CDCM(16+I),I=1,3)
	CALL CDUSER(USRCMP)
	TYPE 1010,(CDCM(16+I),I=1,3)
	CALL CDUSER(,USRSIG)
	TYPE 1010,(CDCM(16+I),I=1,3)
	CALL CDUSER(USRCMP,USRSIG)
	TYPE 1010,(CDCM(16+I),I=1,3)
	CALL CDUSER(,)
	TYPE 1010,(CDCM(16+I),I=1,3)
	CALL CDUSER(USRCMP,)
	TYPE 1010,(CDCM(16+I),I=1,3)
	CALL CDUSER(,USRSIG)
	TYPE 1010,(CDCM(16+I),I=1,3)
C
	CALL EXIT
	END
	SUBROUTINE USRCMP(MBN)
	TYPE 1000,MBN
1000	FORMAT(' Hello from USRCMP.  MBN = ',I5)
	RETURN
	END
	SUBROUTINE USRSIG(MBN)
	TYPE 1000,MBN
1000	FORMAT(' Hello from USRSIG.  MBN = ',I5)
	RETURN
	END