save_spinvec Subroutine

private subroutine save_spinvec(filemode, nkpts, nsqa, ndegen, ispincomb, nvect, spinvec, nsym, isym)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	filemode
integer,	intent(in)			::	nkpts
integer,	intent(in)			::	nsqa
integer,	intent(in)			::	ndegen
integer,	intent(in)			::	ispincomb(nsqa)
double precision,	intent(in)			::	nvect(3,nsqa)
double precision,	intent(in)			::	spinvec(3,ndegen,nsqa,nkpts)
integer,	intent(in)			::	nsym
integer,	intent(in)			::	isym(nsym)