Searched defs:Merge_Atoms_Peaks (Results 1 – 1 of 1) sorted by relevance
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 39117 type(Crystal_Cell_Type), intent(in) :: Cell
39118 type(atom_list_type), intent(in) :: Atm
39119 integer, intent(in) :: Npks
39120 real(kind=cp), dimension(:,:), intent(in) :: Pks
39121 type(Space_Group_Type), intent(in) :: Grp
39122 type(atom_list_type), intent(out):: NAtm
39125 character(len=4) :: car
39126 integer :: i,j,k,nc,ntot,ier
39127 integer, dimension(:), allocatable :: np
39128 real(kind=cp) :: dis
[all …]
|