      SUBROUTINE WAIT
      RETURN
      END
      SUBROUTINE PACK(KHAR,IFILE)
      INTEGER KHAR,KKHAR,MBYTES,COUNT,ZERO
      INTEGER  MWORDS,MBUF(100),IFILE,TEMP(1)
      PARAMETER (IFILL=32)
      DATA COUNT,MWORDS,MBYTES,ZERO/3,1,0,0/
      DATA TEMP/0/
      IF (KHAR.EQ.0) RETURN
      IF (KHAR.LT.0) GOTO 400
      IF (MBYTES.GT.0) GOTO 150
      DO  100  I=1,20
  100 MBUF(I)=0
      COUNT=3
      MWORDS=1
  150 CONTINUE
      MBYTES=MBYTES+1
      KKHAR=KHAR*(512**COUNT)
      MBUF(MWORDS)=MBUF(MWORDS)+KKHAR
      IF ((COUNT.EQ.0).OR.(COUNT.GT.3)) GOTO 200
      COUNT=COUNT-1
      RETURN
  200 CONTINUE
      COUNT=3
      MWORDS=MWORDS+1
      IF (MWORDS.GE.21) GOTO 400
      RETURN
  400 CONTINUE
      IF (COUNT.NE.3) GOTO 450
      MWORDS = MWORDS-1
      GOTO 500
  450 KKHAR=IFILL*(512**COUNT)
      MBUF(MWORDS)=MBUF(MWORDS)+KKHAR
      IF (COUNT.EQ.0) GOTO 500
      COUNT=COUNT-1
      GOTO 450
  500 CONTINUE
      CALL WRITL(IFILE,MBUF,MWORDS)
      COUNT=3
      MBYTES=0
      MWORDS=1
      IF (KHAR.EQ.-2) CALL WRITL(IFILE,TEMP,1)
      RETURN
      END
      SUBROUTINE WRITL (IFILE,IBUF,IWORDS)
      IMPLICIT INTEGER (A-Z)
      INTEGER  IBUF(1)
      LOGICAL DUMP
      INTEGER  ACCU(40)
      PARAMETER (DFILE = 16)
      DATA  WCOUNT/0/
      DUMP = .FALSE.
      IF ((IBUF(1).EQ.0).AND.(IWORDS.EQ.1)) DUMP=.TRUE.
      IF  (IWORDS.GT.20)  GOTO 50
      IF  (IWORDS.LE.0)   RETURN
      GOTO 80
   50 PRINT*,'*WRITL*RECORD LONGER THAN 80 CHARS',IWORDS
      IWORDS=20
   80 CONTINUE
      IF (DUMP) GOTO 400
  100 CONTINUE
      IF  (WCOUNT.NE.0)  GOTO 200
      DO  150  I=1,40
  150 ACCU(I)=ACCU(I)-ACCU(I)
      WCOUNT=1
  200 CONTINUE
      IF (DUMP) RETURN
      TEST=WCOUNT+IWORDS
      IF  (TEST.LE.21)  GOTO 300
      GOTO 400
  300 CONTINUE
      IF (DUMP) RETURN
      IF (IWORDS.LE.0) RETURN
      DO  350  I=1,IWORDS
      ACCU(WCOUNT)=IBUF(I)
  350 WCOUNT=WCOUNT+1
      RETURN
  400 CONTINUE
      WCOUNT = WCOUNT - 1
      IBYTES = WCOUNT*4
      WRITE (*,2100)  (ACCU(K),K=1,WCOUNT)
      WRITE (*,2100)  (ACCU(K),K=1,WCOUNT)
      WCOUNT=0
      GOTO  100
      ENTRY READL (IFILE,IBUF,IWORDS)
      RETURN
 2100 FORMAT (1X,100A4)
      END
**IN -1
