junbuster(3f) - [M_messages] call journal(3f) to print eye-catching ASCII graphic (ghostbuster) (LICENSE:PD)
Synopsis
Description
Examples
Author
License
SUBROUTINE junbuster(where)
character(len=*),intent(in) :: where
Sample output:
> __---__ > _- _--______ > __--( / \ )XXXXXXXXXXXXX_ > --XXX( O O )XXXXXXXXXXXXXXX- > /XXX( U ) XXXXXXX > /XXXXX( )--_ XXXXXXXXXXX > /XXXXX/ ( O ) XXXXXX \XXXXX > XXXXX/ / XXXXXX \__ \XXXXX---- > XXXXXX__/ XXXXXX \__---- - > ---___ XXX__/ XXXXXX \__ --- > -- --__/ ___/\ XXXXXX / ___---= > -_ ___/ XXXXXX --- XXXXXX > --\/XXX\ XXXXXX /XXXXX > \XXXXXXXXX /XXXXX/ > \XXXXXX _/XXXXX/ > \XXXXX--__/ __-- XXXX/ > --XXXXXXX--------------- XXXXX-- > \XXXXXXXXXXXXXXXXXXXXXXXX- > --XXXXXXXXXXXXXXXXXX-See the description of JOURNAL() for a meaning for the I/O flag.
Sample program:
program demo_junbuster use M_messages, only : junbuster call junbuster(s) end program demo_junbuster
John S. Urban
Public License
Nemo Release 3.1 | junbuster (3) | February 23, 2025 |