Searched refs:z_2p (Results 1 – 1 of 1) sorted by relevance
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 21720 integer, dimension(3,3), parameter :: z_2p = reshape( & local
21833 equal_matrix(ss(1:3,1:3,i), z_2p,3).or. equal_matrix(ss(1:3,1:3,i),-z_2p,3).or. &
21918 else if (equal_matrix(ss(1:3,1:3,i),z_2p,3)) then
21944 else if (equal_matrix(ss(1:3,1:3,i),-z_2p,3)) then
24382 integer, dimension(3,3), parameter :: z_2p = reshape( & local
24672 gener(1:3,1:3,ngen)=z_2p*signo
24674 gener(1:3,1:3,ngen)=z_2p*signo
|