musica_string Module Reference

The string_t type and related functions. More...

Data Types
type	string_t
	Generic string type. More...
interface	to_char
	Converts values to character arrays. More...

Functions/Subroutines
subroutine	string_assign_char (to, from)
	Assigns a string from a character array.
subroutine	string_assign_int (to, from)
	Assigns a string from an integer.
subroutine	string_assign_real (to, from)
	Assigns a string from a real number.
subroutine	string_assign_double (to, from)
	Assigns a string from a double precision real number.
subroutine	string_assign_logical (to, from)
	Assigns a string from a logical.
subroutine	char_assign_string (to, from)
	Assign a character array from a string.
subroutine	real_assign_string (to, from)
	Assign a real from a string.
subroutine	double_assign_string (to, from)
	Assign a double precision real from a string.
subroutine	int_assign_string (to, from)
	Assign an integer from a string.
subroutine	logical_assign_string (to, from)
	Assigns a logical from a string.
elemental type(string_t) function	string_join_string (a, b)
	Joins a string to a string.
elemental type(string_t) function	string_join_char (a, b)
	Joins a string to a character array.
elemental type(string_t) function	string_join_int (a, b)
	Joins a string to an integer.
elemental type(string_t) function	string_join_real (a, b)
	Joins a string to a real number.
elemental type(string_t) function	string_join_double (a, b)
	Joins a string to a double precision real number.
elemental type(string_t) function	string_join_logical (a, b)
	Joins a string to a logical.
logical elemental function	string_equals_string (a, b)
	Compares a string to a string for equality.
logical elemental function	string_equals_char (a, b)
	Compares a string to a character array for equality.
logical elemental function	string_equals_int (a, b)
	Compares a string to a integer for equality.
logical elemental function	string_equals_real (a, b)
	Compares a string to a real number for equality.
logical elemental function	string_equals_double (a, b)
	Compares a string to a double-precision real number for equality.
logical elemental function	string_equals_logical (a, b)
	Compares a string to a logical for equality.
logical elemental function	string_not_equals_string (a, b)
	Compares a string to a string for equality.
logical elemental function	string_not_equals_char (a, b)
	Compares a string to a character array for equality.
logical elemental function	string_not_equals_int (a, b)
	Compares a string to a integer for equality.
logical elemental function	string_not_equals_real (a, b)
	Compares a string to a real number for equality.
logical elemental function	string_not_equals_double (a, b)
	Compares a string to a double-precision real number for equality.
logical elemental function	string_not_equals_logical (a, b)
	Compares a string to a logical for equality.
elemental integer function	length (this)
	Returns the length of the string.
type(string_t) function	to_upper (this)
	Converts a string to upper case.
type(string_t) function	to_lower (this)
	Converts a string to lower case.
type(string_t) function	substring (this, start_index, length)
	Returns a substring.
type(string_t) function, dimension(:), allocatable	split_char (this, splitter, compress)
	Splits a string on a substring.
type(string_t) function, dimension(:), allocatable	split_string (this, splitter, compress)
	Splits a string on a substring.
type(string_t) function	replace (this, from, to)
	Replaces substrings within a string.
character(len=:) function, allocatable	string_to_char (this)
	Converts a string to a character array.
elemental type(string_t) function	char_join_string (a, b)
	Joins a character array to a string.
elemental type(string_t) function	int_join_string (a, b)
	Joins an integer to a string.
elemental type(string_t) function	real_join_string (a, b)
	Joins a real number to a string.
elemental type(string_t) function	double_join_string (a, b)
	Joins a double precision real number to a string.
elemental type(string_t) function	logical_join_string (a, b)
	Joins a logical to a string.
logical elemental function	char_equals_string (a, b)
	Compares a character array to a string for equality.
logical elemental function	int_equals_string (a, b)
	Compares an integer to a string for equality.
logical elemental function	real_equals_string (a, b)
	Compares a real number to a string for equality.
logical elemental function	double_equals_string (a, b)
	Compares a double-precision real number to a string for equality.
logical elemental function	logical_equals_string (a, b)
	Compares a logical to a string for equality.
logical elemental function	char_not_equals_string (a, b)
	Compares a character array to a string for equality.
logical elemental function	int_not_equals_string (a, b)
	Compares an integer to a string for equality.
logical elemental function	real_not_equals_string (a, b)
	Compares a real number to a string for equality.
logical elemental function	double_not_equals_string (a, b)
	Compares a double-precision real number to a string for equality.
logical elemental function	logical_not_equals_string (a, b)
	Compares a logical to a string for equality.
integer function	pack_size (this, comm)
	Returns the size of a binary buffer required to pack the string.
