C	.TITLE	HYR
C
C   8 MAR 74 (PDH) CHECK OUT 'SPOT' DIFFICULTIES
C   3 MAR 72 - PAUL HENDERSON
C
999   FORMAT (11H ERROR CODE,I3,11H AFTER INIT)
998   FORMAT (2I10)
      CALL INIT (IER)
      WRITE (8,999) IER
      IPOT = 0
      ICOEFF = 0
      ITOLER = 10
C
   1  IPOT = IPOT+1
      ICOEFF = ICOEFF+50
      CALL SPOT (IPOT,ICOEFF,ITOLER,IER)
      WRITE (8,998) IPOT,IER
      GO TO 1
      END