guga_data – NECI

Uses

Variables

Abstract Interfaces

Derived Types

WeightData_t GeneratorType_Values_t ExcitationTypeValues_t ExcitationTypeNames_t ExcitationInformation_t ProcedurePtrArray_t ProcPtrArrTwo_t ProjE_t RdmContribList_t

Functions

getDoubleContribution getSingleMatrixElement minFunBplus2 funBplus0 minFunBplus1 funBplus1 funSqrt2 minFunSqrt2 funOverRoot2 minFunOverR2 funA_1_2overR2 funA_3_2overR2 minFunA_3_2overR2 funA_0_2overR2 minFunA_0_2_overR2 funA_3_2 minFunA_3_2 funA_1_0_overR2 funA_m1_0 minFunA_m1_0 funA_m1_0_overR2 minFunA_m1_0_overR2 funA_2_0_overR2 minFunA_2_0_overR2 funA_0_1_overR2 minFunA_0_1_overR2 funA_2_1_overR2 minFunA_2_1_overR2 minFunA_1_2 minFunA_1_0 minFunA_0_1 funA_3_1_overR2 minFunA_3_1_overR2 funA_m1_1_overR2 minFunA_m1_1_overR2 funB_2_3 funD_2 funD_0 minFunD_0 funB_1_2 funB_0_1 funD_1 minFunD_1 funD_m1 funB_m1_0 minFunA_2_1 minFunC_2 minFunC_0 minFunOverB_2_R2 minFunOverB_0_R2 minFunB_0_2 funZero funPlus1 funMinus1 funTwo funA_0_1 funA_2_1 funA_1_0 funA_1_2 funC_0 funC_1 funC_2 minFunOverB_2 funOverB_1 minFunOverB_1 funOverB_0 funA funB funC funD funOverB

Subroutines

init_guga_data_procPtrs getMixedFullStop getDoubleMatrixElement fullStop_00 fullStop_11 fullStop_12 fullStop_22 fullStop_33

Variables

