home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / lib / mathlib / libblas / src_original / dcopy.f < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.5 KB  |  67 lines
  1.       SUBROUTINE DCOPY( N, DX, INCX, DY, INCY )
  2. *
  3. *     copies a vector, x, to a vector, y.
  4. *     uses unrolled loops for increments equal to one.
  5. *     jack dongarra, linpack, 3/11/78.
  6. *
  7. *     .. Scalar Arguments ..
  8.       INTEGER           INCX, INCY, N
  9. *     ..
  10. *     .. Array Arguments ..
  11.       DOUBLE PRECISION  DX( 1 ), DY( 1 )
  12. *     ..
  13. *     .. Local Scalars ..
  14.       INTEGER           I, IX, IY, M, MP1
  15. *     ..
  16. *     .. Intrinsic Functions ..
  17.       INTRINSIC         MOD
  18. *     ..
  19. *     .. Executable Statements ..
  20. *
  21.       IF( N.LE.0 )
  22.      $   RETURN
  23.       IF( INCX.EQ.1 .AND. INCY.EQ.1 )
  24.      $   GO TO 20
  25. *
  26. *        code for unequal increments or equal increments
  27. *          not equal to 1
  28. *
  29.       IX = 1
  30.       IY = 1
  31.       IF( INCX.LT.0 )
  32.      $   IX = ( -N+1 )*INCX + 1
  33.       IF( INCY.LT.0 )
  34.      $   IY = ( -N+1 )*INCY + 1
  35.       DO 10 I = 1, N
  36.          DY( IY ) = DX( IX )
  37.          IX = IX + INCX
  38.          IY = IY + INCY
  39.    10 CONTINUE
  40.       RETURN
  41. *
  42. *        code for both increments equal to 1
  43. *
  44. *
  45. *        clean-up loop
  46. *
  47.    20 M = MOD( N, 7 )
  48.       IF( M.EQ.0 )
  49.      $   GO TO 40
  50.       DO 30 I = 1, M
  51.          DY( I ) = DX( I )
  52.    30 CONTINUE
  53.       IF( N.LT.7 )
  54.      $   RETURN
  55.    40 MP1 = M + 1
  56.       DO 50 I = MP1, N, 7
  57.          DY( I ) = DX( I )
  58.          DY( I+1 ) = DX( I+1 )
  59.          DY( I+2 ) = DX( I+2 )
  60.          DY( I+3 ) = DX( I+3 )
  61.          DY( I+4 ) = DX( I+4 )
  62.          DY( I+5 ) = DX( I+5 )
  63.          DY( I+6 ) = DX( I+6 )
  64.    50 CONTINUE
  65.       RETURN
  66.       END
  67.