fdf_utils Module

Uses

- iso_fortran_env
- fdf_prec

Contents

Variables

MAX_LENGTH

Functions

leqi leqi_strict labeleq s2i s2r arr2s s2arr i2s

Subroutines

packlabel chrcap chrlen convert_string_to_array_of_chars convert_array_of_chars_to_string warn die

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=ip),	public,	parameter	::	MAX_LENGTH	=	132

Functions

public function leqi(string1, string2)

Arguments

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

Return Value logical

public function leqi_strict(str1, str2)

Arguments

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

Return Value logical

public function labeleq(s1, s2, logunit)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	s1
character(len=*)				::	s2
integer(kind=ip),		optional		::	logunit

Return Value logical

public function s2i(string)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	string

Return Value integer(kind=ip)

public function s2r(string)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	string

Return Value real(kind=dp)

public function arr2s(string_arr, string_size)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1)				::	string_arr(*)
integer(kind=ip)				::	string_size

Return Value character(len=MAX_LENGTH)

public function s2arr(string)

Arguments

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

Return Value character(len=1), (MAX_LENGTH)

public function i2s(num)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ip)				::	num

Return Value character(len=5)

Subroutines

public subroutine packlabel(s, n)

Arguments

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

public subroutine chrcap(string, nchar)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	string
integer(kind=ip)				::	nchar

public subroutine chrlen(string, nchar, lchar)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	string
integer(kind=ip)				::	nchar
integer(kind=ip)				::	lchar

public subroutine convert_string_to_array_of_chars(str, arr)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	str
character(len=1),	intent(out),		dimension(:)	::	arr

public subroutine convert_array_of_chars_to_string(arr, str)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in),		dimension(:)	::	arr
character(len=*),	intent(out)			::	str

public subroutine warn(string)

Arguments

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

public subroutine die(routine, msg, file, line, unit, rc, cline)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	routine
character(len=*),	intent(in)			::	msg
character(len=*),	intent(in),	optional		::	file
integer(kind=ip),	intent(in),	optional		::	line
integer(kind=ip),	intent(in),	optional		::	unit
integer(kind=ip),	intent(in),	optional		::	rc
character(len=*),	intent(in),	optional		::	cline