home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d1xx
/
d143
/
rim.lha
/
Rim
/
RimSrcAmi.Arc
/
PTRCOM.BLK
< prev
next >
Wrap
Text File
|
1988-01-05
|
604b
|
18 lines
C
C *** / P T R C O M / ***
C
C PROGRAM INTERFACE NAVIGATION POINTER SAVE BLOCK.
C
COMMON /PTRCOM/ INDNUM(10),MAXGET(10),NEXPOS,NEXPOT,
X SAVBLK(2,10),SAVBUF(1000)
INTEGER SAVBLK,SAVBUF
C
C VARIABLE DEFINITIONS:
C INDNUM--ARRAY OF POINTER NUMBERS IN USE
C MAXGET--ARRAY OF INTIAL "NTUPLE" VALUES
C NEXPOS--NEXT AVAILABLE POSITION IN THE WHRVAL ARRAY (WHCOM)
C NEXPOT--NEXT AVAILABLE POSITION IN THE WHRLEN ARRAY (WHCOM)
C SAVBLK--SAVBUF POINTER ARRAY (SIMILAR TO THE INCORE ARRAY)
C SAVBUF--BUFFER TO HOLD THE POINTER AND WHERE CLAUSE DATA
C