"equivalence" statement

[Daniel DRIJARD]

Hello,

I have a simple routine Ucopy which copies words of an array into another array:
Ucopy ( ByRef VarInp(IoInp) as integer, Byref VarOut(IoOut) as integer,Nb as integer )
where I use:
For i=1 to Nb
VarOut(i)=VarInp(i)

I want to generalise it to 2-dimensional arrays (or more generally multi-dimensional). I tried:
Ucopy2 ( ByRef VarInp(,) as integer, Byref VarOut(,) as integer, Nb as integer )
but now I cannot execute the copy statement. I would need an “equivalence” statement (as is known in FORTRAN) to define 1-dimensional arrays
sharing the same successive words as VarInp/VarOut. For example (if “equivalence” existed):
dim VarInp(5,20),VarOut(5,20),VarInp2(100),VarOut2(100) ,IoInp,ioOut as integer
equivalence (VarInp2(1),VarInp(1,1)), (VarOut2(1),VarOut(1,1))
then the following would be correct
call Ucopy2(VarInp2(ioBoth,ioInp),VarOut2(ioBoth,ioOut),Nb)
Ucopy2 ( ByRef Var2() as integer, Byref Var2() as integer, Nb as integer )
For i=1 to Nb
Var2(i)=Var2(i)
This implies that VarInp and VarOut have the same first dimension

Is there a way to simulate the “equivalence” statement ?

Cordially,
Daniel


_______________________________________________

Xojo forum:

https:/