A computer program for martensite crystallography