IR_VTK – MUSST

The following are the portable kind parameters available.

Real precision definitions:

strz overloading ctoi overloading

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. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Variables

R16P R8P R4P R_P I8P I4P I2P I1P I_P FR16P FR8P FR4P FR_P DR16P DR8P DR4P DR_P MinR16P MaxR16P MinR8P MaxR8P MinR4P MaxR4P MinR_P MaxR_P FI8P FI8PZP FI4P FI4PZP FI2P FI2PZP FI1P FI1PZP FI_P FI_PZP DI8P DI4P DI2P DI1P DI_P MinI8P MaxI8P MinI4P MaxI4P MinI2P MaxI2P MinI1P MaxI1P MinI_P MaxI_P ZeroR16 ZeroR8 ZeroR4 ZeroR8 ZeroR4 Zero

Interfaces

str strz cton

Functions

str_R16P str_R8P str_R4P str_I8P str_I4P str_I2P str_I1P strz_I8P strz_I4P strz_I2P strz_I1P ctor_R16P ctor_R8P ctor_R4P ctoi_I8P ctoi_I4P ctoi_I2P ctoi_I1P

Subroutines

IR_Print

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	R16P	=	selected_real_kind(33, 4931)
integer,	public,	parameter	::	R8P	=	selected_real_kind(15, 307)
integer,	public,	parameter	::	R4P	=	selected_real_kind(6, 37)
integer,	public,	parameter	::	R_P	=	R8P	Integer precision definitions:
integer,	public,	parameter	::	I8P	=	selected_int_kind(18)
integer,	public,	parameter	::	I4P	=	selected_int_kind(9)
integer,	public,	parameter	::	I2P	=	selected_int_kind(4)
integer,	public,	parameter	::	I1P	=	selected_int_kind(2)
integer,	public,	parameter	::	I_P	=	I4P	Besides the kind parameters there are also the format parameters useful for writing in a well-ascii-format numeric variables. Real output formats:
character(len=10),	public,	parameter	::	FR16P	=	'(E42.33E4)'
character(len=10),	public,	parameter	::	FR8P	=	'(E23.15E3)'
character(len=9),	public,	parameter	::	FR4P	=	'(E13.6E2)'
character(len=10),	public,	parameter	::	FR_P	=	FR8P	Real number of digits of output formats:
integer,	public,	parameter	::	DR16P	=	42
integer,	public,	parameter	::	DR8P	=	23
integer,	public,	parameter	::	DR4P	=	13
integer,	public,	parameter	::	DR_P	=	DR8P	Real min and max values:
real(kind=R16P),	public,	parameter	::	MinR16P	=	-huge(1._R16P)
real(kind=R16P),	public,	parameter	::	MaxR16P	=	huge(1._R16P)
real(kind=R8P),	public,	parameter	::	MinR8P	=	-huge(1._R8P)
real(kind=R8P),	public,	parameter	::	MaxR8P	=	huge(1._R8P)
real(kind=R4P),	public,	parameter	::	MinR4P	=	-huge(1._R4P)
real(kind=R4P),	public,	parameter	::	MaxR4P	=	huge(1._R4P)
real(kind=R_P),	public,	parameter	::	MinR_P	=	MinR8P	Integer output formats:
real(kind=R_P),	public,	parameter	::	MaxR_P	=	MaxR8P	Integer output formats:
character(len=5),	public,	parameter	::	FI8P	=	'(I20)'
character(len=8),	private,	parameter	::	FI8PZP	=	'(I20.19)'
character(len=5),	public,	parameter	::	FI4P	=	'(I11)'
character(len=8),	private,	parameter	::	FI4PZP	=	'(I11.10)'
character(len=4),	public,	parameter	::	FI2P	=	'(I6)'
character(len=6),	private,	parameter	::	FI2PZP	=	'(I6.5)'
character(len=4),	public,	parameter	::	FI1P	=	'(I4)'
character(len=6),	private,	parameter	::	FI1PZP	=	'(I4.3)'
character(len=5),	public,	parameter	::	FI_P	=	FI4P
character(len=8),	private,	parameter	::	FI_PZP	=	FI4PZP	Integer number of digits of output formats:
integer,	public,	parameter	::	DI8P	=	20
integer,	public,	parameter	::	DI4P	=	11
integer,	public,	parameter	::	DI2P	=	6
integer,	public,	parameter	::	DI1P	=	4
integer,	public,	parameter	::	DI_P	=	DI4P	Integer min and max values:
integer(kind=I8P),	public,	parameter	::	MinI8P	=	-huge(1_I8P)-1_I8P
integer(kind=I8P),	public,	parameter	::	MaxI8P	=	huge(1_I8P)
integer(kind=I4P),	public,	parameter	::	MinI4P	=	-huge(1_I4P)-1_I4P
integer(kind=I4P),	public,	parameter	::	MaxI4P	=	huge(1_I4P)
integer(kind=I2P),	public,	parameter	::	MinI2P	=	-huge(1_I2P)-1_I2P
integer(kind=I2P),	public,	parameter	::	MaxI2P	=	huge(1_I2P)
integer(kind=I2P),	public,	parameter	::	MinI1P	=	-huge(1_I1P)-1_I1P
integer(kind=I2P),	public,	parameter	::	MaxI1P	=	huge(1_I1P)
integer(kind=I_P),	public,	parameter	::	MinI_P	=	MinI4P	IR_Precision module provides some global variables in order to store the smallest real evaluable by the running calculator.
integer(kind=I_P),	public,	parameter	::	MaxI_P	=	MaxI4P	IR_Precision module provides some global variables in order to store the smallest real evaluable by the running calculator.
real(kind=R16P),	public,	parameter	::	ZeroR16	=	nearest(1._R16P, 1._R16P)-nearest(1._R16P, -1._R16P)
real(kind=R8P),	public,	parameter	::	ZeroR8	=	0._R8P
real(kind=R4P),	public,	parameter	::	ZeroR4	=	0._R4P
real(kind=R8P),	private,	parameter	::	ZeroR8	=	nearest(1._R8P, 1._R8P)-nearest(1._R8P, -1._R8P)
real(kind=R4P),	private,	parameter	::	ZeroR4	=	nearest(1._R4P, 1._R4P)-nearest(1._R4P, -1._R4P)
real(kind=R_P),	public,	parameter	::	Zero	=	ZeroR8	str overloading

