Hello,
Stuart Midgley wrote:
> do k = 0, (2*r+1)**N - 1
> do j = 1, N
> i(j) = modulo(k,(2*r+1)**j)-r ! I corrected this not to use i
> enddo
> enddo
> Once I get to a
> terminal with ssh access, I can forward some code.
Yes, please do send me the efficient code, I would like to have it for
future use. So I make sure I get it correct, please also include any
code to calculate the reverse transformation [going from i(:) to k].
Yasuki Arasaki wrote:
> Here's a straightforward implementation of the concept.
> I(N) is the set of do variables and II loops over I(N) for updating.
Thanks a lot, this is exactly what I needed...and would not have thought
of it myself!
Thanks again,
Aleksandar
|