FORTRAN CLI library

junroach

NAME
junroach(3f) -- print an eye-catching image of a roach.

SYNOPSIS/USAGE
      SUBROUTINE junroach(i)
      i  ! the I/O flag to pass on to JUN()

DESCRIPTION

       ,--.     .--. 
      /    \. ./    \ 
     /  /\ / " \ /\  \ 
    / _/  {~~v~~}  \_ \ 
   /     {   |   }     \ 
  ;   /\{    |    }/\   \ 
  | _/  {    |    }  \_  : 
  |     {    |    }      | 
  |    /{    |    }\     | 
  |   / {    |    } \    | 
  |  /  {    |    }  \   | 
  |  \  \    |    /  /   | 
  |   \  \   |   /  /    | 
   \   \  \  |  /  /    / 
    \  /   ~~~~~   \   / 

You can make your own jun routine, in which case the I parameter would probably be a unit number to print to, or see the description of JUN() for a meaning for the I/O flag.

EXAMPLE
#ifdef TESTPRG90 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC program seepic call junroach(4) contains subroutine jun(i,string) character(len=*),intent(in) :: string write(*,*)string end subroutine jun end program seepic #endif

NOTES

FILES
libJSU.a


!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine junroach(i) !@(#) print eye-catching ASCII graphic (roach) call jun(i,' ,--. .--. ') call jun(i,' / \. ./ \ ') call jun(i,' / /\ / " \ /\ \ ') call jun(i,' / _/ {~~v~~} \_ \ ') call jun(i,' / { | } \ ') call jun(i,' ; /\{ | }/\ \ ') call jun(i,' | _/ { | } \_ : ') call jun(i,' | { | } | ') call jun(i,' | /{ | }\ | ') call jun(i,' | / { | } \ | ') call jun(i,' | / { | } \ | ') call jun(i,' | \ \ | / / | ') call jun(i,' | \ \ | / / | ') call jun(i,' \ \ \ | / / / ') call jun(i,' \ / ~~~~~ \ / ') end subroutine junroach