Type	Visibility	Attributes		Name		Initial
type(GeneratorType_Values_t),	public,	parameter	::	gen_type	=	GeneratorType_Values_t()
integer,	public,	parameter	::	n_excit_type_bits	=	5
integer,	public,	parameter	::	n_excit_lvl_bits	=	2
integer,	public,	parameter	::	n_excit_info_bits	=	n_excit_type_bits+n_excit_lvl_bits
integer,	public,	parameter	::	pos_excit_type_bits	=	int(bit_size(1_int_rdm))-n_excit_type_bits
integer,	public,	parameter	::	pos_excit_lvl_bits	=	int(bit_size(1_int_rdm))-n_excit_info_bits
integer,	private		::	i_
integer(kind=int_rdm),	private,	parameter	::	excitLvl_bitmask	=	ishft(int(sum([(2**i_, i_=0, n_excit_lvl_bits-1)]), int_rdm), pos_excit_lvl_bits)
integer(kind=int_rdm),	private,	parameter	::	excitType_bitmask	=	ishft(int(sum([(2**i_, i_=0, n_excit_type_bits-1)]), int_rdm), pos_excit_type_bits)
integer(kind=int_rdm),	private,	parameter	::	excitInfo_bitmask	=	ior(excitLvl_bitmask, excitType_bitmask)
integer(kind=int_rdm),	public,	parameter	::	rdm_ind_bitmask	=	not(excitInfo_bitmask)
integer,	public,	parameter	::	n_excit_index_bits	=	8
type(ExcitationTypeNames_t),	public,	parameter	::	excit_names(0:25)	=	[ExcitationTypeNames_t('Weight'), ExcitationTypeNames_t('invalid'), ExcitationTypeNames_t('Single'), ExcitationTypeNames_t('Weight + Raising'), ExcitationTypeNames_t('Weight + Lowering'), ExcitationTypeNames_t('Non Overlap'), ExcitationTypeNames_t('Single Overlap Lowering'), ExcitationTypeNames_t('Single Overlap Raising'), ExcitationTypeNames_t('Single Overlap L to R'), ExcitationTypeNames_t('Single Overlap R to L'), ExcitationTypeNames_t('Double Lowering'), ExcitationTypeNames_t('Double Raising'), ExcitationTypeNames_t('Double L to R to L'), ExcitationTypeNames_t('Double R to L to R'), ExcitationTypeNames_t('Double L to R'), ExcitationTypeNames_t('Double R to L'), ExcitationTypeNames_t('Fullstop Lowering'), ExcitationTypeNames_t('Fullstop Raising'), ExcitationTypeNames_t('Fullstop L to R'), ExcitationTypeNames_t('Fullstop R to L'), ExcitationTypeNames_t('Fullstart Lowering'), ExcitationTypeNames_t('Fullstart Raising'), ExcitationTypeNames_t('Fullstart L to R'), ExcitationTypeNames_t('Fullstart R to L'), ExcitationTypeNames_t('Fullstart to Fullstop Alike'), ExcitationTypeNames_t('Fullstart to Fullstop Mixed')]
type(ExcitationTypeValues_t),	public,	parameter	::	excit_type	=	ExcitationTypeValues_t()
logical,	public		::	tGUGACore	=	.false.
integer(kind=TagIntType),	public		::	tag_excitations	=	0
integer(kind=TagIntType),	public		::	tag_tmp_excits	=	0
integer(kind=TagIntType),	public		::	tag_proje_list	=	0
type(ProcedurePtrArray_t),	private		::	singleMatElesGUGA(15)
integer,	private,	dimension(0:3,0:3,-1:2)	::	indArrOne	=	reshape((/2, 2, 2, -1, 2, 10, 14, 5, 2, -1, 3, 7, -1, 7, 5, 3, 2, 2, 2, -1, 2, 3, 12, 6, 2, -1, 11, 8, -1, 5, 7, 3, 2, 2, 2, -1, 2, 3, -1, 5, 2, 13, 10, 7, -1, 7, 5, 3, 2, 2, 2, -1, 2, 9, -1, 6, 2, 15, 3, 8, -1, 5, 7, 3/), (/4, 4, 4/))
type(ProcedurePtrArray_t),	private		::	doubleMatEleX1GUGA(45)
integer,	private,	dimension(0:3,0:3,-7:7)	::	indArrTwoX1	=	reshape((/2, -1, 2, -1, -1, 34, 32, 18, -1, -1, 2, -1, -1, -1, -1, 2, 2, -1, 2, -1, 2, 39, 43, 23, -1, -1, 39, -1, -1, -1, 15, 2, 2, -1, -1, -1, 2, 2, 33, -1, -1, -1, 45, -1, -1, -1, 3, 2, -1, -1, -1, -1, 16, -1, -1, -1, 2, -1, -1, -1, -1, 3, 7, -1, 1, 38, 7, 1, 12, 12, 40, 17, 38, 38, 7, 23, 1, 4, 20, 1, -1, 2, 21, -1, -1, -1, -1, 12, -1, -1, -1, 22, -1, -1, -1, -1, 2, 21, 16, 1, -1, 31, 33, 28, -1, 32, 35, 26, 1, -1, -1, 2, 2, 7, 12, -1, 28, 30, 44, 10, 26, 42, 34, 6, -1, 20, 17, 2, 2, -1, -1, 1, 11, 31, 37, -1, 5, 29, 35, -1, 1, 7, 12, 2, -1, -1, -1, -1, 2, -1, -1, -1, 21, -1, -1, -1, -1, 12, 8, -1, -1, 12, 40, -1, 40, -1, -1, 25, 7, -1, -1, 20, -1, 17, 9, -1, -1, 16, 2, -1, -1, -1, -1, 24, -1, -1, -1, 7, -1, -1, -1, -1, 2, 2, -1, -1, -1, 2, -1, -1, -1, 33, 30, 14, -1, -1, -1, 2, 2, 2, -1, -1, -1, 41, -1, -1, 2, 43, 41, 25, -1, 19, -1, 2, 2, -1, -1, -1, -1, 36, -1, -1, 2, 32, 2, -1, -1, 8, -1, 2/), (/4, 4, 15/))
type(ProcedurePtrArray_t),	private		::	doubleMatEleX0GUGA(17)
integer,	private,	dimension(0:3,0:3,-7:7)	::	indArrTwoX0	=	reshape((/1, -1, 1, -1, -1, 1, 1, 1, -1, -1, 1, -1, -1, -1, -1, 1, 1, -1, 1, -1, 1, 1, 1, 1, -1, -1, 1, -1, -1, -1, 1, 1, 1, -1, -1, -1, 1, 1, 1, -1, 1, -1, 1, -1, -1, -1, 1, 1, 1, -1, -1, -1, 14, 1, 2, -1, 1, -1, 2, -1, -1, 1, 7, 2, 1, 1, 7, 10, 7, 7, 1, 15, 1, 1, 7, 1, 11, 1, 17, 5, 1, 1, 16, -1, -1, 2, 2, 7, -1, -1, 1, 1, -1, -1, -1, 2, 2, 16, 14, 4, -1, 3, 1, 7, -1, 1, 3, 7, 4, -1, -1, 2, 2, 6, 6, -1, 6, 2, 1, 13, 6, 1, 2, 12, -1, 16, 14, 2, 2, -1, -1, 4, 13, 3, 1, -1, 12, 1, 3, -1, 4, 7, 7, 2, 1, -1, -1, -1, 1, 2, -1, -1, 16, 2, 1, -1, -1, 7, 1, 2, -1, 7, 1, 9, 1, -1, -1, 1, 7, -1, -1, 17, 8, 15, 1, -1, 1, 14, 1, -1, -1, 1, -1, 1, -1, 2, 2, 7, -1, -1, -1, 2, 1, 1, -1, -1, -1, 1, -1, -1, -1, 1, 1, 1, -1, -1, -1, 1, 1, 1, -1, -1, -1, 1, -1, -1, 1, 1, 1, 1, -1, 1, -1, 1, 1, -1, -1, -1, -1, 1, -1, -1, 1, 1, 1, -1, -1, 1, -1, 1/), (/4, 4, 15/))
type(ProcPtrArrTwo_t),	private		::	mixedGenFullStopMatEle(5)
integer,	private,	dimension(0:3, 0:3, -1:1)	::	indArrEnd	=	reshape([-1, -1, -1, -1, -1, -1, 5, -1, -1, -1, -1, -1, -1, -1, -1, -1, 1, -1, -1, -1, -1, 2, -1, -1, -1, -1, 3, -1, -1, -1, -1, 4, -1, -1, -1, -1, -1, -1, -1, -1, -1, 5, -1, -1, -1, -1, -1, -1], [4, 4, 3])
type(ProcedurePtrArray_t),	private		::	doubleContribution(7)
integer,	private,	dimension(0:3,0:3,-1:2)	::	indContr	=	reshape([1, -1, -1, -1, -1, 1, 7, -1, -1, -1, 3, -1, -1, -1, -1, 3, 1, -1, -1, -1, -1, 3, 5, -1, -1, -1, 1, -1, -1, -1, -1, 3, 1, -1, -1, -1, -1, 3, -1, -1, -1, 6, 1, -1, -1, -1, -1, 3, 1, -1, -1, -1, -1, 1, -1, -1, -1, 4, 3, -1, -1, -1, -1, 3], [4, 4, 4])
type(ProjE_t),	public,	allocatable	::	projE_replica(:)
integer,	public,	allocatable	::	orbitalIndex(:)