subroutine	mpi_pack (this, buffer, position, comm)
	Packs the string onto a character buffer.
subroutine	mpi_unpack (this, buffer, position, comm)
	Unpacks a string from a character buffer.
character(len=kconvertcharlength) function	int_to_char (val)
	Converts an integer to a char array.
character(len=kconvertcharlength) function	real_to_char (val)
	Converts a real number to a char array.
character(len=kconvertcharlength) function	double_to_char (val)
	Converts a double-precision real number to a char array.
character(len=kconvertcharlength) function	complex_real_to_char (val)
	Converts a real complex number to a char array.
character(len=kconvertcharlength) function	complex_double_to_char (val)
	Converts a double-precision real complex number to a char array.
character(len=kconvertcharlength) function	logical_to_char (val)
	Converts a logical to a char array.
subroutine, public	output_table (header, table, file_unit)
	Output tabular data to a given file unit.
subroutine	assert_msg (code, condition, error_message)
	Local assert function.

Variables
integer(kind=musica_ik), parameter	kconvertcharlength = 100
	Length of character array for to_char conversions.

Detailed Description

The string_t type and related functions.

Function/Subroutine Documentation

assert_msg()

subroutine musica_string::assert_msg ( integer, intent(in) code, logical, intent(in) condition, character(len=*), intent(in) error_message )

private

Local assert function.

Parameters

[in]	code	Unique code for the assertion
[in]	condition	Condition to evaluate
[in]	error_message	Message to display on failure

char_assign_string()

subroutine musica_string::char_assign_string ( character(len=*), intent(inout) to, class(string_t), intent(in) from )

private

Assign a character array from a string.

Parameters

[in,out]	to	Variable to assign
[in]	from	String to assign from

char_equals_string()

logical elemental function musica_string::char_equals_string ( character(len=*), intent(in) a, class(string_t), intent(in) b )

private

Compares a character array to a string for equality.

Parameters

[in]	a	Character array a
[in]	b	String b

char_join_string()

elemental type(string_t) function musica_string::char_join_string ( character(len=*), intent(in) a, class(string_t), intent(in) b )

private

Joins a character array to a string.

Returns

Joined string

Parameters

[in]	a	Character array to join
[in]	b	String to join

char_not_equals_string()

logical elemental function musica_string::char_not_equals_string ( character(len=*), intent(in) a, class(string_t), intent(in) b )

private

Compares a character array to a string for equality.

Parameters

[in]	a	Character array a
[in]	b	String b

complex_double_to_char()

character(len=kconvertcharlength) function musica_string::complex_double_to_char ( complex(kind=musica_dk), intent(in) val )

private

Converts a double-precision real complex number to a char array.

Parameters

[in]

val

Value to convert

complex_real_to_char()

character(len=kconvertcharlength) function musica_string::complex_real_to_char ( complex(kind=musica_rk), intent(in) val )

private

Converts a real complex number to a char array.

Parameters

[in]

val

Value to convert

double_assign_string()

subroutine musica_string::double_assign_string ( real(kind=musica_dk), intent(inout) to, class(string_t), intent(in) from )

private

Assign a double precision real from a string.

Parameters

[in,out]	to	Variable to assign
[in]	from	String to assign from

double_equals_string()

logical elemental function musica_string::double_equals_string ( real(kind=musica_dk), intent(in) a, class(string_t), intent(in) b )

private

Compares a double-precision real number to a string for equality.

Parameters

[in]	a	Double-precision real number a
[in]	b	String b

double_join_string()

elemental type(string_t) function musica_string::double_join_string ( real(kind=musica_dk), intent(in) a, class(string_t), intent(in) b )

private

Joins a double precision real number to a string.

Returns

Joined string

Parameters

[in]	a	Double precision real number to join
[in]	b	String to join

double_not_equals_string()

logical elemental function musica_string::double_not_equals_string ( real(kind=musica_dk), intent(in) a, class(string_t), intent(in) b )

private

Compares a double-precision real number to a string for equality.

Parameters

[in]	a	Double-precition real number a
[in]	b	String b

double_to_char()

character(len=kconvertcharlength) function musica_string::double_to_char ( real(kind=musica_dk), intent(in) val )

private

Converts a double-precision real number to a char array.

Parameters

[in]

val

Value to convert

int_assign_string()

subroutine musica_string::int_assign_string ( integer(kind=musica_ik), intent(inout) to, class(string_t), intent(in) from )

private

Assign an integer from a string.

Parameters

[in,out]	to	Variable to assign
[in]	from	String to assign from

int_equals_string()

