	BLOCK DATA RETDBS
	IMPLICIT INTEGER (A-Z)
C
C	   Used to initialize the RET3 common blocks ; Includes PHBLOC
C

D	INCLUDE 'CDROM.CMN'
D	INCLUDE 'COUNTS.CMN'
D	INCLUDE 'CVTSP.CMN'
D	INCLUDE 'IORET.CMN'
D	INCLUDE 'PDFDATA.CMN'

C\$INCLUDE:'COUNTS.CMN'
C\$INCLUDE:'CVTSP.CMN'
C\$INCLUDE:'IORET.CMN'
C\$INCLUDE:'PDFDATA.CMN'

	DATA MAX/ 2, 2, 1, 1, 5, 5, 5, 1,10, 1,
     *           20, 1, 1, 1, 1, 1, 1,68, 5, 1,
     *            1, 1/

C LUN's not used in the Powder Suite have been replaced with -1
	DATA NFIN,NFOUT,NFTMP1,NFTMP2,NIN,NOUT,PDFIND,PDFDAT,
     *       NCODEN,NMINRL,NMINGP,ERROUT,HLPTXT,HLPIND,PRINTR,
     *       OF2PDF,N00017,N00018
     *      /-1,-1,33,34,1,2,-1,-1,
     *       39,-1,41,42,-1,-1,-1,
     *       -1,-1,-1/

	DATA CURRENT_SET /999/

	DATA  ISPACG /'D'/,  CONST /0.77025/

C	END
C	BLOCKDATA PHBLOC
C
C	   Used to initialize the number of comment codes
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)

	DATA NUMCD/22/
	END
