Man page or keyword search:   man All Sections 1 - General Commands 2 - System Calls 3 - Subroutines, Functions 4 - Special Files 5 - File Formats 6 - Games and Screensavers 7 - Macros and Conventions 8 - Maintenence Commands 9 - Kernel Interface New Commands Server 4.4BSD AIX Alpinelinux Archlinux Aros BSDOS BSDi Bifrost CentOS Cygwin Darwin Debian DigitalUNIX DragonFly ElementaryOS Fedora FreeBSD Gentoo GhostBSD HP-UX Haiku Hurd IRIX Inferno JazzOS Kali Knoppix LinuxMint MacOSX Mageia Mandriva Manjaro Minix MirBSD NeXTSTEP NetBSD OPENSTEP OSF1 OpenBSD OpenDarwin OpenIndiana OpenMandriva OpenServer OpenSuSE OpenVMS Oracle PC-BSD Peanut Pidora Plan9 QNX Raspbian RedHat Scientific Slackware SmartOS Solaris SuSE SunOS Syllable Tru64 UNIXv7 Ubuntu Ultrix UnixWare Xenix YellowDog aLinux   26626 pages apropos Keyword Search (all sections) Output format html ascii pdf view pdf save postscript

SDSDOT(1)			 BLAS routine			     SDSDOT(1)

NAME
SYNOPSIS
       REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY)

	   REAL	     SB

	   INTEGER   INCX,INCY,N

	   REAL	     SX(*),SY(*)

	   DOUBLE    PRECISION DSDOT

	   INTEGER   I,KX,KY,NS

	   INTRINSIC DBLE

	   DSDOT     = SB

	   IF	     (N.LE.0) GO TO 30

	   IF	     (INCX.EQ.INCY .AND. INCX.GT.0) GO TO 40

	   KX	     = 1

	   KY	     = 1

	   IF	     (INCX.LT.0) KX = 1 + (1-N)*INCX

	   IF	     (INCY.LT.0) KY = 1 + (1-N)*INCY

	   DO	     10 I = 1,N

	   DSDOT     = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))

	   KX	     = KX + INCX

	   KY	     = KY + INCY

	   10	     CONTINUE

	   30	     SDSDOT = DSDOT

	   RETURN

	   40	     NS = N*INCX

	   DO	     50 I = 1,NS,INCX

	   DSDOT     = DSDOT + DBLE(SX(I))*DBLE(SY(I))

	   50	     CONTINUE

	   SDSDOT    = DSDOT

	   RETURN

	   END

PURPOSE
BLAS routine			 November 2008			     SDSDOT(1)

Vote for polarhome