[UP]


Manual Reference Pages  - junroach (3)

NAME

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

CONTENTS

Synopsis
Description
Options
Example
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.

EXAMPLE

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.’
        endif
     end program demo_junroach

Results:

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

AUTHOR

John S. Urban

LICENSE

Public License


junroach (3) October 17, 2020
Generated by manServer 1.08 from aa6f6e08-5cb4-4049-b76c-f69ab031c1d0 using man macros.