Public Function RanLL(ix As Long) As Double
Dim k1 As Long
' Genera una variable uniforme RanLL entre 0 y 1 con semilla ix
k1 = ix / 127773
ix = 16807 * (ix - k1 * 127773) - k1 * 2836
If (ix < 0) Then
ix = ix + 2147483647
End If
RanLL = ix * 4.65661287E-10
End Function