| 查看: 494 | 回复: 2 | ||
lijunjiexm铁虫 (小有名气)
|
[求助]
double precision versions of dot product?
|
|
function dot (x,y,n) cc-begin c c----------------------------------------------------------------------- c c dot (x,y,n) c c c purpose c ------- c c dot calculates the dot product of the two n-vectors c x and y. c cc-doc c input arguments c --------------- c c x = vector of length n. c y = vector of length n. c n = dimension of x and y. c c output arguments c ---------------- c c dot = value of the function, i.e. dot product of x and y. c c notes c ----- c c 1. dot contains a test for n = 0. c c----------------------------------------------------------------------- cc-end c implicit real*8 (a-h,o-z) dimension x(*),y(*) c dot = 0. if (n .le. 0) return c do 100 i = 1,n c dot = dot + x(i)*y(i) c 100 continue dot = ddot(n,x,1,y,1) end |
回复此楼» 猜你喜欢
265求调剂
已经有9人回复
-
085600材料与化工调剂
已经有20人回复
-
专硕 351 086100 也是考的材科基 本科也是材料
已经有6人回复
-
085600专硕材料与化工348分求调剂
已经有10人回复
-
085600 295分求调剂
已经有21人回复
-
285求调剂
已经有5人回复
-
一志愿安徽大学0817化学工程与技术，求调剂
已经有9人回复
-
一志愿0817化学工程与技术，求调剂
已经有8人回复
-
271分求调剂学校
已经有3人回复
-
生物学308分求调剂（一志愿华东师大）
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- hydrolysis of lactone
已经有9人回复
- Fundamentals of solidification（凝固原理）
已经有241人回复
- Museum of Fine Arts
已经有11人回复
- 卑鄙无耻的外刊journal of analytic and bioanalytic techniques无耻之极！
已经有26人回复
- Journal of Power sources怎么了？
已经有14人回复
- calculating ideal strength of crystal using VASP
已经有77人回复
- Journal of Chromatography A 的写作模板及Endnote的模板
已经有3人回复
- 【其它】热烈祝贺英文国际学术期刊《Journal of Advanced Dielectrics>>创刊
已经有8人回复
- 谁投过ASIAN JOUNAL OF CHEMISTRY，问个问题，非常感谢
已经有4人回复
- 求助--投过science of the total environment 的前辈帮忙看一下，谢谢
已经有7人回复
- 【求助】BSSE of O2运行出错
已经有17人回复
- All figures put at the end of the manuscript should be labeled 这句话什么意思呢
已经有10人回复
- 投过journal of power source 的讲一下
已经有6人回复
- International Journal of Mechanical Sciences投稿5个月没消息
已经有10人回复
lijunjiexm
铁虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 22.8
- 红花: 1
- 帖子: 182
- 在线: 87.1小时
- 虫号: 1198843
- 注册: 2011-02-03
- 专业: 常微分方程与动力系统
2楼2011-07-20 09:41:21
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
3楼2011-07-20 11:50:51
120