C-----------------------------------------------------------------------
C IMSL Name:  SVIBN (Single precision version)
C
C Purpose:    Sort an integer array by nondecreasing absolute value.
C
C Usage:      CALL SVIBN (N, IA, IB)
C
C Example 1:
C                                  Declare variables
      PARAMETER  (N=10)
      INTEGER    IA(N), IB(N)
C                                  Set values for  IA
C     IA = ( -1  3  -4  2  -1  0  -7  6  10  -7)
C
      DATA IA/-1, 3, -4, 2, -1, 0, -7, 6, 10, -7/
C                                  Sort IA by absolute value into IB
      CALL SVIBN (N, IA, IB)
C                                  Print results
      CALL UMACH (2,NOUT)
      WRITE (NOUT, 99999) (IB(J),J=1,N)
C
99999 FORMAT ('  The output vector is:', /, 10(1X,I5))
      END
C   The output vector is:
C      0    -1    -1     2     3    -4     6    -7    -7    10