junbad(3f) - [M_messages] print an eye-catching image of a skull. (LICENSE:PD)
Synopsis
Description
Options
Examples
Author
License
SUBROUTINE junbad(where)
character(len=*),intent(in) :: where
Calls JOURNAL(3f) to print an eye-catching lineart image of a skill. Typically used to indicate an error has occurred in a program.
where String used to indicate output disposition. See the description of JOURNAL() for a meaning for the I/O flag. To write to stdout use s.
Example program:
program demo_junbad use M_messages, only : junbad call junbad(s) end program demo_junbadExpected output:
> _,.-----.,_ > ,-~ ~-. > ,^___ ___^. > /~" ~" . "~ "~ > Y ,--._ I _.--. Y > | Y ~-. | ,-~ Y | > | | }:{ | | > j l / | \ ! l > .-~ (__,.--" .^. "--.,__) ~-. > ( / / | \ \ ) > \.____, ~ \/"\/ ~ .____,/ > ^.____ ____.^ > | |T ~\ ! ! /~ T| | > | |l _ _ _ _ _ !| | > | l \/V V V V V V\/ j | > l \ \|_|_|_|_|_|/ / ! > \ \[T T T T T TI/ / > \ ^-^-^-^-^-^ / > \ / > \. ,/ > "^-.___,-^"
John S. Urban
Public License
Nemo Release 3.1 | junbad (3) | February 23, 2025 |