SUBROUTINE SPCTR(FREQ,DBS,NSPEC)
C
C	This subroutine draws out a line spectrum where,
C
C	FREQ, DBS	Arrays containing the coordinates of the
C			data points (tops of the lines) in units
C			of the axes.  Scaling is done through
C			SUBROUTINE PSTN.
C	NSPEC		Number of lines to plot using the above arrays.
C
	COMMON /PSTN/ XZero, XScale, LogX,
	1  YZero, YScale, LogY, YMin
	DIMENSION FREQ(1), DBS(1)
	LOGICAL LogX, LogY
C
	CALL PSTN( FREQ(1), YMin, XP, BOT )
	DO 1000 n=1,NSPEC
	IF( DBS(n) .LE. YMin ) GO TO 1000
	CALL PSTN( FREQ(n), DBS(n), XP, YP )
	CALL CALPLT(XP,YP,3)
	CALL CALPLT(XP,BOT,2)
1000	CONTINUE
C
	RETURN
	END