sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/haeisa.ft

   1 C       -+-+-+-+-+ \ e  H A E I S A . F T  \ e -+-+-+-+-+
   2 C
   3 C       INSERT 'VALUE' INTO THE INDEX'ED WORD FROM SAMPLE
   4 C
   5         SUBROUTINE ISAM (VALUE,INDEX)
   6         REAL VALUE
   7         INTEGER INDEX
   8 C
   9         INCLUDE HAEBUF.FI
  10 C
  11         INTEGER RECNUM,WORD
  12 C
  13         WORD=INDEX*CHNLS-CHNLS+1+CHANEL
  14         RECNUM=WORD/255+OFFSET
  15         IF (RECNUM.EQ.INPREC) GOTO 10
  16 C       TEST THE WRITE FLAG OF BUFFER, AND IF SO WRITE BUFFER ONTO MASS STORAGE
  17 C       READ THE NEXT RECORD
  18         IF (INPREC.GT.1 .AND. WFLAG) WRITE (UNIT'INPREC) BUFFER
  19         INPREC=RECNUM
  20         READ (UNIT'INPREC) BUFFER
  21 10      CONTINUE
  22         CALL WPUT(BUFFER,MOD(WORD,255)+1,INT(VALUE+0.5))
  23         WFLAG=.TRUE.                    @ SOME WORD WRITTEN INTO THE BUFFER
  24         RETURN
  25         END
  26 \1a