SCR1T Subroutine

private subroutine SCR1T(NEL, NDET1, NDET2, COULCOUPLE, BTRANS, NSBASIS, NSPINS, TOTSUM)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	NEL
integer				::	NDET1(NEL)
integer				::	NDET2(NEL)
real(kind=dp)				::	COULCOUPLE
real(kind=dp)				::	BTRANS(NSBASIS,NSBASIS,NSPINS)
integer				::	NSBASIS
integer				::	NSPINS
real(kind=dp)				::	TOTSUM