INTEGER FUNCTION ENCNAM (INDEX)   
      INTEGER     INDEX, NTS, NRCHAR
      INTEGER     CLOCN 
    
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV
      INTEGER     NEXT,   NUMBER, I,      IOTYPE
      INTEGER     J,      K,      L,      LABNLX, M,      N 
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX 
      INTEGER     DUMMY,  OVCHN,  PEEKS 
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT
      INTEGER ICLP05
      LOGICAL     ENDOK,CONEND  
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG   
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG  
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV  
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE  
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N   
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE  
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX   
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS   
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP  
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT  
      COMMON   /LOGOS/  ICLP05  
      COMMON   /LOGOS/  ENDOK,CONEND
    
      INTEGER     NAME (9)  
      COMMON      /NLNAME/ NAME 
    
      INTEGER  AREAID (15), BCARD (41)  
      INTEGER  RWORD1, RWORD2, RWORD3, RWORD (3)
      INTEGER  BTYPE
      INTEGER  EXTDX, ERRFLG
      INTEGER  NEWLCI   
      INTEGER  OFFSET, OW   
      INTEGER  RBITS, RCT   
      INTEGER  TWI  
      INTEGER  WF   
      COMMON   /OBJCOM/ AREAID, BCARD, RWORD
      COMMON   /OBJCOM/ BTYPE   
      COMMON   /OBJCOM/ EXTDX   
      COMMON   /OBJCOM/ OFFSET, OW  
      COMMON   /OBJCOM/ RBITS   
      COMMON   /OBJCOM/ TWI 
      COMMON   /OBJCOM/ WF  
      EQUIVALENCE (RWORD1, RWORD (1))   
      EQUIVALENCE (RWORD2, RWORD (2))   
      EQUIVALENCE (RWORD3, RWORD (3))   
    
      INTEGER     XNX, XNXMAX, XNAME (100)  
      COMMON      /XNAMC/  XNX, XNXMAX, XNAME   
      NTS = N   
      ENCNAM = 0
      IF (.NOT. (XNX .GT. 0))GO TO 13068
    
      DO  13070 I = 1, XNX, 2   
      IF (.NOT. (XNAME (I) .EQ. N))GO TO 13072  
    
      NTS = XNAME (I+1) 
      ENCNAM = NTS  
      GO TO 13071   
    
13072 CONTINUE  
    
13070 CONTINUE  
13071 CONTINUE  
    
13068 CONTINUE  
    
      NRCHAR = CLOCN (NTS)  
      N = NTS   
      CALL MOVE (NAME, BCARD (TWI), 8)  
      TWI = TWI + 8 
      RETURN
      END