Abstract Interfaces

abstract interface

private pure function dummyFunction(bValue) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	bValue

Return Value real(kind=dp)

abstract interface

private pure subroutine dummySubroutine(bValue, x0, x1)

Arguments

Type	Intent	Optional		Name
real(kind=dp),	intent(in)		::	bValue
real(kind=dp),	intent(out),	optional	::	x0
real(kind=dp),	intent(out),	optional	::	x1

Derived Types

type, public :: WeightData_t

Components

Type	Visibility		Name		Initial
real(kind=dp),	public	::	F	=	0.0_dp
real(kind=dp),	public	::	G	=	0.0_dp
real(kind=dp),	public	::	minus	=	0.0_dp
real(kind=dp),	public	::	plus	=	0.0_dp
real(kind=dp),	public	::	zero	=	0.0_dp

type, private :: GeneratorType_Values_t

Components

Type	Visibility		Name		Initial
integer,	public	::	R	=	1
integer,	public	::	L	=	-1
integer,	public	::	W	=	0

type, private :: ExcitationTypeValues_t

Components

Type	Visibility		Name		Initial
integer,	public	::	invalid	=	0
integer,	public	::	weight	=	1
integer,	public	::	single	=	2
integer,	public	::	raising	=	3
integer,	public	::	lowering	=	4
integer,	public	::	non_overlap	=	5
integer,	public	::	single_overlap_lowering	=	6
integer,	public	::	single_overlap_raising	=	7
integer,	public	::	single_overlap_L_to_R	=	8
integer,	public	::	single_overlap_R_to_L	=	9
integer,	public	::	double_lowering	=	10
integer,	public	::	double_raising	=	11
integer,	public	::	double_L_to_R_to_L	=	12
integer,	public	::	double_R_to_L_to_R	=	13
integer,	public	::	double_L_to_R	=	14
integer,	public	::	double_R_to_L	=	15
integer,	public	::	fullstop_lowering	=	16
integer,	public	::	fullstop_raising	=	17
integer,	public	::	fullstop_L_to_R	=	18
integer,	public	::	fullstop_R_to_L	=	19
integer,	public	::	fullstart_lowering	=	20
integer,	public	::	fullstart_raising	=	21
integer,	public	::	fullstart_L_to_R	=	22
integer,	public	::	fullstart_R_to_L	=	23
integer,	public	::	fullstart_stop_alike	=	24
integer,	public	::	fullstart_stop_mixed	=	25

