text Subroutine

private subroutine text(a)

Uses

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in), optional :: a

Contents

Source Code

text

Source Code

  subroutine text (a)
    use optionals, only: get_option_with_default
    implicit none
    character (*), intent (in), optional :: a
    write(6, '(A)') get_option_with_default(a, '')
  end subroutine text