FORTRAN：2D到1D

Question

任何人都可以修改我的代码或向我展示如何创建一个“可以访问的一维数组”吗？目前，我无法访问1D数组中的每个元素。

代码：

     MODULE PARAMETERS 
     INTEGER :: FILE 
     INTEGER :: X=3,Y=3,Z=9 
     INTEGER :: I, J, K, L = 1 
     INTEGER :: B(9) 
     INTEGER :: A(3,3) 
     DATA  A/ 1,2,3,4,5,6,7,8,9/ 
     END MODULE PARAMETERS
 

    PROGRAM CLUSTER 
    USE PARAMETERS 
    IMPLICIT NONE 
    OPEN(UNIT=11,FILE="2D.TXT",ACTION="WRITE") 
     DO J = 1,Y 
      DO I = 1,X 
       B(L) = A(I,J) 
       WRITE(11,*) , B(L) 
      END DO 
       L = L + 1 
     END DO 
    CLOSE(11) 
    END PROGRAM CLUSTER 

Answer 1

如果你只是试图把你的二维数组转换成一维数组，使用reshape内在。相当于你的自我的答案代码：

PROGRAM CLUSTER 
    USE PARAMETERS 
    IMPLICIT NONE 
    OPEN(UNIT=11,FILE="2D.TXT",ACTION="WRITE") 
    B = reshape(A, [ 9 ]) 
    write (11,'(i8)'), (b(i),i=1,9) 
    CLOSE(11) 
    END PROGRAM CLUSTER 

正如在评论你的答案，你的问题都指出，这种整形可能是不必要的你与MPI，在那里你可以直接使用A.

Answer 2

我固定它，这是主要的程序应该是这样......

PROGRAM CLUSTER 
USE PARAMETERS 
IMPLICIT NONE 
OPEN(UNIT=11,FILE="2D.TXT",ACTION="WRITE") 
    L = 1 
    IF (L .LT. 10) THEN 
    DO J = 1,Y 
     DO I = 1,X 
      B(L) = A(I,J) 
      WRITE(11,*) , B(L) 
      L = L + 1 
     END DO 
    END DO 
    ELSE 
    WRITE(11,*), "NOTHING TO DO HERE" 
    END IF 
CLOSE(11) 
END PROGRAM CLUSTER