program main

!*****************************************************************************80
!
!! MAIN is the main program for CONVERT_UNITS_PRB.
!
!  Discussion:
!
!    CONVERT_UNITS_PRB is a quick test of some CONVERT_UNITS routines.
!
!  Modified:
!
!    16 November 2006
!
!  Author:
!
!    John Burkardt
!
  implicit none

  real ( kind = 8 ) in
  character ( len = 20 ) inunit

  call timestamp ( )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) 'CONVERT_UNITS_PRB'
  write ( *, '(a)' ) '  FORTRAN90 version'
  write ( *, '(a)' ) '  Test CONVERT_UNITS conversion routines.'

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) '  Angles:'
  write ( *, '(a)' ) ' '
 
  in = 1.0D+00
  inunit = 'degrees'
  call angle_table ( in, inunit )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) '  Areas:'
  write ( *, '(a)' ) ' '
!
!  ???  Fails if INUNIT = 'square foot'
!
  in = 1.0D+00
  inunit = 'square foot'
  call area_table ( in, inunit )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) '  Lengths:'
  write ( *, '(a)' ) ' '
 
  in = 1.0D+00
  inunit = 'meters'
  call length_table ( in, inunit )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) '  Pressure:'
  write ( *, '(a)' ) ' '
 
  in = 1.0D+00
  inunit = 'pascal'
  call press_table ( in, inunit )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) '  Temperatures:'
  write ( *, '(a)' ) ' '
 
  in = 100.0D+00
  inunit = 'C'
  call temp_table ( in, inunit )

  in = 0.0D+00
  inunit = 'K'
  call temp_table ( in, inunit )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) '  Times:'
  write ( *, '(a)' ) ' '
 
  in = 1.0D+00
  inunit = 'second'
  call time_table ( in, inunit )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) '  Volumes:'
  write ( *, '(a)' ) ' '
 
  in = 1.0D+00
  inunit = 'cubic meter'
  call volume_table ( in, inunit )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) '  Weights:'
  write ( *, '(a)' ) ' '
 
  in = 1.0D+00
  inunit = 'gram'
  call weight_table ( in, inunit )
 
  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) 'CONVERT_UNITS_PRB'
  write ( *, '(a)' ) '  Normal end of CONVERT_UNITS tests.'
  write ( *, '(a)' ) ' '
  call timestamp ( )

  stop
end