seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-24 08:54:17 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
SAMPLE CODE/PLI PROG SAMPLE CODE/INVERT.PLI Normal file
View File

@@ -0,0 +1,30 @@
/******************************************************/
/* This is an external procedure called by MAININVT. */
/******************************************************/
invert:
procedure (a,r,c);
%include 'matsize.lib';
declare
(d, a(maxrow,maxcol)) float binary(24),
(i,j,k,l,r,c) fixed binary(6);
do i = 1 to r;
d = a(i,1);
do j = 1 to c - 1;
a(i,j) = a(i,j+1)/d;
end;
a(i,c) = 1/d;
do k = 1 to r;
if k ^= i then
do;
d = a(k,1);
do l = 1 to c - 1;
a(k,l) = a(k,l+1) - a(i,l) * d;
end;
a(k,c) = - a(i,c) * d;
end;
end;
end;
end invert;