Interfaces

public interface str

private elemental function str_R16P(no_sign, n) result(str)

The function str_R16P converts real to string. This function achieves casting of real to string.

Arguments

Type Intent Optional Attributes Name

logical, intent(in), optional :: no_sign

real(kind=R16P), intent(in) :: n

Return Value character(len=DR16P)
private elemental function str_R8P(no_sign, n) result(str)

The function str_R8P converts real to string. This function achieves casting of real to string.

Arguments

Type Intent Optional Attributes Name

logical, intent(in), optional :: no_sign

real(kind=R8P), intent(in) :: n

Return Value character(len=DR8P)
private elemental function str_R4P(no_sign, n) result(str)

The function str_R4P converts real to string. This function achieves casting of real to string.

Arguments

Type Intent Optional Attributes Name

logical, intent(in), optional :: no_sign

real(kind=R4P), intent(in) :: n

Return Value character(len=DR4P)
private elemental function str_I8P(no_sign, n) result(str)

The function str_I8P converts integer to string. This function achieves casting of integer to string.

Arguments

Type Intent Optional Attributes Name

logical, intent(in), optional :: no_sign

integer(kind=I8P), intent(in) :: n

Return Value character(len=DI8P)
private elemental function str_I4P(no_sign, n) result(str)

The function str_I4P converts integer to string. This function achieves casting of integer to string.

Arguments

Type Intent Optional Attributes Name

logical, intent(in), optional :: no_sign

integer(kind=I4P), intent(in) :: n

Return Value character(len=DI4P)
private elemental function str_I2P(no_sign, n) result(str)

The function str_I2P converts integer to string. This function achieves casting of integer to string.

Arguments

Type Intent Optional Attributes Name

logical, intent(in), optional :: no_sign

integer(kind=I2P), intent(in) :: n

Return Value character(len=DI2P)
private elemental function str_I1P(no_sign, n) result(str)

The function str_I1P converts integer to string. This function achieves casting of integer to string.

Arguments

Type Intent Optional Attributes Name

logical, intent(in), optional :: no_sign

integer(kind=I1P), intent(in) :: n

Return Value character(len=DI1P)

public interface strz

private elemental function strz_I8P(nz_pad, n) result(str)

The function strz_I8P converts integer to string, prefixing with the right number of zeros. This function achieves casting of integer to string.

Arguments

Type Intent Optional Attributes Name

integer(kind=I4P), intent(in), optional :: nz_pad

integer(kind=I8P), intent(in) :: n

Return Value character(len=DI8P)
private elemental function strz_I4P(nz_pad, n) result(str)

The function strz_I4P converts integer to string, prefixing with the right number of zeros. This function achieves casting of integer to string.

Arguments

Type Intent Optional Attributes Name

integer(kind=I4P), intent(in), optional :: nz_pad

integer(kind=I4P), intent(in) :: n

Return Value character(len=DI4P)
private elemental function strz_I2P(nz_pad, n) result(str)

The function strz_I2P converts integer to string, prefixing with the right number of zeros. This function achieves casting of integer to string.

