Documentation for module string_utilities

Utilities for string manipulations

source: string_utilities.F
Loading...

Generic procedures:

s2a
s2a_1
s2a_2
s2a_3
s2a_4
s2a_5
s2a_6
s2a_7
s2a_8
s2a_9
s2a_10
s2a_11
s2a_12
s2a_13
s2a_14
s2a_15
s2a_16
s2a_17
s2a_18
s2a_19
s2a_20
s2a_21
s2a_22
s2a_23
s2a_24
s2a_25
s2a_26
s2a_27
s2a_28
s2a_29
s2a_30
s2a_31
s2a_32
s2a_33
s2a_34
s2a_35
s2a_36
s2a_37
s2a_38
s2a_39

public Subroutines/Functions:

FUNCTION
CHARACTER(size(array)) PURE
a2s (array)
Converts a character-array into a string
Convert a sequence of integer numbers (ASCII code) to a string. Blanks are inserted for invalid ASCII code numbers.
SUBROUTINE
compress (string, full)
Eliminate multiple space characters in a string. If full is .TRUE., then all spaces are eliminated.
Converts an integer number to a string. The WRITE statement will return an error message, if the number of digits of the integer number is larger the than the length of the supplied string.
FUNCTION
LOGICAL
is_whitespace (testchar)
returns .true. if the character passed is a whitespace char.
SUBROUTINE
remove_word (string)
remove a word from a string (words are separated by white spaces)
Convert a string to sequence of integer numbers.
FUNCTION
LOGICAL
str_comp (str1, str2)
...
FUNCTION
CHARACTER(2*len(inp_string))
substitute_special_xml_tokens (inp_string, ltu)
Substitute special XML tokens like "<" or ">" in inp_string. Optionally convert also all lowercase characters to uppercase, if ltu is true.
FUNCTION
INTEGER
typo_match (string, typo_string)
returns a non-zero positive value if typo_string equals string apart from a few typos. It is case sensitive, apart from typos.
SUBROUTINE
uppercase (string)
Convert all lower case characters in a string to upper case.
Write the HTML entity and HTML tag table to unit output_unit
SUBROUTINE
xstring (string, ia, ib)
...

Parameters:

:: html_entity_table(252) = (/"" ","" ","& ","&#38; ","' ","' ","< ","&#60; ","> ","> ","  ","  ","© ","© ","° ","° ","± ","± ","² ","² ","³ ","³ ","· ","· ","¹ ","¹ ","ä ","Ä ","å ","Å ","ç ","Ç ","è ","È ","é ","É ","ê ","Ê ","ò ","Ò ","ó ","Ó ","ô ","Ô ","ö ","Ö ","× ","× ","ü ","Ü ","à ","à ","á ","á ","â ","â ","ä ","ä ","å ","å ","ç ","ç ","è ","è ","é ","é ","ê ","ê ","ò ","ò ","ó ","ó ","ô ","ô ","ö ","ö ","ù ","ù ","ú ","ú ","û ","û ","ü ","ü ","γ ","Γ ","δ ","Δ ","θ ","Θ ","λ ","Λ ","ξ ","Ξ ","π ","Π ","σ ","Σ ","φ ","Φ ","ψ ","Ψ ","ω ","Ω ","α ","α ","β ","β ","γ ","γ ","δ ","δ ","ε ","ε ","ζ ","ζ ","η ","η ","θ ","θ ","ι ","ι ","κ ","κ ","λ ","λ ","μ ","μ ","ν ","ν ","ξ ","ξ ","ο ","ο ","π ","π ","ρ ","ρ ","ς ","ς ","σ ","σ ","τ ","τ ","υ ","υ ","φ ","φ ","χ ","χ ","ψ ","ψ ","ω ","ω ","ϑ","ϑ ","– ","– ","— ","— ","† ","† ","† ","‡ ","• ","… ","… ","… ","‰ ","‰ ","← ","← ","↑ ","↑ ","→ ","→ ","↓ ","↓ ","↔ ","↔ ","← ","⇐ ","↑ ","⇑ ","→ ","⇒ ","↓ ","⇓ ","↔ ","⇔ ","∀ ","∀ ","∂ ","∂ ","∇ ","∇ ","∈ ","∈ ","∉ ","∉ ","∋ ","∋ ","∝ ","∝ ","∞ ","∞ ","∠ ","∠ ","∧ ","∧ ","∨ ","∨ ","∩ ","∩ ","∪ ","∪ ","∼ ","∼ ","≅ ","≅ ","≈ ","≈ ","≠ ","≠ ","≡ ","≡ ","≤ ","≤ ","≥ ","≥ ","⊂ ","⊂ ","⊃ ","⊃ ","⊄ ","⊄ ","⊆ ","⊆ ","⊇ ","⊇ ","⊕ ","⊕ ","⊗ ","⊗ ","⊥ ","⊥ ","⋅ ","⋅ ","⟨ ","〈 ","⟩ ","〉 "/)
CHARACTER(1)
:: newline = achar(10)

