/*?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?=?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?	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_?*/

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件?????????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\base64.h
?????文件????????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個(gè)文件信息