      SUBROUTINE RCARD(NREC,DSPACE,INT,NDSINT,CNAME,NSYM,LUNPDF,RIC,
     1 NF,WKA1)
C--
C  READS DESIGNATED JCPDS CARD AND RETURNS D'S AND I'S OR T'S AND I'S
C--
      DIMENSION DSPACE(100)
      INTEGER INT(100),DSP(21),D(9)
      BYTE CNAME(110),IN(21),IB(9),NF
      BYTE BUFFER(37),NAME(60),IIC(5)
      DO 10 I=1,110
10    CNAME(I)=' '
      READ(LUNPDF'NREC)BUFFER,D,IB
      NREC=NREC+1
      NDSINT=BUFFER(1)
      NSYM=BUFFER(2)
      CNAME(39)=BUFFER(3)
      DO 170 LL=1,34
      KK=LL+3
170   CNAME(LL)=BUFFER(KK)
      NN=1
      DO 200 I=1,9
C      DSPACE(I)=0.770299/SIN(0.0000872665*D(I))
	X=0.25*(0.0001*FLOAT(D(I))+3.14159265)
	DSPACE(NN)=0.770299/SIN(X)
      IF(NF.NE.'T')GOTO171
      X=WKA1/(2.0*DSPACE(I))
      IF(X.GT.1)GOTO200
	 DSPACE(NN)=114.59156*ASIN(X)
171   INT(NN)=IB(I)
      NN=NN+1
200   CONTINUE
      N=9
      IF(N.GE.NDSINT)GO TO 700
50    READ(LUNPDF'NREC)DSP,IN
      NREC=NREC+1
      DO 55 I=1,21
      N=N+1
      IF(N.GT.NDSINT)GO TO 700
	X=0.25*(0.0001*FLOAT(DSP(I))+3.14159265)
      DSPACE(NN)=0.770299/SIN(X)
      IF(NF.NE.'T')GOTO54
      X=WKA1/(2.0*DSPACE(NN))
      IF(X.GT.1)GOTO55
      DSPACE(NN)=114.59156*ASIN(X)
54    INT(NN)=IN(I)
      NN=NN+1
55    CONTINUE
      IF(N.LT.NDSINT)GO TO 50
700    NN=NN-1
      IF(NN.LT.NDSINT)NDSINT=NN
      READ(LUNPDF'NREC)NAME,RIC
      NREC=NREC+1
      N=45
      DO 720 I=1,60
      N=N+1
      CNAME(N)=NAME(I)
720   CONTINUE
      RETURN
      END
