juntrolls(3f) - [M_messages] print an eye-catching bulletin (LICENSE:PD)SYNOPSIS/USAGE
SUBROUTINE juntrolls(where,a)character(len=*) :: where ! the I/O flag to pass on to JOURNAL() character(len=21) :: a(4)
Description
Examples
Author
License
Sample output:
> \|||/ > (o o) > ;~~~~ooO~~(_)~~~~~~~~~; > | | > | | > | | > |_____________________| > ’~~~~~~~~~~~~~~~~Ooo~~’ > | | | > ~~~ ~~~ > || || > ooO OooSee the description of JOURNAL() for a meaning for the I/O flag.
Sample program:
program demo_juntrolls use M_messages, only : juntrolls call juntrolls(’s’,[ & ’Please ... ’, & " don’t feed ", & ’ the ’, & ’ TROLLS! ’ & ]) end program demo_juntrolls
John S. Urban
Public License