libsim  Versione 7.1.8

◆ default_columns()

integer function, public char_utilities::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 export COLUMNS before running the program, in order for this to work), otherwise it is set to 80.

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 )

Generated with Doxygen.