123456789101112131415161718192021222324252627282930313233343536 |
- 62800 #include "rundecs.h"
- 62810 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
- 62820 (**)
- 62830 (**)
- 62840 PROCEDURE ERRORR(N :INTEGER); EXTERN ;
- 62850 (**)
- 62860 (**)
- 62870 FUNCTION LWB(D: INTEGER; MULT: OBJECTP): INTEGER;
- 62880 (*PLWB*)
- 62890 BEGIN
- 62900 WITH MULT^ DO
- 62910 BEGIN
- 62920 D := D-1;
- 62930 IF (D<0) OR (D>ROWS) THEN ERRORR(RLWUPB);
- 62940 LWB := DESCVEC[ROWS-D].LI;
- 62950 END
- 62960 END;
- 62970 (**)
- 62980 (**)
- 62990 FUNCTION UPB(D: INTEGER; MULT: OBJECTP): INTEGER;
- 63000 (*PUPB*)
- 63010 BEGIN
- 63020 WITH MULT^ DO
- 63030 BEGIN
- 63040 D := D-1;
- 63050 IF (D<0) OR (D>ROWS) THEN ERRORR(RLWUPB);
- 63060 UPB := DESCVEC[ROWS-D].UI;
- 63070 END
- 63080 END;
- 63090 (**)
- 63100 (**)
- 63110 (*-02() BEGIN END ; ()-02*)
- 63120 (*+01()
- 63130 BEGIN (*OF MAIN PROGRAM*)
- 63140 END (*OF EVERYTHING*).
- 63150 ()+01*)
|