	SUBROUTINE NXTCOM (MAXCPL, NCC, BEGIN, LSTPOS, EXIST)
C
C	   Determine next comments card.  If none exist, return a blank.
C		MAXCPL - maximum characters per line
C
C	   By: Mark Holomany     date: 20-JUL-1987
C
C
	IMPLICIT INTEGER (A-Z)

	COMMON /COMCRD/  CCARD, NUMPHC, CHPHC, CDCNT, FSTCRD, LINKCM,
	1                STCRD, NUMCD
	CHARACTER        CCARD*1760
	INTEGER          CDCNT(30), FSTCRD(30), LINKCM(20)
	INTEGER          STCRD(30)
	LOGICAL EXIST


	NCC = NCC + 1
	IF(NCC .GT. NUMPHC) THEN
 	   EXIST = .FALSE.
	   BEGIN = 1760
	   LSTPOS = 1760
	   CCARD(BEGIN:LSTPOS) = ' '
	   RETURN
	ENDIF
	EXIST = .TRUE.

	BEGIN = STCRD(NCC)
	IF(NCC .LE. NUMPHC) THEN
	   END = MIN0(STCRD(NCC+1)-1, CHPHC, BEGIN+MAXCPL-1)
	   IF(END .EQ. -1) END = MIN0(CHPHC, BEGIN+MAXCPL-1)
	   LSTPOS = END
C>>>	   CALL DELTSC (CCARD, BEGIN, END, LSTPOS)
C>>>	   WRITE(NOUT,1610) CCARD(BEGIN:LSTPOS)
	ENDIF

	RETURN
	END
