reference/zdotcf.f · 三字经/OpenBLAS

Fetch the repository succeeded.

richgiteeai

Watch

Unwatch Watching Releases Only Ignoring

1 Star 0 Fork 0

三字经/OpenBLAS

Code Issues 0 Pull Requests 0 Wiki Insights Pipelines

Service

Tencent Cloud Serverless

Create your Gitee Account

Explore and code with more than 14 million developers,Free private repositories !:)

Already have an account? Sign in

文件

develop

Branches (57)

Tags (69)

Manage

develop

gh-pages

release-0.3.0

issue5267

revert-5565-jn/makefile-rule-dynamic

revert-5643-neov2_param

revert-5479-forklock

revert-4741-Pthread_Scalability_Improvement

gemm_batch

revert-5180-openmp_use_cmake

revert-5251-issue5250

timeout-riscv-ci

revert-4920-issue4917

revert-4628-CI-c910v-mips64-loongarch64

risc-v

revert-4153-dgemv

jenkins

revert-4103-windows_perf

utest-riscv

revert-3518-elbrus

v0.3.33

v0.3.32

v0.3.31

v0.3.30

v0.3.29

v0.3.28

v0.3.27

v0.3.26

v0.3.25

v0.3.24

v0.3.23

v0.3.22

v0.3.21

v0.3.20

v0.3.19

v0.3.18

v0.3.17

v0.3.16

v0.3.15

v0.3.14

Clone or Download

Clone/Download

HTTPS SSH SVN SVN+SSH Download ZIP

Prompt

To download the code, please copy the following command and execute it in the terminal

To ensure that your submitted code identity is correctly recognized by Gitee, please execute the following command.

git config --global user.name userName 
git config --global user.email userEmail

When using the SSH protocol for the first time to clone or push code, follow the prompts below to complete the SSH configuration.

1 Generate RSA keys.

2 Obtain the content of the RSA public key and configure it in SSH Public Keys

To use SVN on Gitee, please visit the usage guide

When using the HTTPS protocol, the command line will prompt for account and password verification as follows. For security reasons, Gitee recommends configure and use personal access tokens instead of login passwords for cloning, pushing, and other operations.

Username for 'https://gitee.com': userName

Password for 'https://userName@gitee.com': # Private Token

Branches 57

Tags 69

OpenBLAS

reference

zdotcf.f

zdotcf.f 918 Bytes

Copy Edit Raw Blame History

Zhang Xianyi authored 2011年01月24日 22:54 +08:00 . Import GotoBLAS2 1.13 BSD version codes.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

doublecomplexfunctionzdotcf(n,zx,incx,zy,incy)
c
cformsthedotproductofavector.
cjackdongarra,3/11/78.
cmodified12/3/93,array(1)declarationschangedtoarray(*)
c
doublecomplexzx(*),zy(*),ztemp
integeri,incx,incy,ix,iy,n
ztemp=(0.0d0,0.0d0)
zdotcf=(0.0d0,0.0d0)
if(n.le.0)return
if(incx.eq.1.and.incy.eq.1)go to20
c
ccodeforunequalincrementsorequalincrements
cnotequalto1
c
ix=1
iy=1
if(incx.lt.0)ix=(-n+1)*incx+1
if(incy.lt.0)iy=(-n+1)*incy+1
do10i=1,n
ztemp=ztemp+dconjg(zx(ix))*zy(iy)
ix=ix+incx
iy=iy+incy
10continue
zdotcf=ztemp
return
c
ccodeforbothincrementsequalto1
c
20do30i=1,n
ztemp=ztemp+dconjg(zx(i))*zy(i)
30continue
zdotcf=ztemp
return
end