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