signs(3f) - [M_messages] write out string in large block letters (LICENSE:PD)
Synopsis
Description
Example
Author
License
subroutine signs(string,iounit)
character(len=*),intent(in) :: string integer,intent(in) :: iounit character(len=1),intent(in),optional :: letter
SIGNS(2f) writes out the string left-justified in large (13 lines x 8 columns) block letters starting in column 2.This can be used to make banners in program output files; it is also handy for making attention-catching notices in interactive programs.
The program:
program demo_signs use M_messages, only : signs call signs(NOTICE,6) end program demo_signswould produce:
> XX XXX XXX XXXXXXX XXXXX XXXX XXXXXXX > X X X X X X X X X X X X > XX X X X X X X X > XX X X X X X X X X > X X X X X X X X XXXX > X XX X X X X X X X > X XX X X X X X X > X X X X X X X X X X > XXX X XXX XXX XXXXX XXXX XXXXXXX
John S. Urban
Public License
Nemo Release 3.1 | signs (3) | February 23, 2025 |