	SUBROUTINE CRYS(DSPACE)
C
C   NEED CRYSTAL INFO FOR SRS300
C
	WRITE(6,1000)
1000	FORMAT(//1X,T15,' #    CRYSTAL      2D(A)'//
     &T15,' 1    LiF(220)     2.848'/
     &T15,' 2    LiF(200)     4.0267'/
     &T15,' 3    Ge           6.532'/
     &T15,' 4    GRAPHITE     6.708'/
     &T15,' 5    InSb         7.4806'/
     &T15,' 6    PET          8.742'/
     &T15,' 7    EDDT         8.808'/
     &T15,' 8    ADP(101)     10.64'/
     &T15,' 9    RAP          26.121'/
     &T15,'10    KAP          26.632'/
     &T15,'11    TAP          25.75'/
     &T15,'12    Pb Stearate  100.7'/
     &T15,'13    OTHERS'//)
C 
100	WRITE(6,1010)
1010	FORMAT(1H$,'ENTER NUMBER OF CRYSTAL USED > ')
	READ(5,2000,END=999) IQ,IA
2000	FORMAT(Q,I2)
C
	IF(IQ.EQ.0) GO TO 100
	IF(IQ.GT.13) GO TO 100
	IF(IA.EQ.1) DSPACE=2.848
	IF(IA.EQ.2) DSPACE=4.0267
	IF(IA.EQ.3) DSPACE=6.532
	IF(IA.EQ.4) DSPACE=6.708
	IF(IA.EQ.5) DSPACE=7.4806
	IF(IA.EQ.6) DSPACE=8.742
	IF(IA.EQ.7) DSPACE=8.808
	IF(IA.EQ.8) DSPACE=10.64
	IF(IA.EQ.9) DSPACE=26.121
	IF(IA.EQ.10) DSPACE=26.632
	IF(IA.EQ.11) DSPACE=25.75
	IF(IA.EQ.12) DSPACE=100.7
C
	IF(IA.EQ.13) THEN
	WRITE(6,1020)
1020	FORMAT(/1H$,'ENTER 2D OF CRYSTAL > ')
	READ(5,*,END=999) DSPACE
	ENDIF
C
	RETURN
999	STOP 'USER EXIT'
	END
