Neko
0.9.99
A portable framework for high-order spectral element flow simulations
|
Utilities. More...
Data Types | |
interface | neko_error |
Functions/Subroutines | |
pure integer function, public | filename_suffix_pos (fname) |
Find position (in the string) of a filename's suffix. More... | |
pure integer function, public | filename_tslash_pos (fname) |
Find position (in the string) of a filename's trailing slash. More... | |
subroutine, public | filename_suffix (fname, suffix) |
Extract a filename's suffix. More... | |
subroutine, public | filename_chsuffix (fname, new_fname, new_suffix) |
Change a filename's suffix. More... | |
integer function, public | extract_fld_file_index (fld_filename, default_index) |
Extracts the index of a field file. For example, "myfield.f00045" will return 45 . If the suffix of the file name is invalid, returns a default index value. More... | |
character(len=100) function, dimension(:), allocatable, public | split_string (string, delimiter) |
Split a string based on delimiter (tokenizer) OBS: very hacky, this should really be improved, it is rather embarrasing code. More... | |
pure integer function, public | linear_index (i, j, k, l, lx, ly, lz) |
Compute the address of a (i,j,k,l) array with sizes (1:lx, 1:ly, 1:lz, :) More... | |
pure integer function, dimension(4), public | nonlinear_index (linear_index, lx, ly, lz) |
Compute (i,j,k,l) array given linear index with sizes (1:lx, 1:ly, 1:lz, :) More... | |
pure logical function, public | index_is_on_facet (i, j, k, lx, ly, lz, facet) |
subroutine | neko_error_plain (error_code) |
Reports an error and stops execution. More... | |
subroutine | neko_error_msg (error_msg) |
Reports an error and stops execution. More... | |
subroutine, public | neko_warning (warning_msg) |
Reports a warning to standard output. More... | |
character(:) function, allocatable, public | concat_string_array (array, sep, prepend) |
Concatenate an array of strings into one string with array items separated by spaces. More... | |
Variables | |
integer, parameter, public | neko_fname_len = 1024 |
Various utility functions
character(:) function, allocatable, public utils::concat_string_array | ( | character(len=*), dimension(:), intent(in) | array, |
character(len=*), intent(in) | sep, | ||
logical, intent(in) | prepend | ||
) |
integer function, public utils::extract_fld_file_index | ( | character(len=*), intent(in) | fld_filename, |
integer, intent(in) | default_index | ||
) |
subroutine, public utils::filename_chsuffix | ( | character(len=*) | fname, |
character(len=*) | new_fname, | ||
character(len=*) | new_suffix | ||
) |
subroutine, public utils::filename_suffix | ( | character(len=*) | fname, |
character(len=*) | suffix | ||
) |
pure integer function, public utils::filename_suffix_pos | ( | character(len=*), intent(in) | fname | ) |
pure integer function, public utils::filename_tslash_pos | ( | character(len=*), intent(in) | fname | ) |
pure logical function, public utils::index_is_on_facet | ( | integer, intent(in) | i, |
integer, intent(in) | j, | ||
integer, intent(in) | k, | ||
integer, intent(in) | lx, | ||
integer, intent(in) | ly, | ||
integer, intent(in) | lz, | ||
integer, intent(in) | facet | ||
) |
pure integer function, public utils::linear_index | ( | integer, intent(in) | i, |
integer, intent(in) | j, | ||
integer, intent(in) | k, | ||
integer, intent(in) | l, | ||
integer, intent(in) | lx, | ||
integer, intent(in) | ly, | ||
integer, intent(in) | lz | ||
) |
|
private |
|
private |
subroutine, public utils::neko_warning | ( | character(len=*) | warning_msg | ) |
pure integer function, dimension(4), public utils::nonlinear_index | ( | integer, intent(in) | linear_index, |
integer, intent(in) | lx, | ||
integer, intent(in) | ly, | ||
integer, intent(in) | lz | ||
) |
character(len=100) function, dimension(:), allocatable, public utils::split_string | ( | character(len=*) | string, |
character(len=*) | delimiter | ||
) |