Фортран: удалить символы из строки

Question

Как удалить символы из строки?

Например, у меня есть строка под названием «год», которую я хочу изменить с 4 символов до 2 символов. Это определяется так:

character(4) :: year = "2011"

Как обрезать строку до 2 символов, чтобы вместо year = "2011" она была year = "11"?

Answer 1

Вы действительно можете использовать year(3:4); однако ваша строка будет по-прежнему иметь длину четыре символа, то есть она будет содержать две ваши цифры и две пробелы. Чтобы проиллюстрировать это, вот пример:

program trunc
   character(len=4) :: year = "2011"

   write(*,'(A,A,A)') '..', year, '..'
   year = year(3:4)
   write(*,'(A,A,A)') '..', year, '..'
end program trunc

Это печатает

..2011..
..11  ..

Чтобы действительно получить "11" вместо "11 ", вам нужно присвоить значение переменной, которая может содержать только два символа.

Answer 2

Используйте следующую команду:

trim(year(3:4))

Answer 3

Я думаю, что это year(3:4), но не цитируйте меня;)