repeat Function

private function repeat(chara, num) result(txt)

This function generates a string by repeating a given pattern a specified number of times.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: chara
integer, intent(in) :: num

Return Value character(len=:), allocatable


Source Code

   function repeat(chara, num) result(txt)
      implicit none
      character(*), intent(in) :: chara
      integer, intent(in) :: num
      character(:), allocatable :: txt
      character(:), allocatable :: buf
      
      integer :: i
      buf = ''
      do i = 1, num
         buf = buf//chara
      end do

      txt = buf
   end function repeat