libsim Versione 7.2.1

◆ suffixname()

character( len( input_string ) ) function, public suffixname ( character( * ), intent(in) input_string)

Return the suffix of a filename.

Parametri
[in]input_stringstring to be interpreted as a filename

Definizione alla linea 1136 del file char_utilities.F90.

1137 strim = len_trim( string )
1138 p = 1
1139 ll = 0
1140 start = 1
1141
1142 !
1143 ! Split off a piece of the pattern
1144 !
1145 do while ( p <= ptrim )
1146 select case ( pattern(p:p) )

Generated with Doxygen.