	BLOCKDATA PHBLOCCC	   Used to initialize the number of comment codesC	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)	DATA NUMCD/22/	END