---

Manual Reference Pages  - junsun (3m_messages)

---

NAME

junsun(3f) - [M_messages] print an eye-catching image of a smiling sun. (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Examples
Author
License

SYNOPSIS

SUBROUTINE junsun(where)

DESCRIPTION

Sample output:

  ####################                  #####################
  ######################                ###################
  ########################              #################
  ##########################            ###############                      ##
     #########################                 ######                   #######
          ######################   ###########   ##                 ###########
               ###############  #################              ################
                    ########  #####################       #####################
                         ##  #######################  #########################
                            #####     ###     #######  ########################
                           #####   ##  #   ##  #######  #######################
  #######################  ########### ###############  #######################
  #######################  ######## #   ## ###########
  ########################  #####  ########   #######
  #########################  ### ##        ### #####  ##
  #####################       #####################  ########
  ################              #####   #########  ###############
  ###########                 ##   ###########   ######################
  ######                    ######                 #########################
  #                       ###############            ##########################
                        #################              ########################
                      ###################                ######################
                    #####################                  ####################

OPTIONS

where	the I/O flag to pass on to JOURNAL(). See the description of JOURNAL() for a meaning for the I/O flag.

EXAMPLES

Sample program:

   program demo_junsun
   use M_messages, only : junsun
      call junsun(’s’)
   end program demo_junsun

AUTHOR

John S. Urban

LICENSE

Public License

---