type, private :: ExcitationTypeNames_t

Components

Type	Visibility	Attributes		Name		Initial
character(len=30),	public		::	str

type, public :: ExcitationInformation_t

Components

Type	Visibility		Name		Initial
integer,	public	::	typ	=	excit_type%invalid
integer,	public	::	i	=	-1
integer,	public	::	j	=	-1
integer,	public	::	k	=	-1
integer,	public	::	l	=	-1
integer,	public	::	fullStart	=	-1
integer,	public	::	fullEnd	=	-1
integer,	public	::	secondStart	=	-1
integer,	public	::	firstEnd	=	-1
integer,	public	::	weight	=	-1
integer,	public	::	overlap	=	-1
integer,	public	::	gen1	=	-2
integer,	public	::	gen2	=	-2
integer,	public	::	firstGen	=	-2
integer,	public	::	lastGen	=	-2
integer,	public	::	currentGen	=	-2
integer,	public	::	excitLvl	=	-1
real(kind=dp),	public	::	order	=	0.0_dp
real(kind=dp),	public	::	order1	=	0.0_dp
logical,	public	::	valid	=	.false.
logical,	public	::	spin_change	=	.false.
integer,	public	::	i_sg_start	=	-1	The supergroup from which the excitation starts. Only relevant for GAS.

type, private :: ProcedurePtrArray_t

Components

Type	Visibility	Attributes		Name		Initial
procedure(dummyFunction),	public,	pointer, nopass	::	ptr	=>	null()

type, private :: ProcPtrArrTwo_t

Components

Type	Visibility	Attributes		Name		Initial
procedure(dummySubroutine),	public,	pointer, nopass	::	ptr	=>	null()

type, private :: ProjE_t

Components

Type	Visibility	Attributes		Name
integer(kind=n_int),	public,	allocatable	::	projE_ilut_list(:,:)
real(kind=dp),	public,	allocatable	::	projE_hel_list(:)
integer,	public,	allocatable	::	exlevel(:)
integer,	public		::	num_entries

type, public :: RdmContribList_t

