program main

c*********************************************************************72
c
cc MAIN is the main program for FELIPPA_PRB.
c
c  Discussion:
c
c    FELIPPA_PRB tests the FELIPPA library.
c
c  Licensing:
c
c    This code is distributed under the MIT license.
c
c  Modified:
c
c    17 August 2014
c
c  Author:
c
c    John Burkardt
c
      implicit none

      integer degree_max

      call timestamp ( )
      write ( *, '(a)' ) ' '
      write ( *, '(a)' ) 'FELIPPA_PRB'
      write ( *, '(a)' ) '  FORTRAN77 version'
      write ( *, '(a)' ) '  Test the FELIPPA library.'

      degree_max = 4

      call hexa_unit_monomial_test ( degree_max )
      call line_unit_monomial_test ( degree_max )
      call pyra_unit_monomial_test ( degree_max )
      call quad_unit_monomial_test ( degree_max )
      call tetr_unit_monomial_test ( degree_max )
      call trig_unit_monomial_test ( degree_max )
      call wedg_unit_monomial_test ( degree_max )

      degree_max = 6
      call hexa_unit_quad_test ( degree_max )

      degree_max = 10
      call line_unit_quad_test ( degree_max )

      degree_max = 5
      call pyra_unit_quad_test ( degree_max )

      degree_max = 10
      call quad_unit_quad_test ( degree_max )

      degree_max = 4
      call tetr_unit_quad_test ( degree_max )

      degree_max = 7
      call trig_unit_quad_test ( degree_max )

      degree_max = 8
      call wedg_unit_quad_test ( degree_max )

      call wedg_unit_write_test ( )
c
c  Terminate.
c
      write ( *, '(a)' ) ' '
      write ( *, '(a)' ) 'FELIPPA_PRB'
      write ( *, '(a)' ) '  Normal end of execution.'
      write ( *, '(a)' ) ' '
      call timestamp ( )

      stop
      end