translation_in_crystal Subroutine

public subroutine translation_in_crystal(g, x, y, z)

Arguments

Type	Intent	Optional	Attributes		Name
type(grid3d),	intent(in)			::	g
real(kind=long),	intent(inout)			::	x
real(kind=long),	intent(inout)			::	y
real(kind=long),	intent(inout)			::	z