logical elemental function musica_string::int_equals_string ( integer(kind=musica_ik), intent(in) a, class(string_t), intent(in) b )

private

Compares an integer to a string for equality.

Parameters

[in]	a	Integer a
[in]	b	String b

int_join_string()

elemental type(string_t) function musica_string::int_join_string ( integer(kind=musica_ik), intent(in) a, class(string_t), intent(in) b )

private

Joins an integer to a string.

Returns

Joined string

Parameters

[in]	a	Integer to join
[in]	b	String to join

int_not_equals_string()

logical elemental function musica_string::int_not_equals_string ( integer(kind=musica_ik), intent(in) a, class(string_t), intent(in) b )

private

Compares an integer to a string for equality.

Parameters

[in]	a	Integer a
[in]	b	String b

int_to_char()

character(len=kconvertcharlength) function musica_string::int_to_char ( integer(kind=musica_ik), intent(in) val )

private

Converts an integer to a char array.

Parameters

[in]

val

Value to convert

length()

elemental integer function musica_string::length ( class(string_t), intent(in) this )

private

Returns the length of the string.

Parameters

[in]

this

String

logical_assign_string()

subroutine musica_string::logical_assign_string ( logical, intent(inout) to, class(string_t), intent(in) from )

private

Assigns a logical from a string.

Parameters

[in,out]	to	Variable to assign
[in]	from	String to assign from

logical_equals_string()

logical elemental function musica_string::logical_equals_string ( logical, intent(in) a, class(string_t), intent(in) b )

private

Compares a logical to a string for equality.

Parameters

[in]	a	Logical a
[in]	b	String b

logical_join_string()

elemental type(string_t) function musica_string::logical_join_string ( logical, intent(in) a, class(string_t), intent(in) b )

private

Joins a logical to a string.

Returns

Joined string

Parameters

[in]	a	Logical to join
[in]	b	String to join

logical_not_equals_string()

logical elemental function musica_string::logical_not_equals_string ( logical, intent(in) a, class(string_t), intent(in) b )

private

Compares a logical to a string for equality.

Parameters

[in]	a	Logical a
[in]	b	String b

logical_to_char()

character(len=kconvertcharlength) function musica_string::logical_to_char ( logical, intent(in) val )

private

Converts a logical to a char array.

Parameters

[in]

val

Value to convert

mpi_pack()

subroutine musica_string::mpi_pack ( class(string_t), intent(in) this, character, dimension(:), intent(inout) buffer, integer, intent(inout) position, integer, intent(in) comm )

private

Packs the string onto a character buffer.

Parameters

[in]	this	String to pack
[in,out]	buffer	Memory buffer
[in,out]	position	Current buffer position
[in]	comm	MPI communicator

mpi_unpack()

subroutine musica_string::mpi_unpack ( class(string_t), intent(out) this, character, dimension(:), intent(inout) buffer, integer, intent(inout) position, integer, intent(in) comm )

private

Unpacks a string from a character buffer.

Parameters

[out]	this	String to be unpacked
[in,out]	buffer	Memory buffer
[in,out]	position	Current buffer position
[in]	comm	MPI communicator

output_table()

subroutine, public musica_string::output_table	(	type(string_t), dimension(:), intent(in)	header,
		type(string_t), dimension(:,:), intent(in)	table,
		integer(kind=musica_ik), intent(in)	file_unit )

Output tabular data to a given file unit.

Parameters

[in]	header	Table header
[in]	table	Table data (column, row)
[in]	file_unit	File unit

real_assign_string()

subroutine musica_string::real_assign_string ( real(kind=musica_rk), intent(inout) to, class(string_t), intent(in) from )

private

Assign a real from a string.

Parameters

[in,out]	to	Variable to assign
[in]	from	String to assign from

real_equals_string()

logical elemental function musica_string::real_equals_string ( real(kind=musica_rk), intent(in) a, class(string_t), intent(in) b )

private

Compares a real number to a string for equality.

Parameters

[in]	a	Real number a
[in]	b	String b

real_join_string()

elemental type(string_t) function musica_string::real_join_string ( real(kind=musica_rk), intent(in) a, class(string_t), intent(in) b )

private

Joins a real number to a string.

Returns

Joined string

Parameters

[in]	a	Real number to join
[in]	b	String to join

real_not_equals_string()

logical elemental function musica_string::real_not_equals_string ( real(kind=musica_rk), intent(in) a, class(string_t), intent(in) b )

private

Compares a real number to a string for equality.

Parameters

[in]	a	Real number a
[in]	b	String b

real_to_char()

character(len=kconvertcharlength) function musica_string::real_to_char ( real(kind=musica_rk), intent(in) val )

