libsim Versione 7.1.11
|
◆ suffixname()
Return the suffix of 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
|