![]() |
libSUFR
a LIBrary of Some Useful Fortran Routines
|
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. | |
System-related procedures.
Definition in file system.f90.