---

Manual Reference Pages  - jundragon (3)

---

NAME

jundragon(3f) - [M_messages] fill in a character array with a message (LICENSE:PD)

CONTENTS

Synopsis
Description
Example
Author
License

SYNOPSIS

subroutine jundragon(where,a)

      character(len=*),intent(in) :: where
      character(len=32),intent(in) :: a(8)

DESCRIPTION

Prints out a pretty message shaped like a dragon puffing smoke

EXAMPLE

Sample program:

   program demo_sundragon
   use M_messages, only : jundragon
   character(len=32) :: a(8)
      a(1)=’Puff, the magic dragon----------’
      a(2)=’lived by the sea----------------’
      a(3)=’and frolicked in the Autumn mist’
      a(4)=’in a land called----------------’
      a(5)=’Honiley-------------------------’
      a(6)=’--------------------------------’
      a(7)=’--------------------------------’
      a(8)=’--------------------------------’
      call jundragon(’s’,a)
   end program demo_sundragon

    >                 \=/,         _-===-_-====-_-===-_-==========-_-====-_
    >                |  @___oo   (  Puff, the magic dragon----------       )_
    >      /\  /\   / (___,,,}_--=  lived by the sea----------------       )
    >     ) /^\) ^\/ _)        =__ and frolicked in the Autumn mist       )
    >     )   /^\/   _)          (_  in a land called----------------      )
    >     )   _ /  / _)            (  Honiley-------------------------      )
    > /\  )/\/ ||  | )_)            (_ --------------------------------       )
    ><  >      |(,,) )__)             (  --------------------------------   )
    > ||      /    \)___)\             ( --------------------------------__)
    > | \____(      )___) )___           -==-_____-=====-_____-=====-___==
    >  \______(_______;;; __;;;

AUTHOR

John S. Urban

LICENSE

Public License

---

jundragon (3)

October 17, 2020

Generated by manServer 1.08 from c77b25a2-5939-419c-9360-0503b8ffdffa using man macros.