complicated this,

macro also did not accept to apply the pointer in its interior

I will do a cleanup on the amount of arrays and try to add a single control macro, and also add a redim preserve

`'indexbase 0`

skip {

arrayN( -2 to 5 , 3 to 10 )

' 3 4 5 6 7 8 9 10

{ 0 ,1 ,2 ,3 ,4 ,5 ,6 ,7, ' -2

8 ,9 ,10 ,11 ,12 ,13 ,14 ,15,' -1

16 ,17 ,18 ,19 ,20 ,21 ,22 ,23,' 0

24 ,25 ,26 ,27 ,28 ,29 ,30 ,31,' 1

32 ,33 ,34 ,35 ,36 ,37 ,38 ,39,' 2

40 ,41 ,42 ,43 ,44 ,45 ,46 ,47,' 3

48 ,49 ,50 ,51 ,52 ,53 ,54 ,55,' 4

56 ,57 ,58 ,59 ,60 ,61 ,62 ,63}' 5

}

int n0,n1

dim L, C,an

L=3

redim long ArrayNx_M(L)

redim int LBoundNx_M(L*3)

redim int UBoundNx_M(L*3)

redim int TBoundNx_M(L*3)

redim LONG IBoundNx_M(L*3)

int *Arr1

function CriaArray(int ArrayNx,

int Linha_Lbound,int Linha_Ubound,

int Coluna_Lbound,int Coluna_Ubound)

int n= ArrayNx

LBoundNx_M(N)=Linha_Lbound

UBoundNx_M(N)=Linha_Ubound

IBoundNx_M(N)=-Linha_Lbound

TBoundNx_M(N)=abs(Linha_Lbound - Linha_Ubound)+1

LBoundNx_M(N+1)=Coluna_Lbound

UBoundNx_M(N+1)=Coluna_Ubound

IBoundNx_M(N+1)=-Coluna_Lbound

TBoundNx_M(N+1)=abs(Coluna_Lbound - Coluna_Ubound)+1

ArrayNx_M(n)=getmemory TBoundNx_M(N)*TBoundNx_M(N+1)*sizeof int

end function

MACRO ARRAYnx_C(AN , L,C)

'@Arr1= ArrayNx_M(an) '<<<<<<<<

int B=(L+IBoundNx_M(AN))*TBoundNx_M(AN+1)+(c+IBoundNx_M(AN+1))

Arr1(B)

END MACRO

an=1

CriaArray(an, -2,5,3,10)

@Arr1= ArrayNx_M(an) '<<<<<

int n=0

for L=LBoundNx_M(aN) to uBoundNx_M(aN)

for c=LBoundNx_M(aN+1) to uBoundNx_M(aN+1)

ARRAYnx_C(AN, L , C)=N

n=n+1

next

next

L=-1

C=8

PRINT ARRAYnx_C(AN, L , C)

PRINT ARRAYnx_C(AN, 3 , 6)

I have to set up a matrix cleanup function "after learning how to do it"