subroutine rpaset(irpa1, irpa2)
c
c-----------------------------------------------------------------------
c
c routine defines start and stop rpa values interactively
c
c-----------------------------------------------------------------------
c
      integer*4 irpa1, irpa2
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
  100 continue
      write (*,'('' Enter minimum and maximum RPA settings: '', $)')
      read (*,*) irpa1, irpa2
      if (irpa1 .lt. 0  .or.  irpa1 .gt. 1000) then
         write (*, '('' ERROR: minimum rpa out of range (0->1000)'')')
         go to 100
      end if
      if (irpa2 .lt. 0  .or.  irpa2 .gt. 1000) then
         write (*, '('' ERROR: maximum rpa out of range (0->1000)'')')
         go to 100
      end if
      if (irpa2 .lt. irpa1) then
         write (*, '('' ERROR: maximum rpa less than minimum'')')
         go to 100
      end if
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end