MATMULT.L
FILE INFORMATION
FILENAME(S): MATMULT.L
FILE TYPE(S): SEQ
FILE SIZE: 249b
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 3 disk(s)
FILE HASH
1cd0b90227e5f1855d762f4a825a822550d968139798380642ceb0b125575677
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS COMAL | MATMULT.L | SEQ | hedning, Mattias H00r | 10 | 0 | DOWNLOAD FILE |
| CCS COMAL | MATMULT.L | SEQ | hedning, Mattias H00r | 10 | 0 | DOWNLOAD FILE |
| COMAL A | MATMULT.L | SEQ | hedning, Helsinborg | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 50 52 4F 43 20 4D 41 54 4D 55 4C |9000 PROC MATMUL| 00000010: 54 28 52 45 46 20 41 28 2C 29 2C 4C 2C 4D 2C 52 |T(REF A(,),L,M,R| 00000020: 45 46 20 42 28 2C 29 2C 4E 2C 52 45 46 20 43 28 |EF B(,),N,REF C(| 00000030: 2C 29 29 20 43 4C 4F 53 45 44 0D 39 30 31 30 20 |,)) CLOSED.9010 | 00000040: 46 4F 52 20 49 23 3A 3D 31 20 54 4F 20 4C 20 44 |FOR I#:=1 TO L D| 00000050: 4F 0D 39 30 32 30 20 46 4F 52 20 4A 23 3A 3D 31 |O.9020 FOR J#:=1| 00000060: 20 54 4F 20 4E 20 44 4F 0D 39 30 33 30 20 53 3A | TO N DO.9030 S:| 00000070: 3D 30 0D 39 30 34 30 20 46 4F 52 20 4B 23 3A 3D |=0.9040 FOR K#:=| 00000080: 31 20 54 4F 20 4D 20 44 4F 0D 39 30 35 30 20 53 |1 TO M DO.9050 S| 00000090: 3A 3D 53 2B 41 28 49 23 2C 4B 23 29 2A 42 28 4B |:=S+A(I#,K#)*B(K| 000000A0: 23 2C 4A 23 29 0D 39 30 36 30 20 45 4E 44 46 4F |#,J#).9060 ENDFO| 000000B0: 52 20 4B 23 0D 39 30 37 30 20 43 28 49 23 2C 4A |R K#.9070 C(I#,J| 000000C0: 23 29 3A 3D 53 0D 39 30 38 30 20 45 4E 44 46 4F |#):=S.9080 ENDFO| 000000D0: 52 20 4A 23 0D 39 30 39 30 20 45 4E 44 46 4F 52 |R J#.9090 ENDFOR| 000000E0: 20 49 23 0D 39 31 30 30 20 45 4E 44 50 52 4F 43 | I#.9100 ENDPROC| 000000F0: 20 4D 41 54 4D 55 4C 54 0D | MATMULT. |
9000 PROC MATMULT(REF A(,),L,M,REF B(,), N,REF C(,)) CLOSED.9010 FOR I#:=1 TO L D O.9020 FOR J#:=1 TO N DO.9030 S:=0.9040 FOR K#:=1 TO M DO.9050 S:=S+A(I#,K#)*B(K #,J#).9060 ENDFOR K#.9070 C(I#,J#):=S.90 80 ENDFOR J#.9090 ENDFOR I#.9100 ENDPROC MATMULT.
> CLICK IMAGE PREVIEW FOR FULL MODAL