threads.F90

Go to the documentation of this file.

! This file is part of the 'atomes' software.
!
! 'atomes' is free software: you can redistribute it and/or modify it under the terms
! of the GNU Affero General Public License as published by the Free Software Foundation,
! either version 3 of the License, or (at your option) any later version.
!
! 'atomes' is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
! without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
! See the GNU General Public License for more details.
!
! You should have received a copy of the GNU Affero General Public License along with 'atomes'.
! If not, see <https://www.gnu.org/licenses/>
!
! Copyright (C) 2022-2025 by CNRS and University of Strasbourg
!
 
INTEGER FUNCTION get_thread_start (NOBJ, NTHREADS, THREAD_ID)
 
  IMPLICIT NONE
 
  INTEGER, INTENT(IN) :: nobj, nthreads, thread_id
  INTEGER :: tmp
  REAL :: va, vb
 
  va = nobj
  vb = nthreads
  tmp = int(va/vb)
  get_thread_start = tmp * thread_id + 1
 
INTEGER FUNCTION get_thread_start (NOBJ, NTHREADS, THREAD_ID) …
END FUNCTION
 
INTEGER FUNCTION get_thread_end (NOBJ, NTHREADS, THREAD_ID)
 
  IMPLICIT NONE
 
  INTEGER, INTENT(IN) :: nobj, nthreads, thread_id
  INTEGER :: tmp
  REAL :: va, vb
 
  va = nobj
  vb = nthreads
  tmp = int(va/vb)
  if (thread_id .eq. nthreads-1) then
    get_thread_end = nobj
  else
    get_thread_end = tmp * (thread_id+1)
  endif
 
INTEGER FUNCTION get_thread_end (NOBJ, NTHREADS, THREAD_ID) …
END FUNCTION