Home
last modified time | relevance | path

Searched refs:SpaceGroup2 (Results 1 – 1 of 1) sorted by relevance

/dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/
H A Dcif2hkl.F9020810 type (Space_Group_Type), intent(in) :: SpaceGroup1, SpaceGroup2 local
20815 if (SpaceGroup1%multip == 0 .or. SpaceGroup2%multip == 0) return
20816 if (SpaceGroup1%multip /= SpaceGroup2%multip) return
20819 SpaceGroup2%SymopSymb,SpaceGroup2%multip)