	SUBROUTINE SEEKX (CODEN, JOURNL, STATUS)
C
C	   Finds the matching CODEN text in the CODEN file for the
C	   PDF Card routines.  Much of code borrowed from AIDS.
C
C		STATUS = 0 if successful
C		       = 1 if CODEN entry not found
C		       = 2 if error while reading CODENS file
C
C	   By: Mark Holomany     Date: 18-Oct-1985
C
C
	IMPLICIT INTEGER (A-Z)
	CHARACTER*6	CODEN, INCDN
	CHARACTER*71	JOURNL

D	INCLUDE 'IORET.CMN'
D	INCLUDE 'RET3.CMN'
D	INCLUDE 'COUNTS.CMN'

C\$INCLUDE:'IORET.CMN'
C\$INCLUDE:'RET3.CMN'
C\$INCLUDE:'COUNTS.CMN'

C>>>	TYPE *,'CODEN=',CODEN
C
C	...READ CODEN-JOURNAL FILE UNTIL CODENS MATCH
	L = 1
	U = NUMCOD
	IF(DBSW .EQ. 'CDIF') U = 1768

3000	IF(L .GT. U) GO TO 20
	M = (L + U)/2
	READ (NCODEN, 1200, REC=M) INCDN, JOURNL
1200	FORMAT(A6,1X,A71)
	IF(LGT(CODEN,INCDN)) THEN
	   L=M+1
	ELSE IF(LLT(CODEN,INCDN)) THEN
	   U=M-1
	ELSE
	   STATUS = 0
	   GO TO 9000
	ENDIF
	GO TO 3000


C
C-----END OF CODEN FILE FOUND WITHOUT MATCHING CODENS
C
20	JOURNL = '***misspelled or not in coden file***'               
	STATUS = 1
	GO TO 9000

8000	STATUS = 2
9000	CONTINUE
	RETURN
	END
