CIPRIME CHDISP                                                          CHDISP      1
      LOGICAL CFLRUN                                                    CHDISP      2
      INTEGER ICHTYP(6)                                                 CHDISP      3
      CHARACTER*80 DISPCH(2,6)                                          CHDISP      4
      COMMON /DISPLY/ DISPCH                                            CHDISP      5
      COMMON /CHTYPE/ IPLTYP,ICHTYP                                     CHDISP      6
      COMMON /FRUN/ CFLRUN                                              CHDISP      7
