Нахождение длины выделяемой символьной строки Фортрана

Question

Как найти размер динамически выделенного объекта path в подпрограмме newcase?

  subroutine newcase(path)

  character(:, kind=c_char),
 &     allocatable                     :: path
  integer(kind=c_int)                  :: sizepath

  write(*,*) "Trim Path: ", path, ":"
  this% object = newcase_c(path, sizepath)

  end subroutine newcase

Объект выделяется при вызове подпрограммы, как показано ниже:

  character(256, kind=c_char)   :: cwd
  character(:, kind=c_char)
 & , allocatable                :: trimpath

  call GETCWD(cwd)
  trimpath = trim(cwd)

  call newcase(trimpath)

Answer 1

Я использовал len, чтобы найти длину path. Документация здесь .