libsim Versione 7.1.11

◆ 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 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.