在Fortran中Python的itertools.product的等价物是什么？下面

Question

的Python代码生成大小ndim的所有不同的载体，从价值0和1建：

import itertools 

ndim = 8 
A = list(itertools.product([0,1], repeat=ndim)) 
print (A) 

是否有可能做同样的Fortran语言？那么什么是Fortran中intertools.product的等价物？

Answer 1

是的，在Fortran中可以这样做，尽管有些人可能认为它更麻烦一些。什么是itertools.product的等效物？我没有史酷比itertools.product是第一位的。但这个小函数似乎做你想要的...

FUNCTION bit_vectors(ndim) RESULT(bv) 
    INTEGER, INTENT(in) :: ndim 
    INTEGER, DIMENSION(0:2**ndim-1,ndim) :: bv 
    INTEGER :: jx 
    INTEGER, DIMENSION(0:ndim-1) :: bits 
    bits = [(jx,jx=0,ndim-1)] 
    DO jx = 0, 2**ndim-1 
     bv(jx,:) = MERGE(1,0,BTEST(jx,bits)) 
    END DO 
    END FUNCTION bit_vectors 

我想你可以推广这种方法的更广泛的目的。