adam_memory_gmp_library

ADAM, GMP memory handling library.

Source: src/lib/gmp/adam_memory_gmp_library.F90

Dependencies

Contents

• alloc_var_gpu
• assign_allocatable_gpu
• transpose_a
• alloc_var_gpu_R8P_1D
• alloc_var_gpu_R8P_2D
• alloc_var_gpu_R8P_3D
• alloc_var_gpu_R8P_4D
• alloc_var_gpu_R8P_5D
• alloc_var_gpu_R8P_6D
• alloc_var_gpu_I4P_1D
• alloc_var_gpu_I4P_2D
• alloc_var_gpu_I4P_5D
• alloc_var_gpu_I8P_1D
• alloc_var_gpu_I8P_2D
• alloc_var_gpu_I8P_3D
• assign_allocatable_gpu_R8P_1D
• assign_allocatable_gpu_R8P_2D
• assign_allocatable_gpu_R8P_3D
• assign_allocatable_gpu_R8P_4D
• assign_allocatable_gpu_I4P_1D
• assign_allocatable_gpu_I4P_1D_rhs_allocated
• assign_allocatable_gpu_I4P_5D
• assign_allocatable_gpu_I8P_2D
• assign_allocatable_gpu_I8P_3D
• save_memory_gpu_status
• transpose_a_R8P_2D

Interfaces

alloc_var_gpu

Allocate GPU variable with memory checking.

Module procedures: alloc_var_gpu_R8P_1D, alloc_var_gpu_R8P_2D, alloc_var_gpu_R8P_3D, alloc_var_gpu_R8P_4D, alloc_var_gpu_R8P_5D, alloc_var_gpu_R8P_6D, alloc_var_gpu_I4P_1D, alloc_var_gpu_I4P_2D, alloc_var_gpu_I4P_5D, alloc_var_gpu_I8P_1D, alloc_var_gpu_I8P_2D, alloc_var_gpu_I8P_3D

assign_allocatable_gpu

Assign GPU variable with memory checking.

Module procedures: assign_allocatable_gpu_R8P_1D, assign_allocatable_gpu_R8P_2D, assign_allocatable_gpu_R8P_3D, assign_allocatable_gpu_R8P_4D, assign_allocatable_gpu_I4P_1D, assign_allocatable_gpu_I4P_5D, assign_allocatable_gpu_I8P_2D, assign_allocatable_gpu_I8P_3D

transpose_a

Module procedures: transpose_a_R8P_2D

Subroutines

alloc_var_gpu_R8P_1D

Allocate GPU variable with memory checking (kind R8P, rank 1).