private

Converts a real number to a char array.

Parameters

[in]

val

Value to convert

replace()

type(string_t) function musica_string::replace ( class(string_t) this, character(len=*), intent(in) from, character(len=*), intent(in) to )

private

Replaces substrings within a string.

Example:

type(string_t) :: my_string
my_string = 
my_string = my_string%replace( 'foo', 'bar' )
write(*,*) my_string

Output:

bar bar barbar

Returns

String with replacements

Parameters

	this	Original string
[in]	from	Sub-string to replace
[in]	to	Replacement string

split_char()

type(string_t) function, dimension(:), allocatable musica_string::split_char ( class(string_t), intent(in) this, character(len=*), intent(in) splitter, logical, intent(in), optional compress )

private

Splits a string on a substring.

Example:

type(string_t) :: my_string
type(string_t), allocatable :: sub_strings(:)
integer :: i
my_string = 
sub_strings = my_string%split( ' ' )
do i = 1, size( sub_strings )
  write(*,*) i, sub_strings( i )
end do
sub_strings = my_string%split( ' ', .true. )
do i = 1, size( sub_strings )
  write(*,*) i, sub_strings( i )
end do

Output:

1  my
2  original
3
4
5
6  string
1  my
2  original
3  string

Returns

Split string

Parameters

[in]	this	Full string
[in]	splitter	String to split on
[in]	compress	Compress (default = false)

No 0-length substrings will be returned (adjacent tokens will be merged; tokens at the beginning and end of the original string will be ignored)

split_string()

type(string_t) function, dimension(:), allocatable musica_string::split_string ( class(string_t), intent(in) this, type(string_t), intent(in) splitter, logical, intent(in), optional compress )

private

Splits a string on a substring.

See string_split_char for description and example

Returns

Split string

Parameters

[in]	this	Full string
[in]	splitter	String to split on
[in]	compress	Compress (default = false)

No 0-length substrings will be returned (adjacent tokens will be merged; tokens at the beginning and end of the original string will be ignored)

string_assign_char()

subroutine musica_string::string_assign_char ( class(string_t), intent(out) to, character(len=*), intent(in) from )

private

Assigns a string from a character array.

Parameters

[out]	to	String to assign
[in]	from	New string value

string_assign_double()

subroutine musica_string::string_assign_double ( class(string_t), intent(out) to, real(kind=musica_dk), intent(in) from )

private

Assigns a string from a double precision real number.

Parameters

[out]	to	String to assign
[in]	from	New string value

string_assign_int()

subroutine musica_string::string_assign_int ( class(string_t), intent(out) to, integer(kind=musica_ik), intent(in) from )

private

Assigns a string from an integer.

Parameters

[out]	to	String to assign
[in]	from	New string value

string_assign_logical()

subroutine musica_string::string_assign_logical ( class(string_t), intent(out) to, logical, intent(in) from )

private

Assigns a string from a logical.

Parameters

[out]	to	String to assign
[in]	from	New string value

string_assign_real()

subroutine musica_string::string_assign_real ( class(string_t), intent(out) to, real(kind=musica_rk), intent(in) from )

private

Assigns a string from a real number.

Parameters

[out]	to	String to assign
[in]	from	New string value

string_equals_char()

logical elemental function musica_string::string_equals_char ( class(string_t), intent(in) a, character(len=*), intent(in) b )

private

Compares a string to a character array for equality.

Parameters

[in]	a	String a
[in]	b	Character array b

string_equals_double()

logical elemental function musica_string::string_equals_double ( class(string_t), intent(in) a, real(kind=musica_dk), intent(in) b )

private

Compares a string to a double-precision real number for equality.

Parameters

[in]	a	String a
[in]	b	Double-precition real number b

string_equals_int()

logical elemental function musica_string::string_equals_int ( class(string_t), intent(in) a, integer(kind=musica_ik), intent(in) b )

private

Compares a string to a integer for equality.

Parameters

[in]	a	String a
[in]	b	Integer b

string_equals_logical()

logical elemental function musica_string::string_equals_logical ( class(string_t), intent(in) a, logical, intent(in) b )

private

Compares a string to a logical for equality.

Parameters

[in]	a	String a
[in]	b	Logical b

string_equals_real()

logical elemental function musica_string::string_equals_real ( class(string_t), intent(in) a, real(kind=musica_rk), intent(in) b )

private

Compares a string to a real number for equality.

Parameters

[in]	a	String a
[in]	b	Real number b

string_equals_string()

logical elemental function musica_string::string_equals_string ( class(string_t), intent(in) a, class(string_t), intent(in) b )

private

Compares a string to a string for equality.

