April 22 2002   2:03:18.285 PM
 
PBMLIB_PRB
  Tests the PBMLIB portable bit map routines.
 
TEST01
  PBMA_WRITE writes an ASCII PBM file.
 
TEST02
  PGMA_WRITE writes an ASCII PGM file.
 
TEST03
  PPMA_WRITE writes an ASCII PPM file.
 
TEST04
  PBMB_WRITE writes a binary PBM file.
 
TEST05
  PGMB_WRITE writes a binary PGM file.
 
TEST06
  PPMB_WRITE writes a binary PPM file.
 
TEST07
  PBMA_READ reads an ASCII PBM file.
 
TEST08
  PGMA_READ reads an ASCII PGM file.
 
TEST09
  PPMA_READ reads an ASCII PPM file.
 
TEST10
  PBMB_READ reads a binary PBM file.
 
PBMB_READ - Fatal error!
  First two bytes are not magic number "P4".
  First two bytes are:   
  ASCII codes:     32    32
 
PBMB_READ returns IERROR =      3
 
TEST11
  PGMB_READ reads a binary PGM file.
 
PGMB_READ - Fatal error!
  First two bytes are not magic number "P5".
  First two bytes are:   
  ASCII codes:     32    32
 
PGMB_READ returns IERROR =      3
 
TEST12
  PPMB_READ reads a binary PPM file.
 
PPMB_READ - Fatal error!
  First two bytes are not magic number "P6".
  First two bytes are:   
  ASCII codes:     32    32
 
PPMB_READ returns IERROR =      3
 
TEST13
  FONT_READ reads in a simple bit map font.
 
TEST13
  Could not open the font file!
 
Skipping TEST14 because of error in TEST13!
 
TEST15
  FONT_DATA prints out a font data statement.
!
!  IPOINT(I) is:
!    0, if character I is not here,
!    J, if character I is in BITS(*,*,J).
!
  integer, parameter, dimension (0:255) :: ipoint = (/ &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, &
    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0 /)
 
  integer bits( 7, 5, 0)
 
TEST16
  BITCHR75 returns a 7 x 5 representation of
    SOME characters.
 
Character     32 is " "
 
     
     
     
     
     
     
     
 
Character     33 is "!"
 
  *  
  *  
  *  
  *  
  *  
     
  *  
 
