libsim  Versione6.3.0

◆ 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 1140 del file char_utilities.F90.

1140  start = 1
1141 
1142  !
1143  ! Split off a piece of the pattern
1144  !
1145  do while ( p <= ptrim )
1146  select case ( pattern(p:p) )
1147  case( star )
1148  if ( ll .ne. 0 ) exit
1149  method = 1
1150  case( question )
1151  if ( ll .ne. 0 ) exit
1152  method = 2
1153  start = start + 1
1154  case( backslash )
1155  p = p + 1
1156  ll = ll + 1

Generated with Doxygen.