subroutinewrite_textprivate
subroutine write_text(text)
Write text to standard output.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| text | character(len=*) | in | the text |
Source
Show the code
subroutine write_text(text)
character(len=*), intent(in) :: text !! the text
write (output_unit, '(a)', advance='no') text
end subroutine write_text