_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

MATVEC.L

FILE INFORMATION

FILENAME(S): MATVEC.L

FILE TYPE(S): SEQ

FILE SIZE: 199b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 2 disk(s)

FILE HASH

9955730d1aecbaa1fe4065a8613a982af28ece30162998c3754cde8cb32f5792

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL MATVEC.L SEQ hedning, Mattias H00r 10 4 DOWNLOAD FILE
CCS COMAL MATVEC.L SEQ hedning, Mattias H00r 10 4 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 4D 41 54 56 45 43  |9000 PROC MATVEC|
00000010: 28 52 45 46 20 41 28 2C  29 2C 4D 2C 4E 2C 52 45  |(REF A(,),M,N,RE|
00000020: 46 20 56 28 29 2C 52 45  46 20 50 28 29 29 20 43  |F V(),REF P()) C|
00000030: 4C 4F 53 45 44 0D 39 30  31 30 20 46 4F 52 20 49  |LOSED.9010 FOR I|
00000040: 23 3A 3D 31 20 54 4F 20  4D 20 44 4F 0D 39 30 32  |#:=1 TO M DO.902|
00000050: 30 20 53 3A 3D 30 0D 39  30 33 30 20 46 4F 52 20  |0 S:=0.9030 FOR |
00000060: 4A 23 3A 3D 31 20 54 4F  20 4E 20 44 4F 0D 39 30  |J#:=1 TO N DO.90|
00000070: 34 30 20 53 3A 3D 53 2B  41 28 49 23 2C 4A 23 29  |40 S:=S+A(I#,J#)|
00000080: 2A 56 28 4A 23 29 0D 39  30 35 30 20 45 4E 44 46  |*V(J#).9050 ENDF|
00000090: 4F 52 20 4A 23 0D 39 30  36 30 20 50 28 49 23 29  |OR J#.9060 P(I#)|
000000A0: 3A 3D 53 0D 39 30 37 30  20 45 4E 44 46 4F 52 20  |:=S.9070 ENDFOR |
000000B0: 49 23 0D 39 30 38 30 20  45 4E 44 50 52 4F 43 20  |I#.9080 ENDPROC |
000000C0: 4D 41 54 56 45 43 0D                              |MATVEC.         |

9000 PROC MATVEC(REF A(,),M,N,REF V(),RE
F P()) CLOSED.9010 FOR I#:=1 TO M DO.902
0 S:=0.9030 FOR J#:=1 TO N DO.9040 S:=S+
A(I#,J#)*V(J#).9050 ENDFOR J#.9060 P(I#)
:=S.9070 ENDFOR I#.9080 ENDPROC MATVEC.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL