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