libsim Versione 7.2.0
|
◆ 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 1114 del file char_utilities.F90. 1115 character(len=*), intent(in) :: string
1116 character(len=*), intent(in) :: pattern
1117 logical :: match
1118
1119! '\\' without -fbackslash generates a warning on gfortran, '\'
1120! crashes doxygen, so we choose '\\' and -fbackslash in configure.ac
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
|