Character     34 is """
 
 * * 
 * * 
     
     
     
     
     
 
Character     35 is "#"
 
     
 * * 
*****
 * * 
*****
 * * 
     
 
Character     36 is "$"
 
  *  
 *** 
* *  
 *** 
  * *
 *** 
  *  
 
Character     37 is "%"
 
     
**  *
** * 
  *  
 * **
*  **
     
 
Character     38 is "&"
 
 **  
*  * 
*    
 *   
* * *
*  * 
 ** *
 
Character     39 is "'"
 
   * 
  *  
     
     
     
     
     
 
Character     40 is "("
 
  *  
 *   
*    
*    
*    
 *   
  *  
 
Character     41 is ")"
 
  *  
   * 
    *
    *
    *
   * 
  *  
 
Character     42 is "*"
 
  *  
* * *
 * * 
     
     
     
     
 
Character     43 is "+"
 
     
  *  
  *  
*****
  *  
  *  
     
 
Character     44 is ","
 
     
     
     
     
     
 **  
 *   
 
Character     45 is "-"
 
     
     
     
 *** 
     
     
     
 
Character     46 is "."
 
     
     
     
     
     
 **  
 **  
 
Character     47 is "/"
 
    *
    *
   * 
  *  
 *   
*    
*    
 
Character     48 is "0"
 
 *** 
*   *
*  **
* * *
**  *
*   *
 *** 
 
Character     49 is "1"
 
  *  
 **  
  *  
  *  
  *  
  *  
  *  
 
Character     50 is "2"
 
 **  
*  * 
    *
   * 
  *  
 *   
*****
 
Character     51 is "3"
 
 *** 
*   *
    *
  ***
    *
*   *
 *** 
 
Character     52 is "4"
 
*   *
*   *
*   *
*****
    *
    *
    *
 
Character     53 is "5"
 
*****
*    
*    
 *** 
    *
*   *
 *** 
 
Character     54 is "6"
 
 *   
*    
*    
**** 
*   *
*   *
**** 
 
Character     55 is "7"
 
*****
    *
   * 
  *  
  *  
  *  
  *  
 
Character     56 is "8"
 
 *** 
*   *
*   *
 *** 
*   *
*   *
 *** 
 
Character     57 is "9"
 
 *** 
*   *
*   *
 ****
    *
*   *
 *** 
 
Character     58 is ":"
 
     
     
     
  *  
     
  *  
     
 
Character     59 is ";"
 
     
     
     
  *  
     
  *  
 *   
 
Character     60 is "<"
 
   * 
  *  
 *   
*    
 *   
  *  
   * 
 
Character     61 is "="
 
     
     
*****
     
*****
     
     
 
Character     62 is ">"
 
*    
 *   
  *  
   * 
  *  
 *   
*    
 
Character     63 is "?"
 
 *** 
*   *
   * 
  *  
  *  
     
  *  
 
Character     64 is "@"
 
     
 *** 
* ***
**  *
* ***
*    
 **  
 
Character     65 is "A"
 
  *  
 * * 
** **
*   *
*****
*   *
*   *
 
Character     66 is "B"
 
**** 
*   *
*   *
**** 
*   *
*   *
**** 
 
Character     67 is "C"
 
 *** 
*   *
*    
*    
*    
*   *
 *** 
 
Character     68 is "D"
 
**** 
*   *
*   *
*   *
*   *
*   *
**** 
 
Character     69 is "E"
 
*****
*    
*    
**** 
*    
*    
*****
 
Character     70 is "F"
 
*****
*    
*    
**** 
*    
*    
*    
 
Character     71 is "G"
 
 *** 
*   *
*    
*    
*  **
*   *
 *** 
 
Character     72 is "H"
 
*   *
*   *
*   *
*****
*   *
*   *
*   *
 
Character     73 is "I"
 
 *** 
  *  
  *  
  *  
  *  
  *  
 *** 
 
Character     74 is "J"
 
*****
  *  
  *  
  *  
  *  
* *  
 *   
 
Character     75 is "K"
 
*   *
*  * 
* *  
*    
* *  
*  * 
*   *
 
Character     76 is "L"
 
*    
*    
*    
*    
*    
*    
*****
 
Character     77 is "M"
 
** **
** **
* * *
* * *
*   *
*   *
*   *
 
Character     78 is "N"
 
**  *
**  *
* * *
* * *
* * *
*  **
*  **
 
Character     79 is "O"
 
 *** 
*   *
*   *
*   *
*   *
*   *
 *** 
 
Character     80 is "P"
 
**** 
*   *
*   *
**** 
*    
*    
*    
 
Character     81 is "Q"
 
 *** 
*   *
*   *
*   *
* * *
*  * 
 ** *
 
Character     82 is "R"
 
**** 
*   *
*   *
**** 
* *  
*  * 
*   *
 
Character     83 is "S"
 
 *** 
*   *
*    
 *** 
    *
*   *
 *** 
 
Character     84 is "T"
 
*****
  *  
  *  
  *  
  *  
  *  
  *  
 
Character     85 is "U"
 
*   *
*   *
*   *
*   *
*   *
*   *
 *** 
 
Character     86 is "V"
 
*   *
*   *
*   *
 * * 
 * * 
 * * 
  *  
 
Character     87 is "W"
 
*   *
*   *
* * *
* * *
*****
 *** 
 * * 
 
Character     88 is "X"
 
*   *
*   *
 * * 
  *  
 * * 
*   *
*   *
 
Character     89 is "Y"
 
*   *
*   *
 * * 
  *  
  *  
  *  
  *  
 
Character     90 is "Z"
 
*****
    *
   * 
  *  
 *   
*    
*****
 
Character     91 is "["
 
***  
*    
*    
*    
*    
*    
***  
 
Character     92 is "\"
 
*    
*    
 *   
  *  
   * 
    *
    *
 
Character     93 is "]"
 
  ***
    *
    *
    *
    *
    *
  ***
 
Character     94 is "^"
 
  *  
 * * 
*   *
     
     
     
     
 
Character     95 is "_"
 
     
     
     
     
     
     
*****
 
Character     96 is "`"
 
 *   
  *  
     
     
     
     
     
 
TEST17
  PPMA_WRITE writes an ASCII PPM file.
  This displays the basins of attraction for
  Newton's method applied to a particular
  nonlinear equation in the complex plane.
 
  The equation is Z^3 = -1, which has three roots.
 
  ROOT1 =   0.500000      0.866025    
  ROOT2 =   -1.00000     -0.874228E-07
  ROOT3 =   0.500000     -0.866025    
 
PBMLIB_PRB
  Normal end of execution.