subroutine angset(iang1,iang2)
c
c routine defines start and stop angle bin values interactively
c v1.0 jfe johnson 1 nov 81
c v1.1 jfej        2 mar 82 uses /deluns/
c v1.2 jfej        3 mar 82 now accepts input in degrees (180)
c
      integer*4 iang1, iang2, jang1, jang2
   40 write(*,50)
   50 format($,' give start, stop phase angles (deg): ')
      read(*,*,end=99)jang1,jang2
      if(iabs(jang1).gt.180)go to 40
      if(iabs(jang2).gt.180)go to 40
      iang1=min0(jang1,jang2)
      iang2=max0(jang1,jang2)
      return
   99 call exit(0)
      stop
      end