libsim  Versione 7.1.8

◆ suffixname()

character( len( input_string ) ) function, public char_utilities::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.