COMMON /PIES/ IP(12), IDP(12), PICOLR(12), PIDCOLR(12), PISHD
      CHARACTER *8 PICOLR, PIDCOLR
      LOGICAL PISHD