Home
last modified time | relevance | path

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

/dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/
H A Dcif2hkl.F9021383 integer :: nrot_1, nrot_2, nrot_3, nrot_4, nrot_6 local
21389 nrot_4 = 0
21417 nrot_4 =nrot_4 +1
21443 else if ( (nrot_4 + nrot_4b == 2) ) then
22659 integer :: nrot_4, nrot_4b local
22670 nrot_4 = 0
22705 nrot_4 =nrot_4 +1
22715 n_m = nrot_1 + nrot_2 + nrot_3 + nrot_4 + nrot_6 + &
22733 if (nrot_4 == 6) point_car="432"
22867 else if ( (nrot_4 + nrot_4b == 2) ) then
[all …]