get_num_threads.F90

Go to the documentation of this file.

FUNCTION get_num_threads() RESULT(INUMT)
USE parkind1  ,ONLY : jpim
USE oml_mod, ONLY : oml_num_threads
IMPLICIT NONE
INTEGER(KIND=JPIM) :: INUMT
inumt = 1
!$ inumt = OML_NUM_THREADS()
END FUNCTION get_num_threads