SUBROUTINE CU(DINT,NUM)
C
C **	THIS ROUTINE RETURNS TWO-THETA VALUES FOR COPPER PEAKS
C **	NUM IS THE NUMBER OF PEAKS
C
	IMPLICIT REAL*8(A-H,O-Z)
	DIMENSION DINT(1),DSI(8)
C
	DATA DSI/ 43.31686, 50.44927, 74.12602, 89.93736, 95.14729,
     2 116.93344, 136.50079, 144.70555/
C
	NUM=8
C
	DO 10 I=1,NUM
	DINT(I)=DSI(I)
10	CONTINUE
	RETURN
	END