fMathClass Module

Uses

- iso_c_binding

Contents

Interfaces

testc addValVec putValVec setZeroVec initVec c_allocatev dotproduct opencl_dotproduct opencl_dotproduct_f

Functions

c_dot_product c_dot_product_f

Subroutines

showValue

Interfaces

interface

public subroutine testc(pa) bind(c)

Arguments

Type Intent Optional Attributes Name

type(c_ptr) :: pa

interface

public subroutine addValVec(pa, n, i, val_in) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr)				::	pa
integer(kind=c_int),			value	::	n
integer(kind=c_int),			value	::	i
real(kind=c_double),			value	::	val_in

interface

public subroutine putValVec(pa, n, i, val_in) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr)				::	pa
integer(kind=c_int),			value	::	n
integer(kind=c_int),			value	::	i
real(kind=c_double),			value	::	val_in

interface

public subroutine setZeroVec(pa, n) bind(c)

Arguments

Type Intent Optional Attributes Name

type(c_ptr) :: pa

integer(kind=c_int), value :: n

interface

public subroutine initVec(pa, n) bind(c)

Arguments

Type Intent Optional Attributes Name

type(c_ptr) :: pa

integer(kind=c_int), value :: n

interface

public subroutine c_allocatev(pa, n) bind(c)

Arguments

Type Intent Optional Attributes Name

type(c_ptr) :: pa

integer(kind=c_int), value :: n

interface

public function dotproduct(pa, pa2, n) result(val) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr)				::	pa
type(c_ptr)				::	pa2
integer(kind=c_int),			value	::	n

Return Value real(kind=c_double)

interface

public function opencl_dotproduct(pa, pa2, n) result(val) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr)				::	pa
type(c_ptr)				::	pa2
integer(kind=c_int),			value	::	n

Return Value real(kind=c_double)

interface

public function opencl_dotproduct_f(pa, pa2, n) result(val) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr)				::	pa
type(c_ptr)				::	pa2
integer(kind=c_int),			value	::	n

Return Value real(kind=c_float)

Functions

public function c_dot_product(a, b, nf) result(dp)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		target	::	a(nf)
real(kind=8),	intent(in),		target	::	b(nf)
integer,	intent(in)			::	nf

Return Value real(kind=8)

public function c_dot_product_f(a, b, nf) result(dp)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		target	::	a(nf)
real(kind=8),	intent(in),		target	::	b(nf)
integer,	intent(in)			::	nf

Return Value real(kind=8)

Subroutines

public subroutine showValue()

Arguments

None