libSUFR
a LIBrary of Some Useful Fortran Routines
All Classes Namespaces Files Functions Variables Pages
system.f90 File Reference

(libSUFR version 0.7.8, revision 407, hash 01069b8, 2025-03-02)

System-related procedures. More...

Go to the source code of this file.

Modules

module  sufr_system
 System-related procedures.
 

Functions/Subroutines

subroutine sufr_system::quit_program (message)
 Print a message to StdOut and stop the execution of the current program.
 
subroutine sufr_system::quit_program_warning (message, status)
 Print a warning to StdOut and stop the execution of the current program.
 
subroutine sufr_system::quit_program_error (message, status)
 Print an error message to StdErr and stop the execution of the current program.
 
subroutine sufr_system::execute_command_line_verbose (command, wait, status, quit_on_error)
 Execute a shell command and print a message upon error. Optionally stop the execution of the current program in that case.
 
subroutine sufr_system::execute_command_line_quit_on_error (command, wait, status)
 Execute a shell command. Upon error, print a message and stop the execution of the current program.
 
character function, dimension(1024 *10) sufr_system::execute_command_line_and_return_str (command, wait, status)
 Execute a shell command and return the result as a string.
 
integer function sufr_system::execute_command_line_and_return_int (command, wait, status)
 Execute a shell command and return the result as an integer.
 
subroutine sufr_system::syntax_print (syntax, descr)
 Print a syntax message to StdErr.
 
subroutine sufr_system::syntax_quit (syntax, status, descr)
 Print a syntax message to StdErr and stop the execution of the current program.
 
subroutine sufr_system::file_open_error (filename, filetype, iostat, iomsg)
 Print a message to StdErr upon file open error.
 
subroutine sufr_system::file_open_error_quit (filename, filetype, iostat, iomsg)
 Print a message to StdErr on file open error, and stop the execution of the current program.
 
subroutine sufr_system::file_read_error (filename, line, procedure, iostat, iomsg)
 Print a message to StdErr on file read error.
 
subroutine sufr_system::file_read_error_quit (filename, line, status, procedure, iostat, iomsg)
 Print a message to StdErr on file read error, and stop the execution of the current program.
 
subroutine sufr_system::file_write_error (filename, line)
 Print a message to StdErr on file write error.
 
subroutine sufr_system::file_write_error_quit (filename, line, status)
 Print a message to StdErr on file write error, and stop the execution of the current program.
 
subroutine sufr_system::file_end_error (filename)
 Print a message to StdErr on reaching the end of a file while reading.
 
subroutine sufr_system::file_end_quit (filename, status)
 Print a message to StdErr on reaching the end of a file while reading, and stop the code.
 
subroutine sufr_system::file_read_end_error (filename, line, readstatus, stopcode, exitstatus, message)
 Print a message to StdErr on read error or reaching the end of a file while reading, and optionally stop the code.
 
subroutine sufr_system::warn (message, unit)
 Print a warning to StdOut or StErr.
 
subroutine sufr_system::error (message, unit)
 Print an error to StdOut or StErr.
 
subroutine sufr_system::system_time (year, month, day, hour, minute, second, tz)
 Get date and time from the system clock.
 
real(double) function sufr_system::timestamp ()
 Return the time stamp in seconds since 1970-01-01 00:00:00 UTC.
 
subroutine sufr_system::printprogressbar (frac, timestamp0)
 Print a text progress bar to the screen, optionally with estimated time left.
 
pure character function, dimension(8) sufr_system::tms (t)
 Print time as mm:ss.s string, input in hours.
 
subroutine sufr_system::print_runtimes (calltype, sp, dec)
 Print run times: wall time and CPU time.
 
subroutine sufr_system::print_cputime (sp, dec, unit)
 Print CPU time since the first execution of the program.
 
subroutine sufr_system::find_free_io_unit (unit)
 Find the first unused I/O unit larger than 100.
 
subroutine sufr_system::file_skip_header (unit, nlines)
 Skip the next (e.g. first) lines of a file.
 
pure subroutine sufr_system::swapint (int1, int2)
 Swap two integer variables.
 
pure subroutine sufr_system::swapreal (rl1, rl2)
 Swap two single-precision real variables.
 
pure subroutine sufr_system::swapdbl (dbl1, dbl2)
 Swap two double-precision real variables.
 
subroutine sufr_system::swapstr (str1, str2)
 Swap two strings.
 

Detailed Description

System-related procedures.

Definition in file system.f90.