vec2path Subroutine

public subroutine vec2path(file_path, vec_path)

Subroutine that creates a path from vector of folders

Arguments

Type IntentOptional Attributes Name
character(len=:), intent(out), allocatable :: file_path
character(len=512), intent(in), dimension(:) :: vec_path

Calls

proc~~vec2path~~CallsGraph proc~vec2path vec2path proc~dir_separator dir_separator proc~vec2path->proc~dir_separator proc~is_linux is_linux proc~dir_separator->proc~is_linux

Called by

proc~~vec2path~~CalledByGraph proc~vec2path vec2path program~test_files test_files program~test_files->proc~vec2path

Source Code

   subroutine vec2path(file_path, vec_path)
   !! Subroutine that creates a path from vector of folders
   implicit none
   character(len = : ),  intent(out), allocatable  :: file_path
   character(len = 512), intent(in ), dimension(:) :: vec_path

      character(len =   1) :: sep
      integer(kind = I4)   :: k

      sep = dir_separator()

      file_path = ''
      do k = 1, size(vec_path)

         file_path = file_path // sep // trim( vec_path(k) )

      enddo

   return
   endsubroutine vec2path