SUBROUTINE NUMER  
      INTEGER     NCOMP 
      EXTERNAL    NCOMP 
      INTEGER     I 
    
      INTEGER     LIST (512)
      INTEGER     NAMES (512)   
      INTEGER     NCOUNT
      INTEGER     LSTOP 
      COMMON      /PNAMES/    LIST  
      COMMON      /PNAMES/    NAMES 
      COMMON      /PNAMES/    NCOUNT
      COMMON      /PNAMES/    LSTOP 
    
      INTEGER     ECODE 
      INTEGER     CMCHAN
      INTEGER     RBCHAN
      INTEGER     OBCHAN
      INTEGER     MPCHAN
      INTEGER     DBCHAN
      INTEGER     TTYIN 
      INTEGER     TTYOUT
      COMMON      /IODEFN/ ECODE
      COMMON      /IODEFN/ CMCHAN   
      COMMON      /IODEFN/ RBCHAN   
      COMMON      /IODEFN/ OBCHAN   
      COMMON      /IODEFN/ MPCHAN   
      COMMON      /IODEFN/ DBCHAN   
      COMMON      /IODEFN/ TTYIN
      COMMON      /IODEFN/ TTYOUT   
C     WRITE (DBCHAN, 1) 
C    1FORMAT (' ENTER NUMER')   
      DO  13012 I = 1, LSTOP
      LIST(I) = I   
13012 CONTINUE  
    
      CALL SORT (LIST, NCOUNT, NAMES, NCOMP)
      DO  13014 I = 1, NCOUNT   
      CALL PRINTN (NAMES(LIST(I)))  
13014 CONTINUE  
    
C     WRITE (DBCHAN, 2) 
C    2FORMAT (' EXIT NUMER')
      RETURN
      END