get_lattice Function

public function get_lattice(bravais) result(lattype)

Arguments

Type	Intent	Optional	Attributes		Name
double precision,	intent(in)			::	bravais(3,3)

Return Value character(len=3)