---

Manual Reference Pages  - junroach (3m_messages)

---

NAME

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

CONTENTS

Synopsis
Description
Options
Examples
Author
License

SYNOPSIS

SUBROUTINE junroach(where)

    integer,intent(in) :: where

DESCRIPTION

Prints an eye-catching image of a roach. Typically used to mark an error has occurred in an output file.

OPTIONS

where	the I/O flag to pass on to JOURNAL(). To write to stdout use ’s’. See the description of JOURNAL() for a meaning for the I/O flag.

EXAMPLES

Typical Usage:

     program demo_junroach
     use M_messages, only : junroach
     implicit none
     logical :: error=.true.
        if (error)then
           write(*,*)’ERROR:’
           call junroach(’s’)
           write(*,*)’   explanation of error.’
           write(*,*)’ ’
           write(*,*)’Pauci sunt errata in codice tuo’
           write(*,*)’ or’
           write(*,*)’There are a few errors in your code’
        endif
     end program demo_junroach

Results:

    >ERROR:
    >      ,--.     .--.
    >     /    \. ./        >    /  /\ / " \ /\      >   / _/  {~~v~~}  \_     >  /     {   |   }         > ;   /\{    |    }/\       > | _/  {    |    }  \_  :
    > |     {    |    }      |
    > |    /{    |    }\     |
    > |   / {    |    } \    |
    > |  /  {    |    }  \   |
    > |  \  \    |    /  /   |
    > |   \  \   |   /  /    |
    >  \   \  \  |  /  /    /
    >   \  /   ~~~~~   \   /
    >   explanation of error.

AUTHOR

John S. Urban

LICENSE

Public License

---