subroutine alloc_var_gpu_R8P_1D(var, ulb, omp_dev, init_val, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
var	real(kind=R8P)	inout	pointer	Varibale to be allocate on GPU.
ulb	integer(kind=I4P)	in		Upper/lower bounds of variable.
omp_dev	integer(kind=I4P)	in		OpenMP device ID.
init_val	real(kind=R8P)	in	optional	Initialization value.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

alloc_var_gpu_R8P_2D

Allocate GPU variable with memory checking (kind R8P, rank 2).

subroutine alloc_var_gpu_R8P_2D(var, ulb, omp_dev, init_val, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
var	real(kind=R8P)	inout	pointer	Varibale to be allocate on GPU.
ulb	integer(kind=I4P)	in		Upper/lower bounds of variable.
omp_dev	integer(kind=I4P)	in		OpenMP device ID.
init_val	real(kind=R8P)	in	optional	Initialization value.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

alloc_var_gpu_R8P_3D

Allocate GPU variable with memory checking (kind R8P, rank 3).

subroutine alloc_var_gpu_R8P_3D(var, ulb, omp_dev, init_val, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
var	real(kind=R8P)	inout	pointer	Varibale to be allocate on GPU.
ulb	integer(kind=I4P)	in		Upper/lower bounds of variable.
omp_dev	integer(kind=I4P)	in		OpenMP device ID.
init_val	real(kind=R8P)	in	optional	Initialization value.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

alloc_var_gpu_R8P_4D

Allocate GPU variable with memory checking (kind R8P, rank 4).

subroutine alloc_var_gpu_R8P_4D(var, ulb, omp_dev, init_val, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
var	real(kind=R8P)	inout	pointer	Varibale to be allocate on GPU.
ulb	integer(kind=I4P)	in		Upper/lower bounds of variable.
omp_dev	integer(kind=I4P)	in		OpenMP device ID.
init_val	real(kind=R8P)	in	optional	Initialization value.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

alloc_var_gpu_R8P_5D

Allocate GPU variable with memory checking (kind R8P, rank 5).

subroutine alloc_var_gpu_R8P_5D(var, ulb, omp_dev, init_val, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
var	real(kind=R8P)	inout	pointer	Varibale to be allocate on GPU.
ulb	integer(kind=I4P)	in		Upper/lower bounds of variable.
omp_dev	integer(kind=I4P)	in		OpenMP device ID.
init_val	real(kind=R8P)	in	optional	Initialization value.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

alloc_var_gpu_R8P_6D

Allocate GPU variable with memory checking (kind R8P, rank 6).

subroutine alloc_var_gpu_R8P_6D(var, ulb, omp_dev, init_val, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
var	real(kind=R8P)	inout	pointer	Varibale to be allocate on GPU.
ulb	integer(kind=I4P)	in		Upper/lower bounds of variable.
omp_dev	integer(kind=I4P)	in		OpenMP device ID.
init_val	real(kind=R8P)	in	optional	Initialization value.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

alloc_var_gpu_I4P_1D

Allocate GPU variable with memory checking (kind I4P, rank 1).

subroutine alloc_var_gpu_I4P_1D(var, ulb, omp_dev, init_val, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
var	integer(kind=I4P)	inout	pointer	Varibale to be allocate on GPU.
ulb	integer(kind=I4P)	in		Upper/lower bounds of variable.
omp_dev	integer(kind=I4P)	in		OpenMP device ID.
init_val	integer(kind=I4P)	in	optional	Initialization value.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

alloc_var_gpu_I4P_2D

Allocate GPU variable with memory checking (kind I4P, rank 2).

subroutine alloc_var_gpu_I4P_2D(var, ulb, omp_dev, init_val, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
var	integer(kind=I4P)	inout	pointer	Varibale to be allocate on GPU.
ulb	integer(kind=I4P)	in		Upper/lower bounds of variable.
omp_dev	integer(kind=I4P)	in		OpenMP device ID.
init_val	integer(kind=I4P)	in	optional	Initialization value.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

alloc_var_gpu_I4P_5D

Allocate GPU variable with memory checking (kind I4P, rank 5).

subroutine alloc_var_gpu_I4P_5D(var, ulb, omp_dev, init_val, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
var	integer(kind=I4P)	inout	pointer	Varibale to be allocate on GPU.
ulb	integer(kind=I4P)	in		Upper/lower bounds of variable.
omp_dev	integer(kind=I4P)	in		OpenMP device ID.
init_val	integer(kind=I4P)	in	optional	Initialization value.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

alloc_var_gpu_I8P_1D

Allocate GPU variable with memory checking (kind I8P, rank 1).

subroutine alloc_var_gpu_I8P_1D(var, ulb, omp_dev, init_val, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
var	integer(kind=I8P)	inout	pointer	Varibale to be allocate on GPU.
ulb	integer(kind=I4P)	in		Upper/lower bounds of variable.
omp_dev	integer(kind=I4P)	in		OpenMP device ID.
init_val	integer(kind=I8P)	in	optional	Initialization value.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

alloc_var_gpu_I8P_2D

Allocate GPU variable with memory checking (kind I8P, rank 2).

subroutine alloc_var_gpu_I8P_2D(var, ulb, omp_dev, init_val, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
var	integer(kind=I8P)	inout	pointer	Varibale to be allocate on GPU.
ulb	integer(kind=I4P)	in		Upper/lower bounds of variable.
omp_dev	integer(kind=I4P)	in		OpenMP device ID.
init_val	integer(kind=I8P)	in	optional	Initialization value.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

alloc_var_gpu_I8P_3D

Allocate GPU variable with memory checking (kind I8P, rank 2).

subroutine alloc_var_gpu_I8P_3D(var, ulb, omp_dev, init_val, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
var	integer(kind=I8P)	inout	pointer	Varibale to be allocate on GPU.
ulb	integer(kind=I4P)	in		Upper/lower bounds of variable.
omp_dev	integer(kind=I4P)	in		OpenMP device ID.
init_val	integer(kind=I8P)	in	optional	Initialization value.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

assign_allocatable_gpu_R8P_1D

Assign GPU variable with memory checking (kind R8P, rank 1). Variable is returned not allocated if right hand side is not allocated.

subroutine assign_allocatable_gpu_R8P_1D(lhs, rhs, omp_dev, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
lhs	real(kind=R8P)	inout	pointer	Left hand side of assignement.
rhs	real(kind=R8P)	in	allocatable, target	Right hand side of assignement.
omp_dev	integer(kind=I4P)	in		Flag to activate verbose mode.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

assign_allocatable_gpu_R8P_2D

Assign GPU variable with memory checking (kind R8P, rank 2). Variable is returned not allocated if right hand side is not allocated.

subroutine assign_allocatable_gpu_R8P_2D(lhs, rhs, omp_dev, transposed, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
lhs	real(kind=R8P)	inout	pointer	Left hand side of assignement.
rhs	real(kind=R8P)	in	allocatable, target	Right hand side of assignement.
omp_dev	integer(kind=I4P)	in		Flag to activate verbose mode.
transposed	logical	in	optional	Assign trasposed rhs.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

assign_allocatable_gpu_R8P_3D

Assign GPU variable with memory checking (kind R8P, rank 3). Variable is returned not allocated if right hand side is not allocated.

subroutine assign_allocatable_gpu_R8P_3D(lhs, rhs, omp_dev, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
lhs	real(kind=R8P)	inout	pointer	Left hand side of assignement.
rhs	real(kind=R8P)	in	allocatable, target	Right hand side of assignement.
omp_dev	integer(kind=I4P)	in		Flag to activate verbose mode.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

assign_allocatable_gpu_R8P_4D

Assign GPU variable with memory checking (kind R8P, rank 4). Variable is returned not allocated if right hand side is not allocated.

subroutine assign_allocatable_gpu_R8P_4D(lhs, rhs, omp_dev, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
lhs	real(kind=R8P)	inout	pointer	Left hand side of assignement.
rhs	real(kind=R8P)	in	allocatable, target	Right hand side of assignement.
omp_dev	integer(kind=I4P)	in		Flag to activate verbose mode.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

assign_allocatable_gpu_I4P_1D

Assign GPU variable with memory checking (kind I4P, rank 1). Variable is returned not allocated if right hand side is not allocated.

subroutine assign_allocatable_gpu_I4P_1D(lhs, rhs, omp_dev, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
lhs	integer(kind=I4P)	inout	pointer	Left hand side of assignement.
rhs	integer(kind=I4P)	in	allocatable, target	Right hand side of assignement.
omp_dev	integer(kind=I4P)	in		Flag to activate verbose mode.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

assign_allocatable_gpu_I4P_1D_rhs_allocated

Assign GPU variable with memory checking (kind I4P, rank 1). Variable is returned not allocated if right hand side is not allocated.

subroutine assign_allocatable_gpu_I4P_1D_rhs_allocated(lhs, rhsa, omp_dev, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
lhs	integer(kind=I4P)	inout	pointer	Left hand side of assignement.
rhsa	integer(kind=I4P)	in	target	Right hand side of assignement.
omp_dev	integer(kind=I4P)	in		Flag to activate verbose mode.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

assign_allocatable_gpu_I4P_5D

Assign GPU variable with memory checking (kind I4P, rank 5). Variable is returned not allocated if right hand side is not allocated.

subroutine assign_allocatable_gpu_I4P_5D(lhs, rhs, omp_dev, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
lhs	integer(kind=I4P)	inout	pointer	Left hand side of assignement.
rhs	integer(kind=I4P)	in	allocatable, target	Right hand side of assignement.
omp_dev	integer(kind=I4P)	in		Flag to activate verbose mode.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

assign_allocatable_gpu_I8P_2D

Assign GPU variable with memory checking (kind I8P, rank 2). Variable is returned not allocated if right hand side is not allocated.

subroutine assign_allocatable_gpu_I8P_2D(lhs, rhs, omp_dev, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
lhs	integer(kind=I8P)	inout	pointer	Left hand side of assignement.
rhs	integer(kind=I8P)	in	allocatable, target	Right hand side of assignement.
omp_dev	integer(kind=I4P)	in		Flag to activate verbose mode.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

assign_allocatable_gpu_I8P_3D

Assign GPU variable with memory checking (kind I8P, rank 3). Variable is returned not allocated if right hand side is not allocated.

subroutine assign_allocatable_gpu_I8P_3D(lhs, rhs, omp_dev, msg, verbose)

Arguments

Name	Type	Intent	Attributes	Description
lhs	integer(kind=I8P)	inout	pointer	Left hand side of assignement.
rhs	integer(kind=I8P)	in	allocatable, target	Right hand side of assignement.
omp_dev	integer(kind=I4P)	in		Flag to activate verbose mode.
msg	character(len=*)	in	optional	Message to be printed in verbose mode.
verbose	logical	in	optional	Flag to activate verbose mode.

Call graph

save_memory_gpu_status

Save the current GPU-memory status into a file. File is accessed in append position.

subroutine save_memory_gpu_status(file_name, tag)

Arguments

Name	Type	Intent	Attributes	Description
file_name	character(len=*)	in		File name.
tag	character(len=*)	in	optional	Tag of current status.

Call graph

transpose_a_R8P_2D

Transpose array (kind R8P, rank 2).

subroutine transpose_a_R8P_2D(ii, jj, a, t)

Arguments

Name	Type	Intent	Attributes	Description
ii	integer(kind=I4P)	in		Array bounds.
jj	integer(kind=I4P)	in		Array bounds.
a	real(kind=R8P)	in		Input array.
t	real(kind=R8P)	out		Transposed array.