CIPRIME UDCH                                                            UDCH        1
C                                                                       UDCH        2
      LOGICAL       EOF, ENDBLK                                         UDCH        3
      COMMON/UDCHD/      IERCNT,        EOF,           INFILE,          UDCH        4
     1    LENGTH(100),   NUMSRC,        IPOSN,          ENDBLK          UDCH        5
C                                                                       UDCH        6
      CHARACTER*80  BUFFER                                              UDCH        7
      CHARACTER*15  SEARCH                                              UDCH        8
      CHARACTER*4   TYPE                                                UDCH        9
      COMMON /UDCHC/ BUFFER,SEARCH(100),TYPE(100)                       UDCH       10
C                                                                       UDCH       11
