SUBROUTINE NAMCOM(BUF,SLEN)   
      INTEGER BUF(1),SLEN,PERIOD
      INTEGER GCHAR 
      LOGICAL BP
      DATA PERIOD/46/   
      BP=.TRUE. 
      DO 50 IK=1,8  
      IF(.NOT.BP.OR.IK.GT.6.OR.IK.GT.SLEN)GOTO 10   
      IF(GCHAR(BUF,IK).NE.PERIOD)GOTO 50
      IT=IK 
      GOTO 25   
   10 CONTINUE  
      IF(.NOT.BP)GOTO 30
      DO 20 IT=1,SLEN   
      IF(GCHAR(BUF,IT).EQ.PERIOD)GOTO 25
   20 CONTINUE  
      GOTO 60   
   25 CONTINUE  
      BP=.FALSE.
   30 CONTINUE  
      IT=IT+1   
      IF(IT.GT.SLEN)GOTO 60 
      CALL PCHAR(BUF,IK,GCHAR(BUF,IT))  
   50 CONTINUE  
      IK=9  
   60 CONTINUE  
      SLEN=IK-1 
      RETURN
      END