C
C	set up things as MPASGD expects (as called from MULPLT)
C
	LUNTI = 5
	LSTRN0 = LENST
	IF (LENST .EQ. 0) GOTO 50
	DO 10 I=1,LENST
	STRNG0(I) = QSTRNG(I)
10	CONTINUE
C
C	sould be all set - let us pretend that we are MULPLT
C
50	CALL MPASGD
	RETURN
	END