Arguments

Type Intent Optional Attributes Name

integer(kind=I4P), intent(in), optional :: nz_pad

integer(kind=I2P), intent(in) :: n

Return Value character(len=DI2P)
private elemental function strz_I1P(nz_pad, n) result(str)

The function strz_I1P converts integer to string, prefixing with the right number of zeros. This function achieves casting of integer to string.

Arguments

Type Intent Optional Attributes Name

integer(kind=I4P), intent(in), optional :: nz_pad

integer(kind=I1P), intent(in) :: n

Return Value character(len=DI1P)

public interface cton

private function ctor_R16P(str, knd) result(n)

The function ctor_R16P converts string to real. This function achieves casting of string to real.

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: str

real(kind=R16P), intent(in) :: knd

Return Value real(kind=R16P)
private function ctor_R8P(str, knd) result(n)

The function ctor_R8P converts string to real. This function achieves casting of string to real.

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: str

real(kind=R8P), intent(in) :: knd

Return Value real(kind=R8P)
private function ctor_R4P(str, knd) result(n)

The function ctor_R4P converts string to real. This function achieves casting of string to real.

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: str

real(kind=R4P), intent(in) :: knd

Return Value real(kind=R4P)
private function ctoi_I8P(str, knd) result(n)

The function ctoi_I8P converts string to integer. This function achieves casting of string to integer.

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: str

integer(kind=I8P), intent(in) :: knd

Return Value integer(kind=I8P)
private function ctoi_I4P(str, knd) result(n)

The function ctoi_I4P converts string to integer. This function achieves casting of string to integer.

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: str

integer(kind=I4P), intent(in) :: knd

Return Value integer(kind=I4P)
private function ctoi_I2P(str, knd) result(n)

The function ctoi_I2P converts string to integer. This function achieves casting of string to integer.

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: str

integer(kind=I2P), intent(in) :: knd

Return Value integer(kind=I2P)
private function ctoi_I1P(str, knd) result(n)

The function ctoi_I1P converts string to integer. This function achieves casting of string to integer.

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: str

integer(kind=I1P), intent(in) :: knd

Return Value integer(kind=I1P)

Functions

private elemental function str_R16P(no_sign, n) result(str)

The function str_R16P converts real to string. This function achieves casting of real to string.

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in),	optional		::	no_sign
real(kind=R16P),	intent(in)			::	n

Return Value character(len=DR16P)

private elemental function str_R8P(no_sign, n) result(str)

The function str_R8P converts real to string. This function achieves casting of real to string.

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in),	optional		::	no_sign
real(kind=R8P),	intent(in)			::	n

Return Value character(len=DR8P)

private elemental function str_R4P(no_sign, n) result(str)

The function str_R4P converts real to string. This function achieves casting of real to string.

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in),	optional		::	no_sign
real(kind=R4P),	intent(in)			::	n

Return Value character(len=DR4P)

private elemental function str_I8P(no_sign, n) result(str)

The function str_I8P converts integer to string. This function achieves casting of integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in),	optional		::	no_sign
integer(kind=I8P),	intent(in)			::	n

Return Value character(len=DI8P)

private elemental function str_I4P(no_sign, n) result(str)

The function str_I4P converts integer to string. This function achieves casting of integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in),	optional		::	no_sign
integer(kind=I4P),	intent(in)			::	n

Return Value character(len=DI4P)

private elemental function str_I2P(no_sign, n) result(str)

The function str_I2P converts integer to string. This function achieves casting of integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in),	optional		::	no_sign
integer(kind=I2P),	intent(in)			::	n

Return Value character(len=DI2P)

private elemental function str_I1P(no_sign, n) result(str)

The function str_I1P converts integer to string. This function achieves casting of integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in),	optional		::	no_sign
integer(kind=I1P),	intent(in)			::	n

Return Value character(len=DI1P)

private elemental function strz_I8P(nz_pad, n) result(str)

The function strz_I8P converts integer to string, prefixing with the right number of zeros. This function achieves casting of integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4P),	intent(in),	optional		::	nz_pad
integer(kind=I8P),	intent(in)			::	n

Return Value character(len=DI8P)

private elemental function strz_I4P(nz_pad, n) result(str)

The function strz_I4P converts integer to string, prefixing with the right number of zeros. This function achieves casting of integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4P),	intent(in),	optional		::	nz_pad
integer(kind=I4P),	intent(in)			::	n

Return Value character(len=DI4P)

private elemental function strz_I2P(nz_pad, n) result(str)

The function strz_I2P converts integer to string, prefixing with the right number of zeros. This function achieves casting of integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4P),	intent(in),	optional		::	nz_pad
integer(kind=I2P),	intent(in)			::	n

