C-----------------------------------------------------------------------
C IMSL Name:  DISL1/DDISL1 (Single/Double precision version)
C
C Purpose:    Compute the 1-norm distance between two points.
C
C Usage:      DISL1(N, X, INCX, Y, INCY)
C
C Example 1:
C                                  Declare variables
      INTEGER    INCX, INCY, N
      PARAMETER  (INCX=1, INCY=1, N=4)
C
      INTEGER    NOUT
      REAL       DISL1, VAL, X(N), Y(N)
      EXTERNAL   DISL1, UMACH
C
C                                  Set values for X and Y
C                                  X = ( 1.0 -1.0  0.0  2.0 )
C
C                                  Y = ( 4.0  2.0  1.0 -3.0 )
C
      DATA X/1.0, -1.0, 0.0, 2.0/
      DATA Y/4.0, 2.0, 1.0, -3.0/
C                                  Compute L1 distance
      VAL = DISL1(N,X,INCX,Y,INCY)
C                                  Print results
      CALL UMACH (2, NOUT)
      WRITE (NOUT,*) ' The 1-norm distance is ', VAL
      END
C  The 1-norm distance is     12.0000