libsim Versione 7.1.11
|
◆ default_columns()
Return the number of columns in the terminal, if available it is taken from the COLUMNS environment variable (it may be necessary to execute A positive value is returned in any case Definizione alla linea 1120 del file char_utilities.F90. 1121 character(len=1), parameter :: backslash = '\\'
1122 character(len=1), parameter :: star = '*'
1123 character(len=1), parameter :: question = '?'
1124
1125 character(len=len(pattern)) :: literal
1126 integer :: ptrim
1127 integer :: p
1128 integer :: k
1129 integer :: ll
1130 integer :: method
1131 integer :: start
1132 integer :: strim
1133
1134 match = .false.
1135 method = 0
1136 ptrim = len_trim( pattern )
1137 strim = len_trim( string )
|