SCR0T Subroutine

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

SAME*

Arguments

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

Contents