utils – FEST-3D

Utility module to allocate, deallocate and debug message

Interfaces

alloc

Subroutines

alloc_rank1_real alloc_rank2_real alloc_rank3_real alloc_rank4_real alloc_rank5_real alloc_rank6_real alloc_rank1_integer alloc_rank2_integer alloc_rank3_integer

Interfaces

public interface alloc

private subroutine alloc_rank1_real(var, start1, stop1, errmsg)

Allcoate 1-Dimensional array of type: real

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank2_real(var, start1, stop1, start2, stop2, errmsg)

Allcoate 2-Dimensional array of type: real

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:, :), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank3_real(var, start1, stop1, start2, stop2, start3, stop3, errmsg)

Allcoate 3-Dimensional array of type: real

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:, :, :), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
integer,	intent(in)			::	start3	Starting index of Var array's dimension
integer,	intent(in)			::	stop3	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank4_real(var, start1, stop1, start2, stop2, start3, stop3, start4, stop4, errmsg)

Allcoate 4-Dimensional array of type: real

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:, :, :, :), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
integer,	intent(in)			::	start3	Starting index of Var array's dimension
integer,	intent(in)			::	stop3	Last index of Var array's dimension
integer,	intent(in)			::	start4	Starting index of Var array's dimension
integer,	intent(in)			::	stop4	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank5_real(var, start1, stop1, start2, stop2, start3, stop3, start4, stop4, start5, stop5, errmsg)

Allcoate 5-Dimensional array of type: real

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:, :, :, :, :), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
integer,	intent(in)			::	start3	Starting index of Var array's dimension
integer,	intent(in)			::	stop3	Last index of Var array's dimension
integer,	intent(in)			::	start4	Starting index of Var array's dimension
integer,	intent(in)			::	stop4	Last index of Var array's dimension
integer,	intent(in)			::	start5	Starting index of Var array's dimension
integer,	intent(in)			::	stop5	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank6_real(var, start1, stop1, start2, stop2, start3, stop3, start4, stop4, start5, stop5, start6, stop6, errmsg)

Allcoate 6-Dimensional array of type: real

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:, :, :, :, :,:), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
integer,	intent(in)			::	start3	Starting index of Var array's dimension
integer,	intent(in)			::	stop3	Last index of Var array's dimension
integer,	intent(in)			::	start4	Starting index of Var array's dimension
integer,	intent(in)			::	stop4	Last index of Var array's dimension
integer,	intent(in)			::	start5	Starting index of Var array's dimension
integer,	intent(in)			::	stop5	Last index of Var array's dimension
integer,	intent(in)			::	start6	Starting index of Var array's dimension
integer,	intent(in)			::	stop6	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank1_integer(var, start1, stop1, errmsg)

Allcoate 1-Dimensional array of type: integer

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank2_integer(var, start1, stop1, start2, stop2, errmsg)

Allcoate 2-Dimensional array of type: integer

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:, :), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank3_integer(var, start1, stop1, start2, stop2, start3, stop3, errmsg)

Allcoate 3-Dimensional array of type: integer

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:, :, :), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
integer,	intent(in)			::	start3	Starting index of Var array's dimension
integer,	intent(in)			::	stop3	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

Subroutines

private subroutine alloc_rank1_real(var, start1, stop1, errmsg)

Allcoate 1-Dimensional array of type: real

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank2_real(var, start1, stop1, start2, stop2, errmsg)

Allcoate 2-Dimensional array of type: real

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:, :), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank3_real(var, start1, stop1, start2, stop2, start3, stop3, errmsg)

Allcoate 3-Dimensional array of type: real

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:, :, :), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
integer,	intent(in)			::	start3	Starting index of Var array's dimension
integer,	intent(in)			::	stop3	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank4_real(var, start1, stop1, start2, stop2, start3, stop3, start4, stop4, errmsg)

Allcoate 4-Dimensional array of type: real

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:, :, :, :), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
integer,	intent(in)			::	start3	Starting index of Var array's dimension
integer,	intent(in)			::	stop3	Last index of Var array's dimension
integer,	intent(in)			::	start4	Starting index of Var array's dimension
integer,	intent(in)			::	stop4	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank5_real(var, start1, stop1, start2, stop2, start3, stop3, start4, stop4, start5, stop5, errmsg)