Parameters

[in]	a	String a
[in]	b	String b

string_join_char()

elemental type(string_t) function musica_string::string_join_char ( class(string_t), intent(in) a, character(len=*), intent(in) b )

private

Joins a string to a character array.

Returns

Joined string

Parameters

[in]	a	String to join
[in]	b	Character array to join

string_join_double()

elemental type(string_t) function musica_string::string_join_double ( class(string_t), intent(in) a, real(kind=musica_dk), intent(in) b )

private

Joins a string to a double precision real number.

Returns

Joined string

Parameters

[in]	a	String to join
[in]	b	Double precision real number to join

string_join_int()

elemental type(string_t) function musica_string::string_join_int ( class(string_t), intent(in) a, integer(kind=musica_ik), intent(in) b )

private

Joins a string to an integer.

Returns

Joined string

Parameters

[in]	a	String to join
[in]	b	Integer to join

string_join_logical()

elemental type(string_t) function musica_string::string_join_logical ( class(string_t), intent(in) a, logical, intent(in) b )

private

Joins a string to a logical.

Returns

Joined string

Parameters

[in]	a	String to join
[in]	b	Logical to join

string_join_real()

elemental type(string_t) function musica_string::string_join_real ( class(string_t), intent(in) a, real(kind=musica_rk), intent(in) b )

private

Joins a string to a real number.

Returns

Joined string

Parameters

[in]	a	String to join
[in]	b	Real number to join

string_join_string()

elemental type(string_t) function musica_string::string_join_string ( class(string_t), intent(in) a, class(string_t), intent(in) b )

private

Joins a string to a string.

Returns

Joined string

Parameters

[in]	a	String to join
[in]	b	String to join

string_not_equals_char()

logical elemental function musica_string::string_not_equals_char ( class(string_t), intent(in) a, character(len=*), intent(in) b )

private

Compares a string to a character array for equality.

Parameters

[in]	a	String a
[in]	b	Character array b

string_not_equals_double()

logical elemental function musica_string::string_not_equals_double ( class(string_t), intent(in) a, real(kind=musica_dk), intent(in) b )

private

Compares a string to a double-precision real number for equality.

Parameters

[in]	a	String a
[in]	b	Double-precition real number b

string_not_equals_int()

logical elemental function musica_string::string_not_equals_int ( class(string_t), intent(in) a, integer(kind=musica_ik), intent(in) b )

private

Compares a string to a integer for equality.

Parameters

[in]	a	String a
[in]	b	Integer b

string_not_equals_logical()

logical elemental function musica_string::string_not_equals_logical ( class(string_t), intent(in) a, logical, intent(in) b )

private

Compares a string to a logical for equality.

Parameters

[in]	a	String a
[in]	b	Logical b

string_not_equals_real()

logical elemental function musica_string::string_not_equals_real ( class(string_t), intent(in) a, real(kind=musica_rk), intent(in) b )

private

Compares a string to a real number for equality.

Parameters

[in]	a	String a
[in]	b	Real number b

string_not_equals_string()

logical elemental function musica_string::string_not_equals_string ( class(string_t), intent(in) a, class(string_t), intent(in) b )

private

Compares a string to a string for equality.

Parameters

[in]	a	String a
[in]	b	String b

string_to_char()

character(len=:) function, allocatable musica_string::string_to_char ( class(string_t), intent(in) this )

private

Converts a string to a character array.

Returns

Converted string

Parameters

[in]

this

String to convert

substring()

type(string_t) function musica_string::substring ( class(string_t), intent(in) this, integer(kind=musica_ik), intent(in) start_index, integer(kind=musica_ik), intent(in) length )

private

Returns a substring.

Example:

type(string_t) :: my_string, sub_string
my_string = 
sub_string = my_string%substring( 4, 5 )
write(*,*) sub_string
sub_string = my_string%substring( 9, 50 )
write(*,*) sub_string

Output:

there
!

Parameters

[in]	this	Full string
[in]	start_index	Starting character index
[in]	length	Length of the substring to return

to_lower()

type(string_t) function musica_string::to_lower ( class(string_t), intent(in) this )

private

Converts a string to lower case.

Adapted from http://www.star.le.ac.uk/~cgp/fortran.html (25 May 2012) Original author: Clive Page

Returns

Converted string

Parameters

[in]

this

String to convert

to_upper()

type(string_t) function musica_string::to_upper ( class(string_t), intent(in) this )

private

Converts a string to upper case.

Adapted from http://www.star.le.ac.uk/~cgp/fortran.html (25 May 2012) Original author: Clive Page

Returns

Converted string

Parameters

[in]

this

String to convert