Finding the length of Fortran allocatable character string

Question

How could I find the size of a dynamically allocated object path in subroutine 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

The object is allocated when the subroutine is called as shown below:

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

  call GETCWD(cwd)
  trimpath = trim(cwd)

  call newcase(trimpath)

With the shown code, the variable 'path' has no size as it is unallocated. — evets
– evets, Commented Apr 16, 2019 at 2:24
What function do you use to find the length of character variables, even if they are not allocatable? — Ian Bush
– Ian Bush, Commented Apr 16, 2019 at 5:51

newkid · Accepted Answer · 2019-04-16 07:13:12Z

1

I used len to find the length of path. Documentation is here.

answered Apr 16, 2019 at 7:13

newkid

1,4882 gold badges14 silver badges34 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

evets Over a year ago

len will give you the length of the string including trailing blanks. If you want the length excluding trailing blanks, then use len_trim.

Collectives™ on Stack Overflow

Finding the length of Fortran allocatable character string

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related