Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly
Sign up
Appearance settings

Commit 83ed564

Browse files
committed
implicit none in CBLAS
1 parent ce81740 commit 83ed564

34 files changed

+543
-50
lines changed

‎CBLAS/src/cdotcsub.f

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@
44
c Witten by Keita Teranishi. 2/11/1998
55
c
66
subroutine cdotcsub(n,x,incx,y,incy,dotc)
7+
implicit none
78
c
89
external cdotc
910
complex cdotc,dotc

‎CBLAS/src/cdotusub.f

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@
44
c Witten by Keita Teranishi. 2/11/1998
55
c
66
subroutine cdotusub(n,x,incx,y,incy,dotu)
7+
implicit none
78
c
89
external cdotu
910
complex cdotu,dotu

‎CBLAS/src/dasumsub.f

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@
44
c Witten by Keita Teranishi. 2/11/1998
55
c
66
subroutine dasumsub(n,x,incx,asum)
7+
implicit none
78
c
89
external dasum
910
double precision dasum,asum

‎CBLAS/src/dcabs1sub.f

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,7 @@
33
c The program is a fortran wrapper for dcabs1.
44
c
55
subroutine dcabs1sub(z, cabs1)
6+
implicit none
67
c
78
external dcabs1
89
double complex z

‎CBLAS/src/ddotsub.f

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@
44
c Witten by Keita Teranishi. 2/11/1998
55
c
66
subroutine ddotsub(n,x,incx,y,incy,dot)
7+
implicit none
78
c
89
external ddot
910
double precision ddot

‎CBLAS/src/dnrm2sub.f

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@
44
c Witten by Keita Teranishi. 2/11/1998
55
c
66
subroutine dnrm2sub(n,x,incx,nrm2)
7+
implicit none
78
c
89
external dnrm2
910
double precision dnrm2,nrm2

‎CBLAS/src/dsdotsub.f

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@
44
c Witten by Keita Teranishi. 2/11/1998
55
c
66
subroutine dsdotsub(n,x,incx,y,incy,dot)
7+
implicit none
78
c
89
external dsdot
910
double precision dsdot,dot

‎CBLAS/src/dzasumsub.f

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@
44
c Witten by Keita Teranishi. 2/11/1998
55
c
66
subroutine dzasumsub(n,x,incx,asum)
7+
implicit none
78
c
89
external dzasum
910
double precision dzasum,asum

‎CBLAS/src/dznrm2sub.f

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@
44
c Witten by Keita Teranishi. 2/11/1998
55
c
66
subroutine dznrm2sub(n,x,incx,nrm2)
7+
implicit none
78
c
89
external dznrm2
910
double precision dznrm2,nrm2

‎CBLAS/src/icamaxsub.f

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@
44
c Witten by Keita Teranishi. 2/11/1998
55
c
66
subroutine icamaxsub(n,x,incx,iamax)
7+
implicit none
78
c
89
external icamax
910
integer icamax,iamax

0 commit comments

Comments
(0)

AltStyle によって変換されたページ (->オリジナル) /