Manual Reference Pages - blocks (3)
NAME
blocks(1f) - [M_messages] write large block letters (LICENSE:PD)
CONTENTS
Synopsis
Description
Options
Example
Author
License
SYNOPSIS
subroutine blocks(string,iounit)
character(len=*) :: string integer :: iounit
DESCRIPTION
Given a string, BLOCKS() writes out the string left-justified starting in column 2 in large block letters 10 lines tall Note that 10 characters will fit between columns 2 and 131.This can be used to make banners in program output files; it is also handy for making attention-catching notices in interactive programs. The routine has been used to make large delivery banners on fixed-type printers and to make eye-readable headers on microfiche.
If the output unit number is negative, JOURNAL() is called instead of writing to a unit
OPTIONS
STRING The string to represent in block characters IOUNIT The unit number (the LUN) for the file to write to
EXAMPLE
Sample program:
program demo_blocks use M_messages, only : blocks call blocks(’NOTICE’,6) end program demo_blockswould produce:
>nn nn oooooooo tttttttttt iiiiiiiiii cccccccc eeeeeeeeee >nnn nn oooooooooo tttttttttt iiiiiiiiii cccccccccc eeeeeeeeee >nnnn nn oo ooo tt ii cc c ee >nn nn nn oo o oo tt ii cc ee >nn nn nn oo o oo tt ii cc eeeee >nn nn nn oo o oo tt ii cc eeeee >nn nn nn oo o oo tt ii cc ee >nn nnnn ooo oo tt ii cc c ee >nn nnn oooooooooo tt iiiiiiiiii cccccccccc eeeeeeeeee >nn nn oooooooo tt iiiiiiiiii cccccccc eeeeeeeeee
AUTHOR
John S. Urban
LICENSE
Public License
| blocks (3) | October 17, 2020 |
