Manual Reference Pages - junbat (3)

NAME

junbat(3f) - [M_messages] print an eye-catching image of a bat. (LICENSE:PD)

Synopsis
Description
Example
Author
License

SYNOPSIS

SUBROUTINE junbat(where)
   character(len=*),intent(in) :: where

DESCRIPTION

Sample output:

  >                     .-                    .-
  >                _..-’(                       )‘-.._
  >             ./’. ’||\\.       (\_/)       .//||‘ .‘\.
  >          ./’.|’.’||||\\|..    )o o(    ..|//||||‘.‘|.‘\.
  >       ./’..|’.|| |||||#145;‘‘‘‘‘ ’‘"’‘ ’’’’’’/||||| ||.‘|..‘\.
  >     ./’.||’.|||| ||||||||||||.     .|||||||||||| ||||.‘||.‘\.
  >    /’|||’.|||||| ||||||||||||{     }|||||||||||| ||||||.‘|||‘\
  >   ’.|||’.||||||| ||||||||||||{     }|||||||||||| |||||||.‘|||.‘
  >  ’.||| ||||||||| |/’   ‘‘\||‘‘     ’’||/’’   ‘\| ||||||||| |||.‘
  >  |/’ \./’     ‘\./         \!|\   /|!/         \./’     ‘\./ ‘\|
  >  V    V         V          }’ ‘\ /’ ‘{          V         V    V
  >  ‘    ‘         ‘               V               ’         ’    ’

See the description of JOURNAL() for a meaning for the I/O flag.

EXAMPLE

Sample program:

program demo_junbad use M_messages, only : junbat call junbat(’s’) end program demo_junbad

AUTHOR

John S. Urban

LICENSE

Public License

junbat (3)

March 11, 2021

Generated by manServer 1.08 from 76a2264b-66dd-41bd-95b5-529619ea8b69 using man macros.

[UP]