Commit | Line | Data |
---|---|---|
81e70d48 PH |
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 |