Generic procedure s2a

converts a bunch of strings of different length to an array of strings of the same length

CHARACTER(*),
INTENT(in)
:: s1 × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s2 × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s3 × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s4 × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s5 × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s6 × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s7 × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s8 × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s9 × × × × × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s10 × × × × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s11 × × × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s12 × × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s13 × × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s14 × × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s15 × × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s16 × × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s17 × × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s18 × × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s19 × × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s20 × × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s21 × × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s22 × × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s23 × × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s24 × × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s25 × × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s26 × × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s27 × × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s28 × × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s29 × × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s30 × × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s31 × × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s32 × × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s33 × × × × × × ×
CHARACTER(*),
INTENT(in)
:: s34 × × × × × ×
CHARACTER(*),
INTENT(in)
:: s35 × × × × ×
CHARACTER(*),
INTENT(in)
:: s36 × × × ×
CHARACTER(*),
INTENT(in)
:: s37 × × ×
CHARACTER(*),
INTENT(in)
:: s38 × ×
CHARACTER(*),
INTENT(in)
:: s39 ×

PURE FUNCTIONa2s(array)

Converts a character-array into a string

Return Value ::
CHARACTER(size(array))
Arguments:
CHARACTER,
INTENT(in)
:: array(:) ...

SUBROUTINEascii_to_string(nascii, string)

Convert a sequence of integer numbers (ASCII code) to a string. Blanks are inserted for invalid ASCII code numbers.

Arguments:
INTEGER,
INTENT(in)
:: nascii(:) ...
CHARACTER(*),
INTENT(out)
:: string ...

SUBROUTINEcompress(string, full)

Eliminate multiple space characters in a string. If full is .TRUE., then all spaces are eliminated.

Arguments:
CHARACTER(*),
INTENT(inout)
:: string ...
LOGICAL,
INTENT(in),
OPTIONAL
:: full ...

SUBROUTINEinteger_to_string(inumber, string)

Converts an integer number to a string. The WRITE statement will return an error message, if the number of digits of the integer number is larger the than the length of the supplied string.

Arguments:
INTEGER,
INTENT(in)
:: inumber ...
CHARACTER(*),
INTENT(out)
:: string ...

FUNCTIONis_whitespace(testchar)

returns .true. if the character passed is a whitespace char.

Return Value ::
LOGICAL
Arguments:
CHARACTER(1),
INTENT(in)
:: testchar ...

SUBROUTINEremove_word(string)

remove a word from a string (words are separated by white spaces)

Arguments:
CHARACTER(*),
INTENT(inout)
:: string ...

SUBROUTINEstring_to_ascii(string, nascii)

Convert a string to sequence of integer numbers.

Arguments:
CHARACTER(*),
INTENT(in)
:: string ...
INTEGER,
INTENT(out)
:: nascii(:) ...

FUNCTIONstr_comp(str1, str2)

...

Return Value ::
LOGICAL
Arguments:
CHARACTER(*),
INTENT(in)
:: str1 ...
CHARACTER(*),
INTENT(in)
:: str2 ...

FUNCTIONsubstitute_special_xml_tokens(inp_string, ltu)

Substitute special XML tokens like "<" or ">" in inp_string. Optionally convert also all lowercase characters to uppercase, if ltu is true.

Return Value ::
CHARACTER(2*len(inp_string))
Arguments:
CHARACTER(*),
INTENT(in)
:: inp_string ...
LOGICAL,
INTENT(in),
OPTIONAL
:: ltu ...

FUNCTIONtypo_match(string, typo_string)

returns a non-zero positive value if typo_string equals string apart from a few typos. It is case sensitive, apart from typos.

Return Value ::
INTEGER
Arguments:
CHARACTER(*),
INTENT(in)
:: string ...
CHARACTER(*),
INTENT(in)
:: typo_string ...

SUBROUTINEuppercase(string)

Convert all lower case characters in a string to upper case.

Arguments:
CHARACTER(*),
INTENT(inout)
:: string ...

SUBROUTINEwrite_html_tables(output_unit)

Write the HTML entity and HTML tag table to unit output_unit

Arguments:
INTEGER,
INTENT(in)
:: output_unit ...

SUBROUTINExstring(string, ia, ib)

...

Arguments:
CHARACTER(*),
INTENT(in)
:: string ...
INTEGER,
INTENT(out)
:: ia ...
INTEGER,
INTENT(out)
:: ib ...

PURE FUNCTIONs2a_1(s1)

converts a bunch of strings of different length to an array of strings of the same length

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...

