COMMON /HORNS/  LASTH(4), MXHORN
      INTEGER         LASTH, MXHORN