SUBROUTINE HOLCK(HOL, INFO)
      INTEGER TODAY,HOL,INFO(40),DAYS
      TODAY=DAYS(INFO(1),INFO(2),INFO(3),1)  ! GET TODAY'S DATE
      READ(1'2)INFO
      HOL=0                            ! DEFAULT IS: THIS IS NOT A HOLIDAY
      I=0
80    I=I+1
C      WRITE(5,85)I,TODAY,INFO(I)
C85    FORMAT(' I',I4,' TODAY',I7,' HOLIDAY',I7)
      IF(INFO(I).LE.0)GO TO 100        ! ALL THROUGH LIST OF HOLIDAYS
      IF(INFO(I).NE.TODAY)GO TO 80     ! THIS IS NOT HOLIDAY
      HOL=1                            ! THIS IS MUST BE HOLIDAY
100   RETURN
      END