SUBROUTINE MASTER(Q,MAXQ)
      INTEGER MAXQ
      DOUBLE PRECISION Q
      DIMENSION Q(MAXQ)
      CALL ANHARM(Q,MAXQ)
      END

      SUBROUTINE DUMMY
      ENTRY ANHARM
      CALL REPORT('a bit optimistic - come back next year')
      RETURN
      END