Differential D55148 Diff 178147 runtime/src/include/50/omp_lib.f90.var

Changeset View

Standalone View

runtime/src/include/50/omp_lib.f90.var

Show First 20 Lines • Show All 385 Lines • ▼ Show 20 Lines	!DIR$ ENDIF
integer (kind=omp_allocator_kind), value :: svar		integer (kind=omp_allocator_kind), value :: svar
end subroutine omp_set_default_allocator		end subroutine omp_set_default_allocator

function omp_get_default_allocator() bind(c)		function omp_get_default_allocator() bind(c)
use omp_lib_kinds		use omp_lib_kinds
integer (kind=omp_allocator_kind) omp_get_default_allocator		integer (kind=omp_allocator_kind) omp_get_default_allocator
end function omp_get_default_allocator		end function omp_get_default_allocator

		subroutine omp_set_affinity_format(format)
		character (len=*) :: format
		end subroutine omp_set_affinity_format

		function omp_get_affinity_format(buffer)
		use omp_lib_kinds
		character (len=*) :: buffer
		integer (kind=kmp_size_t_kind) :: omp_get_affinity_format
		end function omp_get_affinity_format

		subroutine omp_display_affinity(format)
		character (len=*) :: format
		end subroutine omp_display_affinity

		function omp_capture_affinity(buffer, format)
		use omp_lib_kinds
		character (len=*) :: format
		character (len=*) :: buffer
		integer (kind=kmp_size_t_kind) :: omp_capture_affinity
		end function omp_capture_affinity

! ***		! ***
! *** kmp_* entry points		! *** kmp_* entry points
! ***		! ***

subroutine kmp_set_stacksize(size) bind(c)		subroutine kmp_set_stacksize(size) bind(c)
use omp_lib_kinds		use omp_lib_kinds
integer (kind=omp_integer_kind), value :: size		integer (kind=omp_integer_kind), value :: size
end subroutine kmp_set_stacksize		end subroutine kmp_set_stacksize
▲ Show 20 Lines • Show All 170 Lines • Show Last 20 Lines