SUBROUTINE GNAME (I)  
      INTEGER     I 
      INTEGER     GCHAR, J  
    
      INTEGER     CHAR  
      INTEGER     CHMASK
      INTEGER     CR, LF
      INTEGER     CRLF  
      INTEGER     BLANK, PERIOD 
      INTEGER     BLANKS, DASHES, COLONS, SLASHS
      INTEGER     ACH, BCH, CCH, DCH, ECH, FCH  
      INTEGER     GCH, HCH, ICH, JCH, KCH, LCH  
      INTEGER     MCH, NCH, OCH, PCH, QCH, RCH  
      INTEGER     SCH, TCH, UCH, VCH, WCH, XCH  
      INTEGER     YCH, ZCH  
      INTEGER     LBRACE, RBRACE
      INTEGER     LBRACK, RBRACK
      INTEGER ICLP04
      COMMON      /CHARAC/ CHAR 
      COMMON      /CHARAC/ CHMASK   
      COMMON      /CHARAC/ CR, LF   
      COMMON      /CHARAC/ CRLF 
      COMMON      /CHARAC/ BLANK, PERIOD
      COMMON      /CHARAC/ BLANKS, DASHES, COLONS, SLASHS   
      COMMON      /CHARAC/ ACH, BCH, CCH, DCH, ECH, FCH 
      COMMON      /CHARAC/ GCH, HCH, ICH, JCH, KCH, LCH 
      COMMON      /CHARAC/ MCH, NCH, OCH, PCH, QCH, RCH 
      COMMON      /CHARAC/ SCH, TCH, UCH, VCH, WCH, XCH 
      COMMON      /CHARAC/ YCH, ZCH 
      COMMON      /CHARAC/ LBRACE, RBRACE   
      COMMON      /CHARAC/ LBRACK, RBRACK   
      COMMON      /CHARAC/ ICLP04   
    
      INTEGER     NSIZE,  NAME(16), NTITLE  
      INTEGER     NFLAGS (512)  
      INTEGER     NADDRS (512)  
      INTEGER     NPOSIT (512)  
      INTEGER     NDATA  (512)  
      INTEGER     NTEXTX (512)  
      INTEGER     NTEXT  (1000) 
      INTEGER     NLX, NLSTRT, NLSTOP   
      INTEGER     TXSTRT, TXSTOP
      INTEGER     NTXBTS
      INTEGER     USEBIT, COMBIT, OVLBIT, EPTBIT
      INTEGER     LDMBIT, MODBIT, MLTBIT, RLSBIT
      INTEGER     GDFBIT, TYPBTS
      INTEGER     ATYPE 
      INTEGER      ICLP07   
      LOGICAL     OLDNAM
      COMMON      /NTABLE/ NSIZE, NAME, NTITLE  
      COMMON      /NTABLE/ NFLAGS, NADDRS, NPOSIT, NDATA, NTEXTX
      COMMON      /NTABLE/ NTEXT
      COMMON      /NTABLE/ NLX, NLSTRT, NLSTOP  
      COMMON      /NTABLE/ TXSTRT, TXSTOP   
      COMMON      /NTABLE/ NTXBTS   
      COMMON      /NTABLE/ USEBIT, COMBIT, OVLBIT, EPTBIT   
      COMMON      /NTABLE/ LDMBIT, MODBIT, MLTBIT, RLSBIT   
      COMMON      /NTABLE/ GDFBIT, TYPBTS   
      COMMON      /NTABLE/ ATYPE
      COMMON      /NTABLE/ ICLP07   
      COMMON      /NTABLE/ OLDNAM   
    
      INTEGER     RCOUNT
      INTEGER     RTYPE 
      INTEGER     RSTYPE
      INTEGER     RTMAX 
      INTEGER     RSZMAX
      INTEGER     RECORD (41)   
      INTEGER     RSIZE 
      INTEGER     RSIZES (20)   
      INTEGER ICLP02
      COMMON      /RECORD/ RCOUNT   
      COMMON      /RECORD/ RTYPE
      COMMON      /RECORD/ RSTYPE   
      COMMON      /RECORD/ RTMAX
      COMMON      /RECORD/ RSZMAX   
      COMMON      /RECORD/ RECORD   
      COMMON      /RECORD/ RSIZE
      COMMON      /RECORD/ RSIZES   
      COMMON     /RECORD/ ICLP02
      NSIZE = 0 
      CALL SET (BLANKS, NAME, 16)   
      DO  13058 J = 1, 16   
      CHAR = GCHAR (RECORD(I), J)   
      IF (.NOT. ((CHAR.EQ.BLANK).OR.(CHAR.EQ.0)))GO TO 13060
    
      GO TO 13059   
    
13060 CONTINUE  
    
      CALL PCHAR (NAME, J, CHAR)
      NSIZE = NSIZE + 1 
13058 CONTINUE  
13059 CONTINUE  
    
      NSIZE = (NSIZE+1)/2   
      RETURN
      END