CALL NUMARG( IARG )  --  This routine returns the number of
 arguments that were passed to the calling routine.  i.e.
	
		CALL SUB1( X, Y )
		.
		.
		.
		SUBROUTINE SUB1( X, Y, Z )
	C
	C - CHECK NUMBER OF ARGUMENTS.
		CALL NUMARG( IARG )
	C
	C - WRITE ERROR MESSAGE AND STOP IF NOT CORRECT NUMBER.
		IF( IARG .EQ. 3 ) GO TO 100
		CALL OTSERR( 80 )
		STOP
	 100	CONTINUE