save_bconstr Subroutine

public subroutine save_bconstr(natyp, bconstr_in, bconstr_out)

the file has the format: bz by bz (in Ry), mspin (in muB)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	natyp
real(kind=dp),	intent(in),		dimension(4,natyp)	::	bconstr_in	bx, by, bz, mspin
real(kind=dp),	intent(inout),		dimension(natyp,3)	::	bconstr_out	bx, by, bz