C     EDIT DATE   13MAY78  11:46
C     SOURCE FILE PNAMESGAK.IN
C     AUTHOR      GARY A. KUDIS
C     PRINT NAME LIST DATA STRUCTURES
      INTEGER     LIST (512)
      INTEGER     NAMES (512)
C     'LIST' IS USED BY 'SORT' ROUTINE TO BUILD AN ARRAY OF
C     SORTED INDEXES TO ITEMS IN NAME LIST TABLE (NTABLE).
C     'NAMES' CONTAINS POINTERS TO USED ENTRIES IN 'NTABLE'.
      INTEGER     NCOUNT
      INTEGER     LSTOP
      COMMON      /PNAMES/    LIST
      COMMON      /PNAMES/    NAMES
      COMMON      /PNAMES/    NCOUNT
      COMMON      /PNAMES/    LSTOP