По-видимому, невозможно добавить строку в другую

Question

У меня очень простая проблема, что я еще не нашел ответа.

Есть ли способ, в котором я могу добавить символ (в частности, пробел) к символу, который уже был инициализирован в Fortran?

Видимо

CHARACTER(2000) :: result 
result = '' 
result = result // ' ' 

не работает.

Answer 1

Чего вы хотите достичь? Конечно, это работает, но это не так много. Попробуйте подход, который вы уже предложили в своем предыдущем вопросе. В частности, имейте в виду, что все строки заполнены пространством после их последнего непространственного характера, это очень важно!

'a'//' ' really produces 'a ' 

но

result = result//' ' 

производит строку 2001 символов, который затем усеченный по заданию, так что result заканчивает тем, что то же самое.

Вы можете

result = trim(result)//' ' 

но и бесполезно, потому что строка заполняется пробелами в любом случае.

Если вы хотите, чтобы переменная больше, вы должны использовать:

character(:),allocatable:: result 
result = '' !now contains ' ' and has length 1 
result = result//' ' !now contains ' ' and has length 2 

Вы должны включить перераспределить на уступки на некоторых процессорах.