MODgvec_cla Module

Uses

- MODgvec_cla_kinds
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=int_kind),	public,	parameter	::	cla_int	=	1
integer(kind=int_kind),	public,	parameter	::	cla_float	=	2
integer(kind=int_kind),	public,	parameter	::	cla_char	=	3
integer(kind=int_kind),	public,	parameter	::	cla_xchar	=	4
integer(kind=int_kind),	public,	parameter	::	cla_logical	=	5
integer(kind=int_kind),	public,	parameter	::	cla_flag	=	6
integer(kind=int_kind),	private,	parameter	::	CLALEN	=	1024
character(len=CLALEN),	private		::	cla_cla
integer(kind=int_kind),	private		::	cla_cla_len
character(len=STRLEN),	public,	dimension(6)	::	cla_kindstr
character(len=STRLEN),	private		::	cla_empty
character(len=STRLEN),	public,	dimension(6)	::	cla_true_str
type(cla_t),	private,	dimension(:), pointer	::	cla_registry
type(cla_posarg_t),	private,	dimension(:), pointer	::	cla_posarg_registry
integer(kind=int_kind),	private		::	cla_num
integer(kind=int_kind),	private		::	cla_posarg_num

Interfaces

public interface cla_init

public subroutine cla_init_default()

Arguments
None

public subroutine cla_init_str(cla_input_str)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	cla_input_str

public interface cla_get

public subroutine cla_get_float_r4(key, float_value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
real(kind=4)				::	float_value

public subroutine cla_get_float_r8(key, float_value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
real(kind=8)				::	float_value

public subroutine cla_get_int_i4(key, int_value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
integer(kind=4)				::	int_value

public subroutine cla_get_int_i8(key, int_value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
integer(kind=8)				::	int_value

public subroutine cla_get_char(key, value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
character(len=STRLEN)				::	value

public subroutine cla_get_logical(key, logical_value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
logical				::	logical_value

Derived Types

type, private :: cla_t

Components

Type	Visibility	Attributes		Name		Initial
character(len=2),	public		::	key
character(len=STRLEN),	public		::	longkey
character(len=XSTRLEN),	public		::	description
integer(kind=int_kind),	public		::	kind
character(len=STRLEN),	public		::	default

type, private :: cla_posarg_t

Components

Type	Visibility	Attributes		Name		Initial
character(len=STRLEN),	public		::	key
character(len=XSTRLEN),	public		::	description
integer(kind=int_kind),	public		::	kind
character(len=STRLEN),	public		::	default

Functions

public function cla_command_argument_count()

Arguments

None

Return Value integer

public function cla_eq(str1, str2)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	str1
character(len=*)				::	str2

Return Value integer

public function cla_key_arg_match(key, longkey, arg)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
character(len=*)				::	longkey
character(len=*)				::	arg

Return Value logical

public function cla_str_eq(str1, str2)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	str1
character(len=*)				::	str2

Return Value logical

public function cla_key_present(key)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key

Return Value logical

Subroutines

public subroutine cla_get_command_argument(i, arg)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	i
character(len=*)				::	arg

public subroutine cla_message(message)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	message

public subroutine cla_fatal(message)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	message

public subroutine cla_read_str(cla_input_str)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	cla_input_str

public subroutine cla_init_str(cla_input_str)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	cla_input_str

public subroutine cla_init_default()

Arguments

None

public subroutine cla_posarg_register(key, description, kkind, default)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
character(len=*)				::	description
integer(kind=int_kind)				::	kkind
character(len=*)				::	default

public subroutine cla_register(key, longkey, description, kkind, default)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=2)				::	key
character(len=*)				::	longkey
character(len=*)				::	description
integer(kind=int_kind)				::	kkind
character(len=*)				::	default

public subroutine cla_show()

Arguments

None

public subroutine cla_help(cmd_name)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	cmd_name

public subroutine cla_validate(cmd_name)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	cmd_name

public subroutine cla_validate_info(cmd_name, info)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	cmd_name
logical				::	info

public subroutine cla_get_char(key, value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
character(len=STRLEN)				::	value

public subroutine cla_get_float_r4(key, float_value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
real(kind=4)				::	float_value

public subroutine cla_get_float_r8(key, float_value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
real(kind=8)				::	float_value

public subroutine cla_get_int_i4(key, int_value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
integer(kind=4)				::	int_value

public subroutine cla_get_int_i8(key, int_value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
integer(kind=8)				::	int_value

public subroutine cla_get_logical(key, logical_value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
logical				::	logical_value

public subroutine cla_get_flag(key, logical_value)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	key
logical				::	logical_value