9 May 2025   8:57:25.867 PM
 
chrpak_test():
  Fortran90 version:
  Test chrpak().
 
a_to_i4_test():
  a_to_i4(): Alphabetic character => I4
 
   A  ==>  I4
 
  A            1
  D            4
  G            7
  J           10
  M           13
  P           16
  S           19
  V           22
  Y           25
  b           28
  e           31
  h           34
  k           37
  n           40
  q           43
  t           46
  w           49
  z           52
 
b4_ieee_to_r4_test():
  b4_ieee_to_r4():  32 bit string => R4
 
    R1               --------------Word--------------      R2
 
  0.250000000000      00111110100000000000000000000000    0.250000000000    
  0.500000000000      00111111000000000000000000000000    0.500000000000    
   1.00000000000      00111111100000000000000000000000     1.00000000000    
   2.00000000000      01000000000000000000000000000000     2.00000000000    
   4.00000000000      01000000100000000000000000000000     4.00000000000    
   1.50000000000      00111111110000000000000000000000     1.50000000000    
   1.75000000000      00111111111000000000000000000000     1.75000000000    
   1.87500000000      00111111111100000000000000000000     1.87500000000    
   6.50000000000      01000000110100000000000000000000     6.50000000000    
  -6.50000000000      11000000110011111111111111111111    -6.50000000000    
   99.0000000000      01000010110001100000000000000000     99.0000000000    
   100.000000000      01000010110010000000000000000000     100.000000000    
   101.000000000      01000010110010100000000000000000     101.000000000    
   0.00000000000      00000000000000000000000000000000     0.00000000000    
  -1.00000000000      10111111011111111111111111111111    -1.00000000000    
  0.340282346639E+39  01111111011111111111111111111111    0.340282346639E+39
  0.705296610493E-37  00000001110000000000000000000000     0.00000000000    
  0.176324152623E-37  00000000110000000000000000000000     0.00000000000    
  0.440810381558E-38  00000000011000000000000000000000    0.881620763117E-38
  0.128569694621E-38  00000000000111000000000000000000    0.257139389242E-38
  0.344383110592E-39  00000000000001111000000000000000    0.688766221185E-39
 
b4_ieee_to_sef_test():
  b4_ieee_to_sef() converts a real IEEE word to SEF form.
 
  S is the sign bit (0 = positive, 1 = negative)
  E is the exponent base 2
  F is the mantissa
 
   S    E         F  SEEEEEEEEFFFFFFFFFFFFFFFFFFFFFFF  S2   E2        F2
 
   0   -2         1  00111110100000000000000000000000   0   -2         1
   0   -1         1  00111111000000000000000000000000   0   -1         1
   0    0         1  00111111100000000000000000000000   0    0         1
   0    1         1  01000000000000000000000000000000   0    1         1
   0    2         1  01000000100000000000000000000000   0    2         1
   0   -1         3  00111111110000000000000000000000   0   -1         3
   0   -2         7  00111111111000000000000000000000   0   -2         7
   0   -3        15  00111111111100000000000000000000   0   -3        15
   0   -1        13  01000000110100000000000000000000   0   -1        13
   1   -1        13  11000000110011111111111111111111   1   -1        13
   0    0        99  01000010110001100000000000000000   0    0        99
   0    2        25  01000010110010000000000000000000   0    2        25
   0    0       101  01000010110010100000000000000000   0    0       101
   0    0         0  00000000000000000000000000000000   0    0         0
   1    0         1  10111111011111111111111111111111   1    0         1
   0  104  16777215  01111111011111111111111111111111   0  104  16777215
   0 -125         3  00000001110000000000000000000000   0 -125         3
   0 -127         3  00000000110000000000000000000000   0 -127         3
   0 -129         3  00000000011000000000000000000000   0 -129         3
   0 -132         7  00000000000111000000000000000000   0 -132         7
   0 -135        15  00000000000001111000000000000000   0 -135        15
   0    0         0  00000000000000000000000000000000   0    0         0
   1    0         0  11111111111111111111111111111111   1    0         0
   0  128         1  01111111111111111111111111111111   0  128   8388607
   1  128         1  11111111111111111111111111111110   1  128   8388607
   0  128         0  01111111100000000000000000000000   0  128         0
 
base_to_i4_test():
  base_to_i4() converts an integer in some other
  base into base 10.
 
  BASE, I, I4_TO_BASE(I), BASE_TO_I4(I4_TO_BASE(I))
 
      -1         5             101010101       5
       1         5                 11111       5
       2        21                 10101      21
       3      -243               -100000    -243
       4        16                   100      16
       8        15                    17      15
 
test006():
  binary_to_i4() converts a binary to an integer.
  i4_to_binary() converts an integer to binary,
 
        I4  ==> BINARY    ==> I4
 
        21       10101        21
       -32     -100000       -32
         2          10         2
       128    10000000       128
 
TEST007
  BINARY_TO_R4: binary string => R4.
  R4_TO_BINARY: R4 => binary string;
 
    R4   =>    S   =>   R4
 
  -10.750000  -1010.11                -10.750000
    0.407813  0.011010000110011001      0.407810
    0.666666  0.101010101010101010      0.666664
 
TEST008
  BINARY_TO_R8: binary string => R8.
  R8_TO_BINARY: R8 => binary string;
 
    R8   =>    S   =>   R8
 
  -10.750000  -1010.11                -10.750000
    0.407813  0.011010000110011001      0.407810
    0.666666  0.101010101010101010      0.666664
 
ch_cap_test():
  ch_cap() uppercases a character.
 
  c  ch_cap(c)
 
  F  F
  f  F
  1  1
  b  B
  B  B
 
CH_COUNT_FILE_ADD_TEST
  CH_COUNT_FILE_ADD adds the characters in a file
  to a character count.
 
CH_COUNT_FILE_ADD(): Fatal error!
  Could not open the file:
    chrpak_prb.f90