LOGICAL  FUNCTION KEYWD (DUMMY)   
      INTEGER DUMMY 
    
      LOGICAL     MPFLAG
      LOGICAL     OVMODE
      LOGICAL     LBMODE
      LOGICAL     LOADRB
      LOGICAL     SFLAG 
      INTEGER     VERS  
      INTEGER     LOADAD
      INTEGER     ZLOC, ZSTR, ZMAX, ZLIMIT  
      INTEGER     CLOC, CSTR, CMAX, CLIMIT  
      INTEGER     NLOC, NSTR, NMAX, NLIMIT  
      INTEGER     DLOC, DSTR, DMAX, DLIMIT  
      INTEGER     OLOC, OMAX, OSET  
      INTEGER     START 
      INTEGER     MODNLX
      INTEGER     CKSUM 
      INTEGER     KEY   
      INTEGER ICLP05
      COMMON      /LDATAX/ MPFLAG   
      COMMON      /LDATAX/ OVMODE   
      COMMON      /LDATAX/ LBMODE   
      COMMON      /LDATAX/ LOADRB   
      COMMON      /LDATAX/ SFLAG
      COMMON      /LDATAX/ VERS 
      COMMON      /LDATAX/ LOADAD   
      COMMON      /LDATAX/ ZLOC, ZSTR, ZMAX, ZLIMIT 
      COMMON      /LDATAX/ CLOC, CSTR, CMAX, CLIMIT 
      COMMON      /LDATAX/ NLOC, NSTR, NMAX, NLIMIT 
      COMMON      /LDATAX/ DLOC, DSTR, DMAX, DLIMIT 
      COMMON      /LDATAX/ OLOC, OMAX, OSET 
      COMMON      /LDATAX/ START
      COMMON      /LDATAX/ MODNLX   
      COMMON      /LDATAX/ CKSUM
      COMMON      /LDATAX/ KEY  
      COMMON      /LDATAX/ ICLP05   
    
      INTEGER     CMFILE (16)   
      INTEGER     RBFILE (16)   
      INTEGER     OBFILE (16)   
      INTEGER     MPFILE (16)   
      INTEGER     DBFILE (16)   
      INTEGER     TIFILE (3)
      INTEGER ICLP03
      COMMON      /FILES / CMFILE   
      COMMON      /FILES / RBFILE   
      COMMON      /FILES / OBFILE   
      COMMON      /FILES / MPFILE   
      COMMON      /FILES / DBFILE   
      COMMON      /FILES / TIFILE   
      COMMON      /FILES / ICLP03   
      INTEGER     GCHAR 
      INTEGER     I, KEYS(10)   
      INTEGER     EQUALS
      DATA        EQUALS /61/   
      DATA        KEYS /'NO','UN','DA','TA','ZR','EL','CO','DE','RA','MX
     1'/
      KEYWD = .FALSE.   
      KEY = 0   
      DO  13064 I = 1,10,2  
      IF (.NOT. ((RBFILE(1).EQ.KEYS(I)).AND. (RBFILE(2).EQ.KEYS(I+1)).AN
     1D. (GCHAR(RBFILE,5).EQ.EQUALS)))GO TO 13066   
    
      KEY = (I+1)/2 
      KEYWD = .TRUE.
      GO TO 13065   
    
13066 CONTINUE  
    
13064 CONTINUE  
13065 CONTINUE  
    
      RETURN
      END