Searched defs:Sort_I (Results 1 – 1 of 1) sorted by relevance
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 4612 Subroutine Sort_I(arr,n,indx) subroutine
4614 integer, dimension(:), intent(in ) :: arr
4615 integer , intent(in ) :: n
4616 integer, dimension(:), intent(out) :: indx
4619 integer, parameter :: m=7
4620 integer, parameter :: nstack=50 !nstack=2log2(n)
4621 integer, dimension(nstack) :: istack
4622 integer :: i,indxt,ir,itemp,j,jstack,k,l local
4623 integer :: a local
|