gndts_r Subroutine

public recursive subroutine gndts_r(nel, nhg, brr, nBasisMax, nMrks, tCount, G1, tSpn, LMS, tParity, SymRestrict, ii, iElecs, iSpins, iElec, kJ)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nel
integer,	intent(in)			::	nhg
integer,	intent(in)			::	brr(nhg)
integer,	intent(in)			::	nBasisMax(5,*)
integer,	intent(inout)			::	nMrks(:,:)
logical,	intent(in)			::	tCount
type(BasisFN),	intent(in)			::	G1(:)
logical,	intent(in)			::	tSpn
integer,	intent(in)			::	LMS
logical,	intent(in)			::	tParity
type(BasisFN),	intent(in)			::	SymRestrict
integer,	intent(inout)			::	ii
integer,	intent(inout)			::	iElecs(nel)
integer,	intent(inout)			::	iSpins(nel)
integer,			value	::	iElec
type(BasisFN),	intent(in)			::	kJ

Contents