xmolecule_get_geom Subroutine

public subroutine xmolecule_get_geom(xdata_cptr, geom, l_geom) bind(c)

returns geometry

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),	intent(inout)			::	xdata_cptr
real(kind=c_double),	intent(inout)			::	geom(3,l_geom)
integer(kind=c_int),	intent(inout)			::	l_geom