make_string_array Function

   function make_string_array(names) result(array)
      type(String), allocatable :: array(:)
      character(len=*), intent(in) :: names(:)
      integer :: i

      allocate(array(size(names)))

      do i = 1, size(array)
         array(i) = String(names(i))
      end do

    end function make_string_array