Return Value character(len=DI2P)

private elemental function strz_I1P(nz_pad, n) result(str)

The function strz_I1P converts integer to string, prefixing with the right number of zeros. This function achieves casting of integer to string.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4P),	intent(in),	optional		::	nz_pad
integer(kind=I1P),	intent(in)			::	n

Return Value character(len=DI1P)

private function ctor_R16P(str, knd) result(n)

The function ctor_R16P converts string to real. This function achieves casting of string to real.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	str
real(kind=R16P),	intent(in)			::	knd

Return Value real(kind=R16P)

private function ctor_R8P(str, knd) result(n)

The function ctor_R8P converts string to real. This function achieves casting of string to real.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	str
real(kind=R8P),	intent(in)			::	knd

Return Value real(kind=R8P)

private function ctor_R4P(str, knd) result(n)

The function ctor_R4P converts string to real. This function achieves casting of string to real.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	str
real(kind=R4P),	intent(in)			::	knd

Return Value real(kind=R4P)

private function ctoi_I8P(str, knd) result(n)

The function ctoi_I8P converts string to integer. This function achieves casting of string to integer.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	str
integer(kind=I8P),	intent(in)			::	knd

Return Value integer(kind=I8P)

private function ctoi_I4P(str, knd) result(n)

The function ctoi_I4P converts string to integer. This function achieves casting of string to integer.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	str
integer(kind=I4P),	intent(in)			::	knd

Return Value integer(kind=I4P)

private function ctoi_I2P(str, knd) result(n)

The function ctoi_I2P converts string to integer. This function achieves casting of string to integer.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	str
integer(kind=I2P),	intent(in)			::	knd

Return Value integer(kind=I2P)

private function ctoi_I1P(str, knd) result(n)

The function ctoi_I1P converts string to integer. This function achieves casting of string to integer.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	str
integer(kind=I1P),	intent(in)			::	knd

Return Value integer(kind=I1P)

Subroutines

public subroutine IR_Print()

The subroutine IR_Print print to the standard output the kind definition of reals and integers and the utility variables.

Arguments

None

IR_VTK Module

Contents

Used by

Contents

Variables

Interfaces

public interface str

private elemental function str_R16P(no_sign, n) result(str)

Arguments

Return Value character(len=DR16P)

private elemental function str_R8P(no_sign, n) result(str)

Arguments

Return Value character(len=DR8P)

private elemental function str_R4P(no_sign, n) result(str)

Arguments

Return Value character(len=DR4P)

private elemental function str_I8P(no_sign, n) result(str)

Arguments

Return Value character(len=DI8P)

private elemental function str_I4P(no_sign, n) result(str)

Arguments

Return Value character(len=DI4P)

private elemental function str_I2P(no_sign, n) result(str)

Arguments

Return Value character(len=DI2P)

private elemental function str_I1P(no_sign, n) result(str)

Arguments

Return Value character(len=DI1P)

public interface strz

private elemental function strz_I8P(nz_pad, n) result(str)

Arguments

Return Value character(len=DI8P)

private elemental function strz_I4P(nz_pad, n) result(str)

Arguments

Return Value character(len=DI4P)

private elemental function strz_I2P(nz_pad, n) result(str)

Arguments

Return Value character(len=DI2P)

private elemental function strz_I1P(nz_pad, n) result(str)

Arguments

Return Value character(len=DI1P)

public interface cton

private function ctor_R16P(str, knd) result(n)

Arguments

Return Value real(kind=R16P)

private function ctor_R8P(str, knd) result(n)

Arguments

Return Value real(kind=R8P)

private function ctor_R4P(str, knd) result(n)

Arguments

Return Value real(kind=R4P)

private function ctoi_I8P(str, knd) result(n)

Arguments

Return Value integer(kind=I8P)

private function ctoi_I4P(str, knd) result(n)

Arguments

Return Value integer(kind=I4P)

private function ctoi_I2P(str, knd) result(n)

Arguments

Return Value integer(kind=I2P)

private function ctoi_I1P(str, knd) result(n)

Arguments

Return Value integer(kind=I1P)

Functions

private elemental function str_R16P(no_sign, n) result(str)

Arguments

Return Value character(len=DR16P)

private elemental function str_R8P(no_sign, n) result(str)

Arguments

Return Value character(len=DR8P)

private elemental function str_R4P(no_sign, n) result(str)

Arguments

Return Value character(len=DR4P)

private elemental function str_I8P(no_sign, n) result(str)

Arguments

Return Value character(len=DI8P)

private elemental function str_I4P(no_sign, n) result(str)

Arguments

Return Value character(len=DI4P)

private elemental function str_I2P(no_sign, n) result(str)