uplwb.p 905 B

123456789101112131415161718192021222324252627282930313233343536
  1. 62800 #include "rundecs.h"
  2. 62810 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
  3. 62820 (**)
  4. 62830 (**)
  5. 62840 PROCEDURE ERRORR(N :INTEGER); EXTERN ;
  6. 62850 (**)
  7. 62860 (**)
  8. 62870 FUNCTION LWB(D: INTEGER; MULT: OBJECTP): INTEGER;
  9. 62880 (*PLWB*)
  10. 62890 BEGIN
  11. 62900 WITH MULT^ DO
  12. 62910 BEGIN
  13. 62920 D := D-1;
  14. 62930 IF (D<0) OR (D>ROWS) THEN ERRORR(RLWUPB);
  15. 62940 LWB := DESCVEC[ROWS-D].LI;
  16. 62950 END
  17. 62960 END;
  18. 62970 (**)
  19. 62980 (**)
  20. 62990 FUNCTION UPB(D: INTEGER; MULT: OBJECTP): INTEGER;
  21. 63000 (*PUPB*)
  22. 63010 BEGIN
  23. 63020 WITH MULT^ DO
  24. 63030 BEGIN
  25. 63040 D := D-1;
  26. 63050 IF (D<0) OR (D>ROWS) THEN ERRORR(RLWUPB);
  27. 63060 UPB := DESCVEC[ROWS-D].UI;
  28. 63070 END
  29. 63080 END;
  30. 63090 (**)
  31. 63100 (**)
  32. 63110 (*-02() BEGIN END ; ()-02*)
  33. 63120 (*+01()
  34. 63130 BEGIN (*OF MAIN PROGRAM*)
  35. 63140 END (*OF EVERYTHING*).
  36. 63150 ()+01*)