Allcoate 5-Dimensional array of type: real

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:, :, :, :, :), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
integer,	intent(in)			::	start3	Starting index of Var array's dimension
integer,	intent(in)			::	stop3	Last index of Var array's dimension
integer,	intent(in)			::	start4	Starting index of Var array's dimension
integer,	intent(in)			::	stop4	Last index of Var array's dimension
integer,	intent(in)			::	start5	Starting index of Var array's dimension
integer,	intent(in)			::	stop5	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank6_real(var, start1, stop1, start2, stop2, start3, stop3, start4, stop4, start5, stop5, start6, stop6, errmsg)

Allcoate 6-Dimensional array of type: real

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:, :, :, :, :,:), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
integer,	intent(in)			::	start3	Starting index of Var array's dimension
integer,	intent(in)			::	stop3	Last index of Var array's dimension
integer,	intent(in)			::	start4	Starting index of Var array's dimension
integer,	intent(in)			::	stop4	Last index of Var array's dimension
integer,	intent(in)			::	start5	Starting index of Var array's dimension
integer,	intent(in)			::	stop5	Last index of Var array's dimension
integer,	intent(in)			::	start6	Starting index of Var array's dimension
integer,	intent(in)			::	stop6	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank1_integer(var, start1, stop1, errmsg)

Allcoate 1-Dimensional array of type: integer

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank2_integer(var, start1, stop1, start2, stop2, errmsg)

Allcoate 2-Dimensional array of type: integer

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:, :), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

private subroutine alloc_rank3_integer(var, start1, stop1, start2, stop2, start3, stop3, errmsg)

Allcoate 3-Dimensional array of type: integer

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:, :, :), allocatable	::	var	Variable to which memory is allocated
integer,	intent(in)			::	start1	Starting index of Var array's dimension
integer,	intent(in)			::	stop1	Last index of Var array's dimension
integer,	intent(in)			::	start2	Starting index of Var array's dimension
integer,	intent(in)			::	stop2	Last index of Var array's dimension
integer,	intent(in)			::	start3	Starting index of Var array's dimension
integer,	intent(in)			::	stop3	Last index of Var array's dimension
character(len=*),	intent(in),	optional		::	errmsg	Error message to print if mem_stat is not 0(successful)

utils Module

Contents

Interfaces

Subroutines

Used by

Contents

Interfaces

Subroutines

Interfaces

public interface alloc

private subroutine alloc_rank1_real(var, start1, stop1, errmsg)

Arguments

private subroutine alloc_rank2_real(var, start1, stop1, start2, stop2, errmsg)

Arguments

private subroutine alloc_rank3_real(var, start1, stop1, start2, stop2, start3, stop3, errmsg)

Arguments

private subroutine alloc_rank4_real(var, start1, stop1, start2, stop2, start3, stop3, start4, stop4, errmsg)

Arguments

private subroutine alloc_rank5_real(var, start1, stop1, start2, stop2, start3, stop3, start4, stop4, start5, stop5, errmsg)

Arguments

private subroutine alloc_rank6_real(var, start1, stop1, start2, stop2, start3, stop3, start4, stop4, start5, stop5, start6, stop6, errmsg)

Arguments

private subroutine alloc_rank1_integer(var, start1, stop1, errmsg)

Arguments

private subroutine alloc_rank2_integer(var, start1, stop1, start2, stop2, errmsg)

Arguments

private subroutine alloc_rank3_integer(var, start1, stop1, start2, stop2, start3, stop3, errmsg)

Arguments

Subroutines

private subroutine alloc_rank1_real(var, start1, stop1, errmsg)

Arguments

private subroutine alloc_rank2_real(var, start1, stop1, start2, stop2, errmsg)

Arguments

private subroutine alloc_rank3_real(var, start1, stop1, start2, stop2, start3, stop3, errmsg)

Arguments

private subroutine alloc_rank4_real(var, start1, stop1, start2, stop2, start3, stop3, start4, stop4, errmsg)

Arguments

private subroutine alloc_rank5_real(var, start1, stop1, start2, stop2, start3, stop3, start4, stop4, start5, stop5, errmsg)

Arguments

private subroutine alloc_rank6_real(var, start1, stop1, start2, stop2, start3, stop3, start4, stop4, start5, stop5, start6, stop6, errmsg)

Arguments

private subroutine alloc_rank1_integer(var, start1, stop1, errmsg)

Arguments

private subroutine alloc_rank2_integer(var, start1, stop1, start2, stop2, errmsg)

Arguments

private subroutine alloc_rank3_integer(var, start1, stop1, start2, stop2, start3, stop3, errmsg)

Arguments