Functions | |
real *8 | string_to_real (string) |
Convert a string to a real. | |
subroutine | inout_tabs_to_spaces (line) |
Expand all tabs in a line into single spaces (one tab makes one space). | |
subroutine | read_char_raw (unit, char, eol, eof) |
Read a single character from a file, signaling if we have hit EOL or EOF. If EOL or EOF are true then the character value should be ignored. A file containing a single line with a single character on it will first return the character with EOL and EOF both false, then will return with EOL true but EOF false, and finally will return with EOL false and EOF true. | |
subroutine | read_word_raw (unit, word, eol, eof) |
Read a white-space delimited word from a file, signaling if we have EOL or EOF. If EOL or EOF are true then the word will still be meaningful data. If there was no data to be read then len(word) will be 0. | |
Variables | |
integer, parameter | MAX_INPUT_FILES = 10000 |
integer, parameter | out_unit = 40 |
integer, parameter | in_unit_start = 41 |
character(len=1000) | filename |
integer | ios |
character(len=1000) | word1 |
character(len=1000) | word2 |
logical | eol1 |
logical | eol2 |
logical | eof1 |
logical | eof2 |
real *8 | total |
integer | row |
integer | col |
integer | i_file |
integer | n_file |
integer, dimension(max_input_files) | in_units |
subroutine numeric_average::inout_tabs_to_spaces | ( | character(len=*),intent(inout) | line | ) |
Expand all tabs in a line into single spaces (one tab makes one space).
line | Complete input line. |
subroutine numeric_average::read_char_raw | ( | integer,intent(in) | unit, | |
character,intent(out) | char, | |||
logical,intent(out) | eol, | |||
logical,intent(out) | eof | |||
) |
Read a single character from a file, signaling if we have hit EOL or EOF. If EOL or EOF are true then the character value should be ignored. A file containing a single line with a single character on it will first return the character with EOL and EOF both false, then will return with EOL true but EOF false, and finally will return with EOL false and EOF true.
unit | Unit number to read from. |
char | Character read. |
eol | True if at EOL (end of line). |
eof | True if at EOF (end of file). |
subroutine numeric_average::read_word_raw | ( | integer,intent(in) | unit, | |
character(len=*),intent(out) | word, | |||
logical,intent(out) | eol, | |||
logical,intent(out) | eof | |||
) |
Read a white-space delimited word from a file, signaling if we have EOL or EOF. If EOL or EOF are true then the word will still be meaningful data. If there was no data to be read then len(word) will be 0.
unit | Unit number to read from. |
word | Word read. |
eol | True if at EOL (end of line). |
eof | True if at EOF (end of file). |
real*8 numeric_average::string_to_real | ( | character(len=*),intent(in) | string | ) |
Convert a string to a real.
string | String to convert. |
integer numeric_average::col |
logical numeric_average::eof1 |
logical numeric_average::eof2 |
logical numeric_average::eol1 |
logical numeric_average::eol2 |
character(len=1000) numeric_average::filename |
integer numeric_average::i_file |
integer,parameter numeric_average::in_unit_start = 41 |
integer,dimension(max_input_files) numeric_average::in_units |
integer numeric_average::ios |
integer,parameter numeric_average::MAX_INPUT_FILES = 10000 |
integer numeric_average::n_file |
integer,parameter numeric_average::out_unit = 40 |
integer numeric_average::row |
real*8 numeric_average::total |
character(len=1000) numeric_average::word1 |
character(len=1000) numeric_average::word2 |