Manual Reference Pages - signs (3)

NAME

signs(3f) - [M_messages] write out string in large block letters (LICENSE:PD)

Synopsis
Description
Example
Author
License

SYNOPSIS

subroutine signs(string,iounit)

     character(len=*),intent(in)          :: string
     integer,intent(in)                   :: iounit
     character(len=1),intent(in),optional :: letter

DESCRIPTION

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.

EXAMPLE

The program:

program demo_signs use M_messages, only : signs call signs(’NOTICE’,6) end program demo_signs

would 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

AUTHOR

John S. Urban

LICENSE

Public License

signs (3)

March 11, 2021

Generated by manServer 1.08 from 4dd0c072-da87-439a-a7dc-f2af55224acf using man macros.

[UP]