MOD_BASISTRANSFORM Module

Subroutines

public subroutine RLL_TRANSFORM(RLL, lmaxatom, mode)

Arguments

Type	Intent	Optional	Attributes		Name
double complex				::	RLL(:,:,:)
integer				::	lmaxatom
character(len=*)				::	mode

public subroutine VLL_TRANSFORM(VLL, lmaxatom)

Arguments

Type	Intent	Optional	Attributes		Name
double complex				::	VLL(:,:,:)
integer				::	lmaxatom

public subroutine JLK_TRANSFORM(RLL, lmaxatom, loflm)

Arguments

Type	Intent	Optional	Attributes		Name
double complex,			allocatable	::	RLL(:,:)
integer				::	lmaxatom
integer				::	loflm(:)

public subroutine SINGLE_TRANSFORM(LCUT, LMCUT, RLL, MODE)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	LCUT
integer,	intent(in)			::	LMCUT
double complex				::	RLL(2LMCUT,2LMCUT)
character(len=7)				::	MODE

public subroutine CHANGEREP(A, MODE, B, N, M, RC, CREL, RREL, TEXT, LTEXT)

Arguments

Type	Intent	Optional	Attributes		Name
double complex				::	A(M,M)
character(len=7)				::	MODE
double complex				::	B(M,M)
integer				::	N
integer				::	M
double complex				::	RC(M,M)
double complex				::	CREL(M,M)
double complex				::	RREL(M,M)
character(len=*)				::	TEXT
integer				::	LTEXT

public subroutine BASTRMAT(LMAX, CGC, RC, CREL, RREL, NKMMAX, NKMPMAX)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	LMAX
double precision				::	CGC(NKMPMAX,2)
double complex				::	RC(NKMMAX,NKMMAX)
double complex				::	CREL(NKMMAX,NKMMAX)
double complex				::	RREL(NKMMAX,NKMMAX)
integer				::	NKMMAX
integer				::	NKMPMAX

public subroutine CALCCGC(LTAB, KAPTAB, NMUETAB, CGC, NKMAX, NMUEMAX, NKMPMAX)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	LTAB(NMUEMAX)
integer				::	KAPTAB(NMUEMAX)
integer				::	NMUETAB(NMUEMAX)
double precision				::	CGC(NKMPMAX,2)
integer				::	NKMAX
integer				::	NMUEMAX
integer				::	NKMPMAX

public subroutine DRVBASTRANS(RC, CREL, RREL, NLMAX, NKMMAX, NMUEMAX, NKMPMAX, NKMAX, LINMAX)

Arguments

Type	Intent	Optional	Attributes		Name
double complex				::	RC(NKMMAX,NKMMAX)
double complex				::	CREL(NKMMAX,NKMMAX)
double complex				::	RREL(NKMMAX,NKMMAX)
integer				::	NLMAX
integer				::	NKMMAX
integer				::	NMUEMAX
integer				::	NKMPMAX
integer				::	NKMAX
integer				::	LINMAX

public subroutine CINIT(N, A)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	N
double complex				::	A(*)

public subroutine CMATSTR(STR, LSTR, A, N, M, MLIN, MCOL, IJQ, TOLP, K_FMT_FIL)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	STR
integer				::	LSTR
double complex				::	A(M,M)
integer				::	N
integer				::	M
integer				::	MLIN
integer				::	MCOL
integer				::	IJQ
double precision				::	TOLP
integer				::	K_FMT_FIL