print_asterisk_row Subroutine

public subroutine print_asterisk_row(n)

prints a convenient row of asterisks of length n

Arguments

Type IntentOptional Attributes Name
integer(kind=default_int), intent(in) :: n

number of asterisks to print

Variables

Type Visibility Attributes Name Initial
integer(kind=default_int), private :: i

Source Code

   subroutine print_asterisk_row(n)
    !! prints a convenient row of asterisks of length n
      integer(kind=default_int), intent(in) :: n
      !! number of asterisks to print
      integer(kind=default_int) :: i
      do i = 1, n
         write (*, "(A)", advance="no") "*"
      end do
      write (*, *)
   end subroutine print_asterisk_row