text Subroutine

subroutine text(string)

Arguments

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

Source Code

subroutine text(string)
character(len=*),intent(in),optional :: string
   if(present(string))then
      write(stdout,'(*(g0))') attr('<B><g><bo>'//trim(string),chars=80)
   else
      write(stdout,'(*(g0))') attr('<B><g><bo>',chars=80)
   endif
end subroutine text