BUTTERFLY_ALG_MOD Module

Uses

- SHAREDMEM_MOD
- PARKIND1
- ECTRANS_BLAS_MOD
- INTERPOL_DECOMP_MOD
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.

Derived Types

type, public :: NODE_TYPE

Components

Type	Visibility	Attributes		Name		Initial
integer(kind=JPIM),	public		::	ILEV	=	0
integer(kind=JPIM),	public		::	IFCOL	=	0
integer(kind=JPIM),	public		::	ILCOL	=	0
integer(kind=JPIM),	public		::	IFROW	=	0
integer(kind=JPIM),	public		::	ILROW	=	0
integer(kind=JPIM),	public		::	ICOLS	=	0
integer(kind=JPIM),	public		::	IROWS	=	0
integer(kind=JPIM),	public		::	IRANK	=	0
integer(kind=JPIM),	public		::	IOFFBETA	=	0
integer(kind=JPIM),	public,	POINTER	::	ICLIST(:)	=>	NULL()
real(kind=JPRB),	public,	POINTER	::	PNONIM(:)	=>	NULL()
real(kind=JPRB),	public,	POINTER	::	B(:,:)	=>	NULL()
real(kind=JPRD),	public,	POINTER	::	DB(:,:)	=>	NULL()

type, public :: LEV_STRUCT

Components

Type	Visibility	Attributes		Name		Initial
integer(kind=JPIM),	public		::	IJ	=	0
integer(kind=JPIM),	public		::	IK	=	0
integer(kind=JPIM),	public		::	IBETALEN	=	0
type(NODE_TYPE),	public,	POINTER	::	NODE(:,:)	=>	NULL()

type, public :: BUTTERFLY_STRUCT

Components

Type	Visibility	Attributes		Name		Initial
integer(kind=JPIM),	public		::	M_ORDER	=	0
integer(kind=JPIM),	public		::	N_ORDER	=	0
integer(kind=JPIM),	public		::	N_CMAX	=	0
integer(kind=JPIM),	public		::	N_LEVELS	=	0
integer(kind=JPIM),	public		::	IBETALEN_MAX	=	0
type(LEV_STRUCT),	public,	POINTER	::	SLEV(:)	=>	NULL()

type, public :: CLONE

Components

Type	Visibility	Attributes		Name		Initial
real(kind=JPRB),	public,	ALLOCATABLE	::	COMMSBUF(:)

Subroutines

public subroutine CONSTRUCT_BUTTERFLY(PEPS, KCMAX, KM, KN, PMAT, YD_STRUCT)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=JPRD),	intent(in)			::	PEPS
integer(kind=JPIM),	intent(in)			::	KCMAX
integer(kind=JPIM),	intent(in)			::	KM
integer(kind=JPIM),	intent(in)			::	KN
real(kind=JPRD),	intent(in)			::	PMAT(:,:)
type(BUTTERFLY_STRUCT),	intent(inout)			::	YD_STRUCT

public subroutine PACK_BUTTERFLY_STRUCT(YD_STRUCT, YD_CLONE)

Arguments

Type	Intent	Optional	Attributes		Name
type(BUTTERFLY_STRUCT),	intent(in)			::	YD_STRUCT
type(CLONE),	intent(out),		TARGET	::	YD_CLONE

public subroutine UNPACK_BUTTERFLY_STRUCT(YD_STRUCT, YD_CLONE, YDMEMBUF)

Arguments

Type	Intent	Optional	Attributes		Name
type(BUTTERFLY_STRUCT),	intent(out)			::	YD_STRUCT
type(CLONE),	intent(in),	optional,	TARGET	::	YD_CLONE
type(SHAREDMEM),	intent(inout),	optional		::	YDMEMBUF

public subroutine MULT_BUTV(CDTRANS, YD_STRUCT, PVECIN, PVECOUT)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	CDTRANS
type(BUTTERFLY_STRUCT),	intent(in)			::	YD_STRUCT
real(kind=JPRB),	intent(in)			::	PVECIN(:)
real(kind=JPRB),	intent(out)			::	PVECOUT(:)

public subroutine MULT_BUTM(CDTRANS, YD_STRUCT, KF, PVECIN, PVECOUT, KWV)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	CDTRANS
type(BUTTERFLY_STRUCT),	intent(in)			::	YD_STRUCT
integer(kind=JPIM),	intent(in)			::	KF
real(kind=JPRB),	intent(in)			::	PVECIN(:,:)
real(kind=JPRB),	intent(out)			::	PVECOUT(:,:)
integer(kind=JPIM),	intent(in),	optional		::	KWV