program graph_paper_prb
!
!*******************************************************************************
!
!! GRAPH_PAPER_PRB is a sample calling program for GRAPH_PAPER routines.
!
  integer angle_num
  integer circle_num
  character ( len = 80 ) file_name
  integer n
!
  call timestamp ( )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) 'GRAPH_PAPER_PRB'
  write ( *, '(a)' ) '  Demonstrate the use of GRAPH_PAPER.'

  n = 10
  file_name = 'hexagonal_1.ps'

  call hexagonal_1 ( n, file_name )

  angle_num = 12
  circle_num = 10
  file_name = 'polar_1.ps'

  call polar_1 ( angle_num, circle_num, file_name )

  n = 21
  file_name = 'triangular_1.ps'

  call triangular_1 ( n, file_name )
 
  file_name = 'uniform_1.ps'

  call uniform_1 ( file_name )

  file_name = 'uniform_2.ps'

  call uniform_2 ( file_name )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) 'GRAPH_PAPER_PRB'
  write ( *, '(a)' ) '  Normal end of GRAPH_PAPER tests.'
 
  stop
end