fxt_fif Module

This module provides the ISO_C_Binding interfaces to the fxtpack routines.

falt: Fast Associated Legendre Transform (spherical harmonics) flpt: Fast Legendre Polynomial Transform vecld: Array of doubles

Uses

- iso_c_binding

Interfaces

interface

public function fxt_faltld_wsize(falt, m) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr)				::	falt
integer(kind=c_long),			value	::	m

Return Value integer(kind=c_long)

interface

public function fxt_faltld_wsizemax(falt) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr)				::	falt

Return Value integer(kind=c_long)

interface

public function fxt_flptld_init(p, n, prec) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_long),			value	::	p
integer(kind=c_long),			value	::	n
real(kind=c_double),			value	::	prec

Return Value type(c_ptr)

interface

public function fxt_flptld_wsize(flpt) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	flpt

Return Value integer(kind=c_long)

interface

public function fxt_vecl_new(size) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_long)				::	size

Return Value type(c_ptr)

interface

public function fxt_vecld_new(size) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_long),			value	::	size

Return Value type(c_ptr)

interface

public subroutine fxt_faltld_preproc(p, n, mv, prec, fname) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_long),			value	::	p
integer(kind=c_long),			value	::	n
type(c_ptr)				::	mv
real(kind=c_double),			value	::	prec
character(kind=c_char, len=1)				::	fname

interface

public subroutine fxt_faltld_del(falt) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	falt

interface

public subroutine fxt_faltld_evl(v, falt, m, u, w) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr)				::	v
type(c_ptr)				::	falt
integer(kind=c_long),			value	::	m
type(c_ptr)				::	u
type(c_ptr)				::	w

interface

public subroutine fxt_faltld_exp(u, falt, m, v, w) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr)				::	u
type(c_ptr)				::	falt
integer(kind=c_long),			value	::	m
type(c_ptr)				::	v
type(c_ptr)				::	w

interface

public subroutine fxt_flptld_preproc(p, n, prec, fname) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_long),			value	::	p
integer(kind=c_long),			value	::	n
real(kind=c_double),			value	::	prec
character(len=c_char)				::	fname

interface

public subroutine fxt_flptld_del(flpt) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr)				::	flpt

interface

public subroutine fxt_flptld_evl(v, flpt, u, w) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	v
type(c_ptr),			value	::	flpt
type(c_ptr),			value	::	u
type(c_ptr),			value	::	w

interface

public subroutine fxt_flptld_exp(u, flpt, v, w) bind(c)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	u
type(c_ptr),			value	::	flpt
type(c_ptr),			value	::	v
type(c_ptr),			value	::	w