correct_virtualintercell Subroutine

public subroutine correct_virtualintercell(ntotatom, lmaxhost, lmpothost, ach, ratom, isvatom, substract_cmoms)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	ntotatom
integer				::	lmaxhost
integer				::	lmpothost
double precision				::	ach(lmpothost,ntotatom)
double precision				::	ratom(3,ntotatom)
integer				::	isvatom(ntotatom)
integer				::	substract_cmoms(ntotatom,ntotatom)