! $Id$
program raw_io_prb
!
!*******************************************************************************
!
!! RAW_IO_PRB runs the RAW_IO tests.
!
  implicit none
  integer, parameter :: INT1   = selected_int_kind(R=2)
   integer, parameter :: INT2   = selected_int_kind(R=4)
  integer(kind=int1) :: u
  integer ( kind =int2) ::k
!
  call timestamp ( )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) 'RAW_IO_PRB'
  write ( *, '(a)' ) '  Tests for the RAW_IO library.'
  
  call test01
  call test02

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) 'RAW_IO_PRB'
  write ( *, '(a)' ) '  Normal end of execution.'

  stop
end
subroutine test01
!
!*******************************************************************************
!
!! TEST01 tests RAW_C_COUNT.
!
  implicit none
!
  character ( len = 80 ) :: file_name = 'oak.rgb'
  integer nchar
!
  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) 'TEST01'
  write ( *, '(a)' ) '  RAW_C_COUNT counts the number of characters'
  write ( *, '(a)' ) '  in a raw file.'

  call raw_c_count ( file_name, nchar )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) '  The file is ' // trim ( file_name )
  write ( *, '(a,i6)' ) '  Number of characters is ', nchar

  return
end
subroutine test02
!
!*******************************************************************************
!
!! TEST02 tests RAW_I2_READ.
!
  implicit none
!
  integer dim
  integer file_rec
  character ( len = 80 ) :: file_name = 'oak.rgb'
  integer file_unit
  integer magic
  integer maxv
  integer minv
  character name(80)
  integer nchar
  integer type
  integer waste
  integer xsize
  integer ysize
  integer zsize
!
  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) 'TEST02'
  write ( *, '(a)' ) '  RAW_I2_READ reads "short" integers.'

  call get_unit ( file_unit )

  call raw_open ( file_name, file_unit )

  file_rec = 1
  call raw_ui2_read ( file_unit, file_rec, magic, 1 )

  write ( *, '(a)' ) ' '
  write ( *, '(a,i6)' ) 'MAGIC = ', magic
  call raw_ui2_read ( file_unit, file_rec, type, 1 )
  write ( *, '(a,i6)' ) 'TYPE  = ', type
  call raw_ui2_read ( file_unit, file_rec, dim, 1 )
  write ( *, '(a,i6)' ) 'DIM   = ', dim
  call raw_ui2_read ( file_unit, file_rec, xsize, 1 )
  write ( *, '(a,i6)' ) 'XSIZE = ', xsize
  call raw_ui2_read ( file_unit, file_rec, ysize, 1 )
  write ( *, '(a,i6)' ) 'YSIZE = ', ysize
  call raw_ui2_read ( file_unit, file_rec, zsize, 1 )
  write ( *, '(a,i6)' ) 'ZSIZE = ', zsize

  call raw_ui4_read ( file_unit, file_rec, minv, 1 )
  write ( *, '(a,i6)' ) 'MINV  = ', minv
  call raw_ui4_read ( file_unit, file_rec, maxv, 1 )
  write ( *, '(a,i6)' ) 'MAXV  = ', maxv
  call raw_ui4_read ( file_unit, file_rec, waste, 1 )
  write ( *, '(a,i6)' ) 'WASTE = ', waste

  call raw_c_read ( file_unit, file_rec, name, 80 )
  call chvec_print ( 80, name, 'NAME:' )

  close ( unit = file_unit )

  return
end