ccopy.c
Go to the documentation of this file.
00001 /* ccopy.f -- translated by f2c (version 20061008).
00002    You must link the resulting object file with libf2c:
00003         on Microsoft Windows system, link with libf2c.lib;
00004         on Linux or Unix systems, link with .../path/to/libf2c.a -lm
00005         or, if you install libf2c.a in a standard place, with -lf2c -lm
00006         -- in that order, at the end of the command line, as in
00007                 cc *.o -lf2c -lm
00008         Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
00009 
00010                 http://www.netlib.org/f2c/libf2c.zip
00011 */
00012 
00013 #include "f2c.h"
00014 #include "blaswrap.h"
00015 
00016 /* Subroutine */ int ccopy_(integer *n, complex *cx, integer *incx, complex *
00017         cy, integer *incy)
00018 {
00019     /* System generated locals */
00020     integer i__1, i__2, i__3;
00021 
00022     /* Local variables */
00023     integer i__, ix, iy;
00024 
00025 /*     .. Scalar Arguments .. */
00026 /*     .. */
00027 /*     .. Array Arguments .. */
00028 /*     .. */
00029 
00030 /*  Purpose */
00031 /*  ======= */
00032 
00033 /*     CCOPY copies a vector x to a vector y. */
00034 
00035 /*  Further Details */
00036 /*  =============== */
00037 
00038 /*     jack dongarra, linpack, 3/11/78. */
00039 /*     modified 12/3/93, array(1) declarations changed to array(*) */
00040 
00041 /*     .. Local Scalars .. */
00042 /*     .. */
00043     /* Parameter adjustments */
00044     --cy;
00045     --cx;
00046 
00047     /* Function Body */
00048     if (*n <= 0) {
00049         return 0;
00050     }
00051     if (*incx == 1 && *incy == 1) {
00052         goto L20;
00053     }
00054 
00055 /*        code for unequal increments or equal increments */
00056 /*          not equal to 1 */
00057 
00058     ix = 1;
00059     iy = 1;
00060     if (*incx < 0) {
00061         ix = (-(*n) + 1) * *incx + 1;
00062     }
00063     if (*incy < 0) {
00064         iy = (-(*n) + 1) * *incy + 1;
00065     }
00066     i__1 = *n;
00067     for (i__ = 1; i__ <= i__1; ++i__) {
00068         i__2 = iy;
00069         i__3 = ix;
00070         cy[i__2].r = cx[i__3].r, cy[i__2].i = cx[i__3].i;
00071         ix += *incx;
00072         iy += *incy;
00073 /* L10: */
00074     }
00075     return 0;
00076 
00077 /*        code for both increments equal to 1 */
00078 
00079 L20:
00080     i__1 = *n;
00081     for (i__ = 1; i__ <= i__1; ++i__) {
00082         i__2 = i__;
00083         i__3 = i__;
00084         cy[i__2].r = cx[i__3].r, cy[i__2].i = cx[i__3].i;
00085 /* L30: */
00086     }
00087     return 0;
00088 } /* ccopy_ */


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:20