56   integer, intent(in) :: NVAL  local
57   DTYPE, intent(in) :: AA(NVAL)
58   integer, intent(inout) :: ord(NVAL)
60   integer, intent(in) :: GK(NVAL)
68   do ii = 2, NVAL
85   integer, intent(in) :: NVAL  local
86   DTYPE, intent(in) :: AA(NVAL)
87   integer, intent(out) :: ord(NVAL)
88   integer, intent(in) :: gvec(3,NVAL) !< (3, N) G-vectors, used to break tie for equal data
90   integer :: GK(NVAL)
94   call get_GK_array_from_gvecs(NVAL, gvec, GK)
95   call LABEL_GK(NVAL, AA, ord, GK)
111   integer, intent(in) :: NVAL  local
112   DTYPE, intent(in) :: AA(NVAL)
113   integer, intent(out) :: ord(NVAL)
115   integer, intent(in) :: GK(NVAL)
121   integer :: JT(NVAL)
129   Do IIND = 2, NVAL, 2
140   If (Modulo(NVAL, 2) /= 0) Then
141     ord (NVAL) = NVAL
145   if (NVAL<16) then
146     call LABEL_INSERTSORT(NVAL, AA, ord&
164     If (NVAL <= 2) Exit
168     Do ID = 0, NVAL - 1, 4
169       If ((ID+4) > NVAL) Then
170         If ((ID+2) >= NVAL) Exit
261     If (LMTNA >= NVAL) Exit
272       If (IWRKF >= NVAL) Then
273         If (JINDA >= NVAL) Exit
274         IWRKF = NVAL
329   integer, intent(in) :: NVAL  local
330   DTYPE, intent(in) :: AA(NVAL)
331   integer, intent(out) :: ord(NVAL)
332   integer, intent(in) :: gvec(3,NVAL) !< (3, N) G-vectors, used to break tie for equal data
334   integer :: GK(NVAL)
338   call get_GK_array_from_gvecs(NVAL, gvec, GK)
339   call LABEL_THREADED_GK(NVAL, AA, ord, GK)
355   integer, intent(in) :: NVAL  local
356   DTYPE, intent(in) :: AA(NVAL)
357   integer, intent(out) :: ord(NVAL)
359   integer, intent(in) :: GK(NVAL)
376   if (nthreads==1.or.NVAL<nthreads*100) then
377     call LABEL_GK(NVAL, AA, ord&
389   chunk = NVAL / nthreads
399     to = min((thread+1) * chunk, NVAL)
418   do while (chunk2 < NVAL)
419     lim = DIVUP(NVAL, 2*chunk2)
423       middle = min((thread*2+1) * chunk2, NVAL)
424       to = min((thread*2+2) * chunk2, NVAL)
426         call LABEL_THREADED_MERGE(NVAL, AA, ord, &
452   integer, intent(in) :: NVAL  local
453   DTYPE, intent(in) :: AA(NVAL)
454   integer, intent(inout) :: ord(NVAL)
456   integer, intent(in) :: GK(NVAL)