libsim Versione 7.1.11

◆ default_columns()

integer function, public 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.