#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include "../util/util.h"

/* bravais_fortran_(): This routine converts array from FORTRAN program
                       to structure for call to bravais
*/

float bravais_fortran_(float *a, struct matrix_3x3 cl_om[45], float crit[45], char sys_id[45])  
{
    int i, output_type;
    struct matrix_3x3 om;           /* Generated orientation matrices */
    om.r[0].x = a[0];
    om.r[0].y = a[1];
    om.r[0].z = a[2];
    om.r[1].x = a[3];
    om.r[1].y = a[4];
    om.r[1].z = a[5];
    om.r[2].x = a[6];
    om.r[2].y = a[7];
    om.r[2].z = a[8];
    output_type = 1;
    bravais(&om,cl_om,crit,sys_id,output_type);
    
}