      SUBROUTINE WAIT(I,J,K)
C
C  SUB TO SIMULATE 1 SEC WAIT
C
      T1=SECNDS(0.0)
   10 CONTINUE
      DEL=SECNDS(T1)
      IF(DEL.LT.0.9) GO TO 10
      RETURN
      END
