← Back to branch summary

~nickpapior/siesta/low-D-stress

« back to all changes in this revision

Viewing changes to Util/TS/TBtrans/sorted_search.F90

  • Committer: Nick Papior
  • Date: 2019-02-05 06:55:51 UTC
  • Revision ID: nickpapior@gmail.com-20190205065551-nowpwdtzjcj6fdey
Documentation in sorted_search and renamed module

Show diffs side-by-side

added added

removed removed

Lines of Context:
Util/TS/TBtrans/sorted_search.F90
16
16
! values in a sorted array.
17
17
! I.e. we will quite often search the same array for numerous data values
18
18
! either in consecutive order or not.
19
 
module sorted_search_t
 
19
module sorted_search_m
20
20
 
21
21
  use intrinsic_missing, only: SFIND
22
22
  implicit none
31
31
 
32
32
    !< Index where we are to start from
33
33
    integer :: prev = 1
34
 
    !< Index where we are to start from
 
34
    !< Size of array `list`
35
35
    integer :: n = 0
36
36
 
37
37
  end type ssearch_t
74
74
 
75
75
  end function ssearch_find
76
76
 
77
 
end module sorted_search_t
 
77
end module sorted_search_m
78
78