PURE FUNCTIONs2a_2(s1, s2)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...

PURE FUNCTIONs2a_3(s1, s2, s3)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...

PURE FUNCTIONs2a_4(s1, s2, s3, s4)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...

PURE FUNCTIONs2a_5(s1, s2, s3, s4, s5)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...

PURE FUNCTIONs2a_6(s1, s2, s3, s4, s5, s6)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...

PURE FUNCTIONs2a_7(s1, s2, s3, s4, s5, s6, s7)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...

PURE FUNCTIONs2a_8(s1, s2, s3, s4, s5, s6, s7, s8)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...

PURE FUNCTIONs2a_9(s1, s2, s3, s4, s5, s6, s7, s8, s9)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...

PURE FUNCTIONs2a_10(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...

PURE FUNCTIONs2a_11(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...

PURE FUNCTIONs2a_12(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...

PURE FUNCTIONs2a_13(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...

PURE FUNCTIONs2a_14(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...

PURE FUNCTIONs2a_15(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...

PURE FUNCTIONs2a_16(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...

PURE FUNCTIONs2a_17(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...

PURE FUNCTIONs2a_18(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...

PURE FUNCTIONs2a_19(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...

PURE FUNCTIONs2a_20(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...

PURE FUNCTIONs2a_21(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...

PURE FUNCTIONs2a_22(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...

PURE FUNCTIONs2a_23(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...

PURE FUNCTIONs2a_24(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...

PURE FUNCTIONs2a_25(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...

PURE FUNCTIONs2a_26(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...

PURE FUNCTIONs2a_27(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...

PURE FUNCTIONs2a_28(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...
CHARACTER(*),
INTENT(in)
:: s28 ...

PURE FUNCTIONs2a_29(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...
CHARACTER(*),
INTENT(in)
:: s28 ...
CHARACTER(*),
INTENT(in)
:: s29 ...

PURE FUNCTIONs2a_30(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...
CHARACTER(*),
INTENT(in)
:: s28 ...
CHARACTER(*),
INTENT(in)
:: s29 ...
CHARACTER(*),
INTENT(in)
:: s30 ...

PURE FUNCTIONs2a_31(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, s31)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...
CHARACTER(*),
INTENT(in)
:: s28 ...
CHARACTER(*),
INTENT(in)
:: s29 ...
CHARACTER(*),
INTENT(in)
:: s30 ...
CHARACTER(*),
INTENT(in)
:: s31 ...

PURE FUNCTIONs2a_32(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, s31, s32)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...
CHARACTER(*),
INTENT(in)
:: s28 ...
CHARACTER(*),
INTENT(in)
:: s29 ...
CHARACTER(*),
INTENT(in)
:: s30 ...
CHARACTER(*),
INTENT(in)
:: s31 ...
CHARACTER(*),
INTENT(in)
:: s32 ...

PURE FUNCTIONs2a_33(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, s31, s32, s33)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...
CHARACTER(*),
INTENT(in)
:: s28 ...
CHARACTER(*),
INTENT(in)
:: s29 ...
CHARACTER(*),
INTENT(in)
:: s30 ...
CHARACTER(*),
INTENT(in)
:: s31 ...
CHARACTER(*),
INTENT(in)
:: s32 ...
CHARACTER(*),
INTENT(in)
:: s33 ...

PURE FUNCTIONs2a_34(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, s31, s32, s33, s34)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...
CHARACTER(*),
INTENT(in)
:: s28 ...
CHARACTER(*),
INTENT(in)
:: s29 ...
CHARACTER(*),
INTENT(in)
:: s30 ...
CHARACTER(*),
INTENT(in)
:: s31 ...
CHARACTER(*),
INTENT(in)
:: s32 ...
CHARACTER(*),
INTENT(in)
:: s33 ...
CHARACTER(*),
INTENT(in)
:: s34 ...

PURE FUNCTIONs2a_35(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, s31, s32, s33, s34, s35)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...
CHARACTER(*),
INTENT(in)
:: s28 ...
CHARACTER(*),
INTENT(in)
:: s29 ...
CHARACTER(*),
INTENT(in)
:: s30 ...
CHARACTER(*),
INTENT(in)
:: s31 ...
CHARACTER(*),
INTENT(in)
:: s32 ...
CHARACTER(*),
INTENT(in)
:: s33 ...
CHARACTER(*),
INTENT(in)
:: s34 ...
CHARACTER(*),
INTENT(in)
:: s35 ...

PURE FUNCTIONs2a_36(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, s31, s32, s33, s34, s35, s36)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...
CHARACTER(*),
INTENT(in)
:: s28 ...
CHARACTER(*),
INTENT(in)
:: s29 ...
CHARACTER(*),
INTENT(in)
:: s30 ...
CHARACTER(*),
INTENT(in)
:: s31 ...
CHARACTER(*),
INTENT(in)
:: s32 ...
CHARACTER(*),
INTENT(in)
:: s33 ...
CHARACTER(*),
INTENT(in)
:: s34 ...
CHARACTER(*),
INTENT(in)
:: s35 ...
CHARACTER(*),
INTENT(in)
:: s36 ...

PURE FUNCTIONs2a_37(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, s31, s32, s33, s34, s35, s36, s37)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...
CHARACTER(*),
INTENT(in)
:: s28 ...
CHARACTER(*),
INTENT(in)
:: s29 ...
CHARACTER(*),
INTENT(in)
:: s30 ...
CHARACTER(*),
INTENT(in)
:: s31 ...
CHARACTER(*),
INTENT(in)
:: s32 ...
CHARACTER(*),
INTENT(in)
:: s33 ...
CHARACTER(*),
INTENT(in)
:: s34 ...
CHARACTER(*),
INTENT(in)
:: s35 ...
CHARACTER(*),
INTENT(in)
:: s36 ...
CHARACTER(*),
INTENT(in)
:: s37 ...

PURE FUNCTIONs2a_38(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, s31, s32, s33, s34, s35, s36, s37, s38)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...
CHARACTER(*),
INTENT(in)
:: s28 ...
CHARACTER(*),
INTENT(in)
:: s29 ...
CHARACTER(*),
INTENT(in)
:: s30 ...
CHARACTER(*),
INTENT(in)
:: s31 ...
CHARACTER(*),
INTENT(in)
:: s32 ...
CHARACTER(*),
INTENT(in)
:: s33 ...
CHARACTER(*),
INTENT(in)
:: s34 ...
CHARACTER(*),
INTENT(in)
:: s35 ...
CHARACTER(*),
INTENT(in)
:: s36 ...
CHARACTER(*),
INTENT(in)
:: s37 ...
CHARACTER(*),
INTENT(in)
:: s38 ...

PURE FUNCTIONs2a_39(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, s31, s32, s33, s34, s35, s36, s37, s38, s39)

...

Return Value ::
CHARACTER(1000)
Arguments:
CHARACTER(*),
INTENT(in)
:: s1 ...
CHARACTER(*),
INTENT(in)
:: s2 ...
CHARACTER(*),
INTENT(in)
:: s3 ...
CHARACTER(*),
INTENT(in)
:: s4 ...
CHARACTER(*),
INTENT(in)
:: s5 ...
CHARACTER(*),
INTENT(in)
:: s6 ...
CHARACTER(*),
INTENT(in)
:: s7 ...
CHARACTER(*),
INTENT(in)
:: s8 ...
CHARACTER(*),
INTENT(in)
:: s9 ...
CHARACTER(*),
INTENT(in)
:: s10 ...
CHARACTER(*),
INTENT(in)
:: s11 ...
CHARACTER(*),
INTENT(in)
:: s12 ...
CHARACTER(*),
INTENT(in)
:: s13 ...
CHARACTER(*),
INTENT(in)
:: s14 ...
CHARACTER(*),
INTENT(in)
:: s15 ...
CHARACTER(*),
INTENT(in)
:: s16 ...
CHARACTER(*),
INTENT(in)
:: s17 ...
CHARACTER(*),
INTENT(in)
:: s18 ...
CHARACTER(*),
INTENT(in)
:: s19 ...
CHARACTER(*),
INTENT(in)
:: s20 ...
CHARACTER(*),
INTENT(in)
:: s21 ...
CHARACTER(*),
INTENT(in)
:: s22 ...
CHARACTER(*),
INTENT(in)
:: s23 ...
CHARACTER(*),
INTENT(in)
:: s24 ...
CHARACTER(*),
INTENT(in)
:: s25 ...
CHARACTER(*),
INTENT(in)
:: s26 ...
CHARACTER(*),
INTENT(in)
:: s27 ...
CHARACTER(*),
INTENT(in)
:: s28 ...
CHARACTER(*),
INTENT(in)
:: s29 ...
CHARACTER(*),
INTENT(in)
:: s30 ...
CHARACTER(*),
INTENT(in)
:: s31 ...
CHARACTER(*),
INTENT(in)
:: s32 ...
CHARACTER(*),
INTENT(in)
:: s33 ...
CHARACTER(*),
INTENT(in)
:: s34 ...
CHARACTER(*),
INTENT(in)
:: s35 ...
CHARACTER(*),
INTENT(in)
:: s36 ...
CHARACTER(*),
INTENT(in)
:: s37 ...
CHARACTER(*),
INTENT(in)
:: s38 ...
CHARACTER(*),
INTENT(in)
:: s39 ...

private Parameters/Types:

Parameters:

INTEGER
:: maxlen_entity_name = 10