Get the lattice parameters into relrod.c

1 files changed, 13 insertions, 0 deletions

diff --git a/src/cell.c b/src/cell.c
index d2495b0f..6fa91cd3 100644
--- a/src/cell.c
+++ b/src/cell.c
@@ -146,3 +146,16 @@ UnitCell *cell_new_from_parameters(double a, double b, double c,
 
 	return cell;
 }
+
+
+void cell_get_cartesian(UnitCell *cell,
+			double *ax, double *ay, double *az,
+			double *bx, double *by, double *bz,
+			double *cx, double *cy, double *cz)
+{
+	if ( !cell ) return;
+
+	*ax = cell->ax;  *ay = cell->ay;  *az = cell->az;
+	*bx = cell->bx;  *by = cell->by;  *bz = cell->bz;
+	*cx = cell->cx;  *cy = cell->cy;  *cz = cell->cz;
+}