INTEGER FUNCTION IDYWK(IDATE,MONTH,IYEAR)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      IDYWK=0
      RETURN
      END