moduloExtern

' Gambas module file

Library "test"

'sumar....
Public Extern sumar(a As Float, b As Float) As Float

'Arrays de 1 dimension (vectores)
Public Extern duplica(dimension As Integer, a As Float[], b As Float[])

'Valorar tablero
Public Extern ValorarTablero(tablero As Float[], ancho As Integer) As Float 'para tableros cuadrados...

Public Sub duplicaInicial(Avector As Float[], Bvector As Float[])

  Dim a As Integer

  Bvector.Resize(avector.count)

  UsoLibreriatest.duplica(avector.count, Avector, Bvector) 'uso funcion el vector Avector es multiplicado por 2

End