|
◆ wash_char()
elemental character(len=len(in)) function, public char_utilities::wash_char |
( |
character(len=*), intent(in) |
in, |
|
|
character(len=*), intent(in), optional |
goodchar, |
|
|
character(len=*), intent(in), optional |
badchar |
|
) |
| |
Remove the requested characters from a string.
This function returns a string cleaned from unwanted characters, either by removing "bad" characters (argument badchar) or by keeping only "good" characters (argument goodchar). If neither badchar nor goodchar are provided, it keeps only alphabetic ASCII characters. - Parametri
-
[in] | in | string to be cleaned |
[in] | badchar | optional set of "bad" characters |
[in] | goodchar | optional set of "good" characters |
Definizione alla linea 1162 del file char_utilities.F90.
1169 if ( method == 0 ) then
1173 if ( strim == 0 .and. ptrim == 0 ) then
1180 if ( string(start:min(strim,start+ll-1)) == literal(1:ll then
1182 match = string_match( string(start:), pattern(p:) )
1188 if ( method == 1 ) then
1195 do while ( start <= strim )
1196 k = index( string(start:), literal(1:ll) )
1198 start = start + k + ll - 1
1199 match = string_match( string(start:), pattern(p:) )
1210 if ( method == 2 .and. ll > 0 ) then
1214 if ( string(start:min(strim,start+ll-1)) == literal(1:ll) ) then
1215 match = string_match( string(start+ll:), pattern(p:) )
1219 end function string_match
1222 SUBROUTINE print_status_line(line)
1225 WRITE(stdout_unit, '(2A)',advance= 'no')cr,trim(line)
1227 END SUBROUTINE print_status_line
1229 SUBROUTINE done_status_line()
1230 WRITE(stdout_unit, '()')
1231 END SUBROUTINE done_status_line
1242 SUBROUTINE progress_line_update_d(this, val)
1244 DOUBLE PRECISION, INTENT(in) :: val
|