---

Manual Reference Pages  - junbat (3m_messages)

---

NAME

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

CONTENTS

Synopsis
Description
Examples
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.

EXAMPLES

Sample program:

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

AUTHOR

John S. Urban

LICENSE

Public License

---