-
大小: 28.86MB文件类型: .zip金币: 1下载: 0 次发布日期: 2023-08-03
- 语言: 其他
- 标签: opencv2.2.0
资源简介
opencv2.2.0win.zip,解压即可使用
代码片段和文件信息
/* dasum.f -- translated by f2c (version 20061008).
You must link the resulting object file with libf2c:
on Microsoft Windows system link with libf2c.lib;
on Linux or Unix systems link with .../path/to/libf2c.a -lm
or if you install libf2c.a in a standard place with -lf2c -lm
-- in that order at the end of the command line as in
cc *.o -lf2c -lm
Source for libf2c is in /netlib/f2c/libf2c.zip e.g.
http://www.netlib.org/f2c/libf2c.zip
*/
#include “clapack.h“
doublereal dasum_(integer *n doublereal *dx integer *incx)
{
/* System generated locals */
integer i__1 i__2;
doublereal ret_val d__1 d__2 d__3 d__4 d__5 d__6;
/* Local variables */
integer i__ m mp1;
doublereal dtemp;
integer nincx;
/* .. Scalar Arguments .. */
/* .. */
/* .. Array Arguments .. */
/* .. */
/* Purpose */
/* ======= */
/* takes the sum of the absolute values. */
/* jack dongarra linpack 3/11/78. */
/* modified 3/93 to return if incx .le. 0. */
/* modified 12/3/93 array(1) declarations changed to array(*) */
/* .. Local Scalars .. */
/* .. */
/* .. Intrinsic Functions .. */
/* .. */
/* Parameter adjustments */
--dx;
/* Function Body */
ret_val = 0.;
dtemp = 0.;
if (*n <= 0 || *incx <= 0) {
return ret_val;
}
if (*incx == 1) {
goto L20;
}
/* code for increment not equal to 1 */
nincx = *n * *incx;
i__1 = nincx;
i__2 = *incx;
for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
dtemp += (d__1 = dx[i__] abs(d__1));
/* L10: */
}
ret_val = dtemp;
return ret_val;
/* code for increment equal to 1 */
/* clean-up loop */
L20:
m = *n % 6;
if (m == 0) {
goto L40;
}
i__2 = m;
for (i__ = 1; i__ <= i__2; ++i__) {
dtemp += (d__1 = dx[i__] abs(d__1));
/* L30: */
}
if (*n < 6) {
goto L60;
}
L40:
mp1 = m + 1;
i__2 = *n;
for (i__ = mp1; i__ <= i__2; i__ += 6) {
dtemp = dtemp + (d__1 = dx[i__] abs(d__1)) + (d__2 = dx[i__ + 1]
abs(d__2)) + (d__3 = dx[i__ + 2] abs(d__3)) + (d__4 = dx[i__
+ 3] abs(d__4)) + (d__5 = dx[i__ + 4] abs(d__5)) + (d__6 =
dx[i__ + 5] abs(d__6));
/* L50: */
}
L60:
ret_val = dtemp;
return ret_val;
} /* dasum_ */
属性 大小 日期 时间 名称
----------- --------- ---------- ----- ----
文件 485 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\CMakeLists.txt
文件 1697 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\ilmimf\LICENSE
文件 4461 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\ilmimf\README
文件 2149 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\cblas.h
文件 178015 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\clapack.h
文件 5286 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\f2c.h
文件 134790 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavcodec\avcodec.h
文件 3013 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavcodec\avfft.h
文件 1874 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavcodec\dxva2.h
文件 7578 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavcodec\opt.h
文件 4066 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavcodec\vaapi.h
文件 2943 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavcodec\vdpau.h
文件 6890 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavcodec\xvmc.h
文件 1991 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavdevice\avdevice.h
文件 51581 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavformat\avformat.h
文件 19118 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavformat\avio.h
文件 1096 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\adler32.h
文件 2794 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\attributes.h
文件 142 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\avconfig.h
文件 4167 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\avstring.h
文件 2655 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\avutil.h
文件 1724 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\ba
文件 9829 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\common.h
文件 1526 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\crc.h
文件 2887 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\error.h
文件 3735 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\fifo.h
文件 1406 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\intfloat_readwrite.h
文件 3872 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\log.h
文件 2505 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\lzo.h
文件 3201 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\mathematics.h
文件 1235 2010-12-05 03:12 OpenCV-2.2.0\3rdparty\include\ffmpeg_\libavutil\md5.h
............此处省略1926个文件信息
- 上一篇:CATIA V5R20曲面设计精解 修订版 pdf
- 下一篇:安卓开发
评论
共有 条评论