program main

!*****************************************************************************80
!
!! DISLIN_EX03 demonstrates the creation and display of special symbols.
!
!  Modified:
!
!    05 September 2005
!
  use dislin

  implicit none

  character ( len = 2 ) :: cstr
  character ( len = 20 ) :: ctit = 'Symbols'
  integer :: i
  integer :: nl
  integer :: nxp
  integer :: ny

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) 'DISLIN_EX03:'
  write ( *, '(a)' ) '  FORTRAN90 version'
  write ( *, '(a)' ) '  Demonstrate the use of the SYMBOL routine'
  write ( *, '(a)' ) '  to create and display special symbols.'
!
!  Specify the format of the output file.
!
  call metafl ( 'PNG' )
!
!  Specify the name of the output graphics file.
!
  call setfil ( 'dislin_ex03.png' )
!
!  Set up the plot.
!
  call setpag ( 'da4p' )
  call disini ( )
  call pagera ( )
  call complx ( )

  call height ( 60 )
  nl = nlmess ( ctit )
  call messag ( ctit, (2100-nl)/2, 200 )

  call height ( 50 )
  call hsymbl ( 120 )

  ny = 150

  do i = 0, 21

    if ( mod ( i, 4 ) == 0 ) then
      ny = ny + 400
      nxp = 550
    else
      nxp = nxp + 350
    end if

    if ( i < 10 ) then
      write ( cstr, '(i1)' ) i
    else
      write ( cstr, '(i2)' ) i
    end if

    nl = nlmess ( cstr ) / 2
    call messag ( cstr, nxp-nl, ny+150 )
    call symbol ( i, nxp, ny )

  end do

  call disfin ( )

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

  stop
end