home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fred Fish Collection 1.5
/
ffcollection-1-5-1992-11.iso
/
ff_disks
/
500-599
/
ff594.lzh
/
AnalyRimSrc
/
AnaRimSrcDoc.Zoo
/
ptrcom.blk
< prev
next >
Wrap
Text File
|
1991-09-30
|
587b
|
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