class COV_PRIM |
---|
**** | 1998/05LongInt version
1996/10LINUX version 1992/6/28split from cover.mod primitives for covering space and covering linkage.printsrelation in coveringsrelation matrix 1989 Cover K.Kodam |
LonPrint(compo:INT, Mer:INT, Lon:WORD) |
---|
OrbitPrintLog(compo:INT, NOrbit:INT) |
---|
Relation(word:WORD, base:INT, rm2:ROUT{INT,INT}) |
---|
**** | relation in covering sp. |
SetBranchIndex(compo:INT) |
---|
SetLongitude(TCode:TCODE, compo:INT, out Mer:INT, out Lon:WORD) |
---|
**** | set mer & Lon[*] set
____st[longPtr+compo]:longitude. ____st[merPtr+compo]]:meridian. ____Lon[*]:_word_of_longitude |
SetOrbits(compo:INT, out NOrbit:INT) |
---|
**** | st[orbitpPtr+compo]: orbit table of meridian. NOrbit: number of Orbit=covering link. st[orbitmPtr+compo]: table of Branch index. orbits of meridian & longitude in S(Jn). |
SetWindLong(compo:INT) |
---|
**** | Set st[windLon+compo] winding of the covering longitude |
rm1(el:INT) |
---|