Components

Type	Visibility	Attributes		Name
integer(kind=n_int),	public,	allocatable	::	ilut_list(:,:)
real(kind=dp),	public,	allocatable	::	rdm_contrib(:)
integer(kind=int_rdm),	public,	allocatable	::	rdm_ind(:)
integer,	public,	allocatable	::	repeat_count(:)

Functions

public elemental function getDoubleContribution(step1, step2, deltaB, genFlag, bValue) result(doubleContr)

Arguments

Type	Intent		Name
integer,	intent(in)	::	step1
integer,	intent(in)	::	step2
integer,	intent(in)	::	deltaB
integer,	intent(in)	::	genFlag
real(kind=dp),	intent(in)	::	bValue

Return Value real(kind=dp)

public elemental function getSingleMatrixElement(step1, step2, deltaB, genFlag, bValue) result(hElement)

Arguments

Type	Intent		Name
integer,	intent(in)	::	step1
integer,	intent(in)	::	step2
integer,	intent(in)	::	deltaB
integer,	intent(in)	::	genFlag
real(kind=dp),	intent(in)	::	bValue

Return Value real(kind=dp)

private pure function minFunBplus2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funBplus0(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunBplus1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funBplus1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funSqrt2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunSqrt2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funOverRoot2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunOverR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA_1_2overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA_3_2overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunA_3_2overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

public pure function funA_0_2overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

public pure function minFunA_0_2_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA_3_2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunA_3_2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA_1_0_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA_m1_0(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunA_m1_0(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA_m1_0_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunA_m1_0_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

public pure function funA_2_0_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

public pure function minFunA_2_0_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA_0_1_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunA_0_1_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA_2_1_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunA_2_1_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunA_1_2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunA_1_0(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunA_0_1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

public pure function funA_3_1_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunA_3_1_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

public pure function funA_m1_1_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunA_m1_1_overR2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funB_2_3(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funD_2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funD_0(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunD_0(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funB_1_2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funB_0_1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funD_1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunD_1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funD_m1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funB_m1_0(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunA_2_1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunC_2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunC_0(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunOverB_2_R2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunOverB_0_R2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunB_0_2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funZero(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funPlus1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funMinus1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funTwo(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA_0_1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA_2_1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA_1_0(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA_1_2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funC_0(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funC_1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funC_2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunOverB_2(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funOverB_1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function minFunOverB_1(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funOverB_0(b) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b

Return Value real(kind=dp)

private pure function funA(b, x, y) result(ret)

Arguments

Type	Intent		Name
real(kind=dp),	intent(in)	::	b
real(kind=dp),	intent(in)	::	x
real(kind=dp),	intent(in)	::	y

Return Value real(kind=dp)

private pure function funB(b, x, y) result(ret)

Arguments

Type	Intent		Name
real(kind=dp),	intent(in)	::	b
real(kind=dp),	intent(in)	::	x
real(kind=dp),	intent(in)	::	y

Return Value real(kind=dp)

private pure function funC(b, x) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b
real(kind=dp),	intent(in)			::	x

Return Value real(kind=dp)

private pure function funD(b, x) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b
real(kind=dp),	intent(in)			::	x

Return Value real(kind=dp)

private pure function funOverB(b, x) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	b
real(kind=dp),	intent(in)			::	x

Return Value real(kind=dp)

Subroutines

public subroutine init_guga_data_procPtrs()

Arguments

None

public elemental subroutine getMixedFullStop(step1, step2, deltaB, bValue, x0_element, x1_element)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	step1
integer,	intent(in)		::	step2
integer,	intent(in)		::	deltaB
real(kind=dp),	intent(in)		::	bValue
real(kind=dp),	intent(out),	optional	::	x0_element
real(kind=dp),	intent(out),	optional	::	x1_element

public elemental subroutine getDoubleMatrixElement(step1, step2, deltaB, genFlag1, genFlag2, bValue, order, x0_element, x1_element)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	step1
integer,	intent(in)		::	step2
integer,	intent(in)		::	deltaB
integer,	intent(in)		::	genFlag1
integer,	intent(in)		::	genFlag2
real(kind=dp),	intent(in)		::	bValue
real(kind=dp),	intent(in)		::	order
real(kind=dp),	intent(out),	optional	::	x0_element
real(kind=dp),	intent(out),	optional	::	x1_element

private pure subroutine fullStop_00(b, x0, x1)

Arguments

Type	Intent	Optional		Name
real(kind=dp),	intent(in)		::	b
real(kind=dp),	intent(out),	optional	::	x0
real(kind=dp),	intent(out),	optional	::	x1

private pure subroutine fullStop_11(b, x0, x1)

Arguments

Type	Intent	Optional		Name
real(kind=dp),	intent(in)		::	b
real(kind=dp),	intent(out),	optional	::	x0
real(kind=dp),	intent(out),	optional	::	x1

private pure subroutine fullStop_12(b, x0, x1)

Arguments

Type	Intent	Optional		Name
real(kind=dp),	intent(in)		::	b
real(kind=dp),	intent(out),	optional	::	x0
real(kind=dp),	intent(out),	optional	::	x1

private pure subroutine fullStop_22(b, x0, x1)

Arguments

Type	Intent	Optional		Name
real(kind=dp),	intent(in)		::	b
real(kind=dp),	intent(out),	optional	::	x0
real(kind=dp),	intent(out),	optional	::	x1

private pure subroutine fullStop_33(b, x0, x1)

Arguments

Type	Intent	Optional		Name
real(kind=dp),	intent(in)		::	b
real(kind=dp),	intent(out),	optional	::	x0
real(kind=dp),	intent(out),	optional	::	x1

guga_data Module

Contents

Uses

Contents

Variables

Abstract Interfaces

abstract interface

private pure function dummyFunction(bValue) result(ret)

Arguments

Return Value real(kind=dp)

abstract interface

private pure subroutine dummySubroutine(bValue, x0, x1)

Arguments

Derived Types

type, public :: WeightData_t

Components

type, private :: GeneratorType_Values_t

Components

type, private :: ExcitationTypeValues_t

Components

type, private :: ExcitationTypeNames_t

Components

type, public :: ExcitationInformation_t

Components

type, private :: ProcedurePtrArray_t

Components

type, private :: ProcPtrArrTwo_t

Components

type, private :: ProjE_t

Components

type, public :: RdmContribList_t

Components

Functions

public elemental function getDoubleContribution(step1, step2, deltaB, genFlag, bValue) result(doubleContr)

Arguments

Return Value real(kind=dp)

public elemental function getSingleMatrixElement(step1, step2, deltaB, genFlag, bValue) result(hElement)

Arguments

Return Value real(kind=dp)

private pure function minFunBplus2(b) result(ret)

Arguments

Return Value real(kind=dp)

private pure function funBplus0(b) result(ret)

Arguments

Return Value real(kind=dp)

private pure function minFunBplus1(b) result(ret)

Arguments

Return Value real(kind=dp)

private pure function funBplus1(b) result(ret)

Arguments

Return Value real(kind=dp)

private pure function funSqrt2(b) result(ret)

Arguments

Return Value real(kind=dp)

private pure function minFunSqrt2(b) result(ret)

Arguments

Return Value real(kind=dp)

private pure function funOverRoot2(b) result(ret)

Arguments

Return Value real(kind=dp)

private pure function minFunOverR2(b) result(ret)

Arguments

Return Value real(kind=dp)

private pure function funA_1_2overR2(b) result(ret)

Arguments

Return Value real(kind=dp)

private pure function funA_3_2overR2(b) result(ret)

Arguments

Return Value real(kind=dp)

private pure function minFunA_3_2overR2(b) result(ret)

Arguments

Return Value real(kind=dp)

public pure function funA_0_2overR2(b) result(ret)

Arguments

Return Value real(kind=dp)

public pure function minFunA_0_2_overR2(b) result(ret)

Arguments

Return Value real(kind=dp)

private pure function funA_3_2(b) result(ret)

Arguments