program sheet_prb
!
!*******************************************************************************
!
!! SHEET_PRB calls SHEET with some PDB data.
!
!
!  Modified:
!
!    01 September 1999
!
!  Author:
!
!    John Burkardt
!
  implicit none
!
  call timestamp ( )

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) 'SHEET_PRB'
  write ( *, '(a)' ) '  Tests for the SHEET package.'

  call test01
  call test02
  call test03

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

  stop
end
subroutine test01
!
!*******************************************************************************
!
!! TEST01 uses the 7TLN data.
!
  implicit none
!
  integer, parameter :: nsheet = 3
!
  integer ierror
  integer istart(nsheet)
  integer istop(nsheet)
  integer jstart(nsheet)
  integer jstop(nsheet)
  character ( len = 10 ) problem
!
  problem = '7tln'

  istart(1) = 4
  istop(1) = 12
  jstart(1) = 24
  jstop(1) = 16

  istart(2) = 39
  istop(2) = 43
  jstart(2) = 100
  jstop(2) = 104

  istart(3) = 113
  istop(3) = 115
  jstart(3) = 121
  jstop(3) = 119

  call plot_sheets ( istart, istop, jstart, jstop, nsheet, problem, ierror )

  return
end
subroutine test02
!
!*******************************************************************************
!
!! TEST02 uses the 7WGA data.
!
  implicit none
!
  integer, parameter :: nsheet = 5
!
  integer ierror
  integer istart(nsheet)
  integer istop(nsheet)
  integer jstart(nsheet)
  integer jstop(nsheet)
  character ( len = 10 ) problem
!
  problem = '7wga'

  istart(1) = 60
  istop(1) = 62
  jstart(1) = 68
  jstop(1) = 66

  istart(2) = 146
  istop(2) = 148
  jstart(2) = 154
  jstop(2) = 152

  istart(3) = 188
  istop(3) = 190
  jstart(3) = 196
  jstop(3) = 194

  istart(4) = 231
  istop(4) = 233
  jstart(4) = 239
  jstop(4) = 237

  istart(5) = 317
  istop(5) = 319
  jstart(5) = 325
  jstop(5) = 323

  call plot_sheets ( istart, istop, jstart, jstop, nsheet, problem, ierror )

  return
end
subroutine test03
!
!*******************************************************************************
!
!! TEST03 uses some simple sheet data.
!
  implicit none
!
  integer, parameter :: nsheet = 1
!
  integer ierror
  integer istart(nsheet)
  integer istop(nsheet)
  integer jstart(nsheet)
  integer jstop(nsheet)
  character ( len = 10 ) problem
!
  problem = 'sheet'

  istart(1) = 3
  istop(1) = 7
  jstart(1) = 10
  jstop(1) = 14

  call plot_sheets ( istart, istop, jstart, jstop, nsheet, problem, ierror )

  return
end