# C 2 monoclinic space group (special setting)
csym <- cryst_symm(15,set=5)
print(csym$SG)
# Create a full data frame of Miller indices
hkl <- expand.grid(H=-4:4,K=-4:4,L=-4:4)
# Index corresponding to valid reflections
# (not systematic absences)
idx <- sysabs(hkl,csym$SG)
# Indices for all reflections
fulldx <- 1:length(hkl[,1])
# Index corresponding to systematic absences
jdx <- fulldx[-idx]
# A couple of systematic absences
hkl[jdx[1:2],]
Run the code above in your browser using DataLab