Question

我想知道如何从字符数组转到几个字符串。实际上，我有一个包含17个文件路径的字符数组。让我们说：

character, dimension(29,17) :: FILE_SIM_all
character, length(29) :: FILE_SIM

! Declarations end

FILE_SIM_all(1:29,1) = "/Users/toto/Documents/toto.nc"
FILE_SIM_all(1:29,2) = etc...

我想将FILE_SIM_all的“sim”行递归转换（在一个for循环中使用sim = 1,17）转换为字符串。让我们说像

do sim=1,17
    FILE_SIM(1:29) = FILE_SIM_all(1:29,sim)
enddo

但是我在编写程序时遇到以下错误：

错误＃6366：数组表达式的形状不符合。 [FILE_SIM]

我做错了什么？谢谢！

Answer 1

从问题的一个更简单的变体开始，要从一个长度为一个字符的数组创建一定长度的字符标量，该字符与特定长度具有相同的大小，您可以使用赋值语句。

! Declare vector to be an rank one array of size ten of 
! length one characters.
CHARACTER(1) :: vector(10)
! Declare scalar to be a character scalar of length ten, 
! so LEN(scalar) == SIZE(vector)
CHARACTER(10) :: scalar
INTEGER :: i     ! Loop index.

! Define `vector`.  Note that the right hand side of the 
! assignment is a rank one array of ten length one characters, 
! consistent with the definition of vector.
vector = (/ 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j' /)

! Loop over the elements of `vector` and the characters of 
! `scalar` and transfer the individual characters.
DO i = 1, LEN(scalar)  ! or SIZE(vector)
  scalar(i:i) = vector(i)
END DO

（FORALL声明可能更简洁一些，特别是在F2008中。）

您的问题只是在上面添加了另一个等级。

! Declare `matrix` to be an rank two array of shape (10,2) of 
! length one characters.
CHARACTER(1) :: `matrix`(10,2)
! Declare `list` to be a rank one array of size 2 and 
! length ten, so LEN(list) == SIZE(matrix,1) and 
! SIZE(list) == SIZE(matrix,2)
CHARACTER(10) :: list(2)
INTEGER :: i     ! Inner Loop index.
INTEGER :: j     ! Outer loop index.

! Define `matrix`.  Note that the right hand side of each 
! assignment is a rank one array of ten length one characters, 
! consistent with the definition of a column of matrix.
matrix(:,1) = (/ 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j' /)
matrix(:,2) = (/ '0', '1', '2', '3', '4', '5', '6', '7', '8', '9' /)

! Loop over the columns of matrix and the elements of list.
DO j = 1, SIZE(list)   ! or SIZE(matrix,1)
  ! Loop over the rows of `matrix` and the characters of 
  ! an element of `list` and transfer the individual characters.
  DO i = 1, LEN(list)   ! or SIZE(matrix,2)
    list(j)(i:i) = matrix(i,j)
  END DO
END DO

请注意，Fortran中的标量与数组非常不同。如果为数组指定标量，则将该标量的值分配给数组中的每个元素，就像编写了arrary(1) = scalar ; array(2) = scalar ; ...

一样

另请注意，如果右侧的长度与左侧的长度不匹配，则内在字符赋值会截断（或填充）。

因此在您的代码中：

FILE_SIM_all(1:29,1) = "/Users/toto/Documents/toto.nc"

将标量分配给数组部分，没有做任何有用的事情，除非你想要29个单斜杠字符！

您的示例中出现错误消息是因为您尝试将大小为29的数组部分分配给标量（恰好是长度为29的字符对象）。通常，您不能将数组（等级为1或更高）分配给标量（等级为零）。

如何将字符数组传递给字符串

1 个答案: