dvode_blas_module

BLAS support routines for DVODE. These have been refactored into modern Fortran.

Uses

- dvode_kinds_module
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=wp),	private,	parameter	::	zero	=	0.0_wp
real(kind=wp),	private,	parameter	::	one	=	1.0_wp
real(kind=wp),	private,	parameter	::	two	=	2.0_wp
real(kind=wp),	private,	parameter	::	four	=	4.0_wp
real(kind=wp),	private,	parameter	::	ten	=	10.0_wp
real(kind=wp),	private,	parameter	::	hun	=	100.0_wp

Functions

public function ddot(n, dx, incx, dy, incy)

forms the dot product of two vectors. uses unrolled loops for increments equal to one.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
real(kind=wp),	intent(in)	::	dx(*)
integer,	intent(in)	::	incx
real(kind=wp),	intent(in)	::	dy(*)
integer,	intent(in)	::	incy

Return Value real(kind=wp)

public function dnrm2(n, x, incx)

Function that returns the Euclidean norm $\sqrt{ \mathbf{x}^T \mathbf{x} }$ of a vector $\mathbf{x}$ .

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	n
real(kind=wp),	intent(in),	dimension(*)	::	x
integer,	intent(in)		::	incx

Return Value real(kind=wp)

public function idamax(n, dx, incx)

Find the smallest index of that component of a vector having the maximum magnitude.

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	n	number of elements in input vector(s)
real(kind=wp),	intent(in),	dimension(*)	::	dx	double precision vector with `N` elements
integer,	intent(in)		::	incx	storage spacing between elements of `DX`

Return Value integer

Subroutines

public subroutine daxpy(n, da, dx, incx, dy, incy)

constant times a vector plus a vector. uses unrolled loops for increments equal to one.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
real(kind=wp),	intent(in)	::	da
real(kind=wp),	intent(in)	::	dx(*)
integer,	intent(in)	::	incx
real(kind=wp),	intent(inout)	::	dy(*)
integer,	intent(in)	::	incy

public subroutine dcopy(n, dx, incx, dy, incy)

copies a vector, x, to a vector, y. uses unrolled loops for increments equal to one.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
real(kind=wp),	intent(in)	::	dx(*)
integer,	intent(in)	::	incx
real(kind=wp),	intent(inout)	::	dy(*)
integer,	intent(in)	::	incy

public subroutine dscal(n, da, dx, incx)

scales a vector by a constant. uses unrolled loops for increment equal to one.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
real(kind=wp),	intent(in)	::	da
real(kind=wp),	intent(inout)	::	dx(*)
integer,	intent(in)	::	incx

dvode_blas_module Module

Contents

Variables

Functions

Subroutines

Uses

Used by

Variables

Functions

public function ddot(n, dx, incx, dy, incy)

Arguments

Return Value real(kind=wp)

public function dnrm2(n, x, incx)

Arguments

Return Value real(kind=wp)

public function idamax(n, dx, incx)

Arguments

Return Value integer

Subroutines

public subroutine daxpy(n, da, dx, incx, dy, incy)

Arguments

public subroutine dcopy(n, dx, incx, dy, incy)

Arguments

public subroutine dscal(n, da, dx, incx)

Arguments