libsim
Versione 7.1.6
char_utilities
align_center
c2d
c2i
c2r
cstr_to_fchar
default_columns
f_nblnk
fchar_to_cstr
fchar_to_cstr_alloc
l_nblnk
line_split_get_line
line_split_get_nlines
line_split_new
lowercase
progress_line_alldone
progress_line_update_d
progress_line_update_i
string_match
string_match_v
suffixname
uppercase
wash_char
word_split
◆
suffixname()
character( len( input_string ) ) function, public char_utilities::suffixname
(
character( * ), intent(in)
Input_String
)
Return the suffix of a filename.
Parametri
[in]
input_string
string to be interpreted as a filename
Definizione alla linea
1142
del file
char_utilities.F90
.
1143
! Split off a piece of the pattern
1144
!
1145
do
while
( p <= ptrim )
1146
select case
( pattern(p:p) )
1147
case
( star )
1148
if
( ll .ne. 0 )
exit
1149
method = 1
1150
case
( question )
1151
if
( ll .ne. 0 )
exit
1152
method = 2
Generated with
Doxygen
.