stdlib_io Module

Provides a support for file handling (Specification)

version: experimental

Reads a whole ASCII file and loads its contents into a string variable. (Specification)

Summary

Subroutine interface for reading the content of a file into a string.

Description

This subroutine reads the entirety of a specified ASCII file and returns it as a string. The optional err argument allows for handling errors through the library's state_type class. An optional logical flag can be passed to delete the file after reading.

Note

Handles errors using the library's state_type error-handling class. If not provided, exceptions will trigger an error stop.


Uses


Variables

Type Visibility Attributes Name Initial
character(len=*), public, parameter :: FMT_COMPLEX_DP = '(es24.16e3,1x,es24.16e3)'

Format strings with edit descriptors for each type and kind (Specification) Format string for integers Format string for single precision real numbers Format string for souble precision real numbers Format string for extended double precision real numbers Format string for quadruple precision real numbers Format string for single precision complex numbers Format string for double precision complex numbers Format string for extended double precision complex numbers Format string for quadruple precision complex numbers
character(len=*), public, parameter :: FMT_COMPLEX_QP = '(es44.35e4,1x,es44.35e4)'

Format strings with edit descriptors for each type and kind (Specification) Format string for integers Format string for single precision real numbers Format string for souble precision real numbers Format string for extended double precision real numbers Format string for quadruple precision real numbers Format string for single precision complex numbers Format string for double precision complex numbers Format string for extended double precision complex numbers Format string for quadruple precision complex numbers
character(len=*), public, parameter :: FMT_COMPLEX_SP = '(es15.08e2,1x,es15.08e2)'

Format strings with edit descriptors for each type and kind (Specification) Format string for integers Format string for single precision real numbers Format string for souble precision real numbers Format string for extended double precision real numbers Format string for quadruple precision real numbers Format string for single precision complex numbers Format string for double precision complex numbers Format string for extended double precision complex numbers Format string for quadruple precision complex numbers
character(len=*), public, parameter :: FMT_COMPLEX_XDP = '(es26.18e3,1x,es26.18e3)'

Format strings with edit descriptors for each type and kind (Specification) Format string for integers Format string for single precision real numbers Format string for souble precision real numbers Format string for extended double precision real numbers Format string for quadruple precision real numbers Format string for single precision complex numbers Format string for double precision complex numbers Format string for extended double precision complex numbers Format string for quadruple precision complex numbers
character(len=*), public, parameter :: FMT_INT = '(i0)'

Format strings with edit descriptors for each type and kind (Specification) Format string for integers Format string for single precision real numbers Format string for souble precision real numbers Format string for extended double precision real numbers Format string for quadruple precision real numbers Format string for single precision complex numbers Format string for double precision complex numbers Format string for extended double precision complex numbers Format string for quadruple precision complex numbers
character(len=*), public, parameter :: FMT_REAL_DP = '(es24.16e3)'

Format strings with edit descriptors for each type and kind (Specification) Format string for integers Format string for single precision real numbers Format string for souble precision real numbers Format string for extended double precision real numbers Format string for quadruple precision real numbers Format string for single precision complex numbers Format string for double precision complex numbers Format string for extended double precision complex numbers Format string for quadruple precision complex numbers
character(len=*), public, parameter :: FMT_REAL_QP = '(es44.35e4)'

Format strings with edit descriptors for each type and kind (Specification) Format string for integers Format string for single precision real numbers Format string for souble precision real numbers Format string for extended double precision real numbers Format string for quadruple precision real numbers Format string for single precision complex numbers Format string for double precision complex numbers Format string for extended double precision complex numbers Format string for quadruple precision complex numbers
character(len=*), public, parameter :: FMT_REAL_SP = '(es15.8e2)'

Format strings with edit descriptors for each type and kind (Specification) Format string for integers Format string for single precision real numbers Format string for souble precision real numbers Format string for extended double precision real numbers Format string for quadruple precision real numbers Format string for single precision complex numbers Format string for double precision complex numbers Format string for extended double precision complex numbers Format string for quadruple precision complex numbers
character(len=*), public, parameter :: FMT_REAL_XDP = '(es26.18e3)'

Format strings with edit descriptors for each type and kind (Specification) Format string for integers Format string for single precision real numbers Format string for souble precision real numbers Format string for extended double precision real numbers Format string for quadruple precision real numbers Format string for single precision complex numbers Format string for double precision complex numbers Format string for extended double precision complex numbers Format string for quadruple precision complex numbers

Interfaces

public interface get_file

  • private subroutine get_file_char(filename, file, err, delete)

    Reads a whole ASCII file and loads its contents into an allocatable character variable. The function handles error states and optionally deletes the file after reading. Check if the file should be deleted after reading Check file existing Retrieve file size

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename

    Input file name
    character(len=:), intent(out), allocatable :: file

    Output string variable
    type(state_type), intent(out), optional :: err

    [optional] State return flag. On error, if not requested, the code will stop.
    logical, intent(in), optional :: delete

    [optional] Delete file after reading? Default: do not delete

  • private subroutine get_file_string(filename, file, err, delete)

    Reads a whole ASCII file and loads its contents into a string variable. The function handles error states and optionally deletes the file after reading.

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename

    Input file name
    type(string_type), intent(out) :: file

    Output string variable
    type(state_type), intent(out), optional :: err

    [optional] State return flag. On error, if not requested, the code will stop.
    logical, intent(in), optional :: delete

    [optional] Delete file after reading? Default: do not delete

public interface get_line

Read a whole line from a formatted unit into a string variable

  • private subroutine get_line_char(unit, line, iostat, iomsg)

    Read a whole line from a formatted unit into a deferred length character variable

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: unit

    Formatted IO unit
    character(len=:), intent(out), allocatable :: line

    Line to read
    integer, intent(out), optional :: iostat

    Status of operation
    character(len=:), optional, allocatable :: iomsg

    Error message

  • private subroutine get_line_string(unit, line, iostat, iomsg)

    Read a whole line from a formatted unit into a string variable

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: unit

    Formatted IO unit
    type(string_type), intent(out) :: line

    Line to read
    integer, intent(out), optional :: iostat

    Status of operation
    character(len=:), optional, allocatable :: iomsg

    Error message

  • private subroutine get_line_input_char(line, iostat, iomsg)

    Read a whole line from the standard input into a deferred length character variable

    Arguments

    Type IntentOptional Attributes Name
    character(len=:), intent(out), allocatable :: line

    Line to read
    integer, intent(out), optional :: iostat

    Status of operation
    character(len=:), optional, allocatable :: iomsg

    Error message

  • private subroutine get_line_input_string(line, iostat, iomsg)

    Read a whole line from the standard input into a string variable

    Arguments

    Type IntentOptional Attributes Name
    type(string_type), intent(out) :: line

    Line to read
    integer, intent(out), optional :: iostat

    Status of operation
    character(len=:), optional, allocatable :: iomsg

    Error message

public interface loadtxt

Loads a 2D array from a text file (Specification)

  • private subroutine loadtxt_rsp(filename, d, skiprows, max_rows, fmt, delimiter)

    Loads a 2D array from a text file.

    Arguments

    Filename to load the array from

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename

    The array 'd' will be automatically allocated with the correct dimensions
    real(kind=sp), intent(out), allocatable :: d(:,:)

    Skip the first skiprows lines. If skipping more rows than present, a 0-sized array will be returned. The default is 0.
    integer, intent(in), optional :: skiprows

    Read max_rows lines of content after skiprows lines. A negative value results in reading all lines. A value of zero results in no lines to be read. The default value is -1.
    integer, intent(in), optional :: max_rows
    character(len=*), intent(in), optional :: fmt
    character(len=1), intent(in), optional :: delimiter

  • private subroutine loadtxt_rdp(filename, d, skiprows, max_rows, fmt, delimiter)

    Loads a 2D array from a text file.

    Arguments

    Filename to load the array from

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename

    The array 'd' will be automatically allocated with the correct dimensions
    real(kind=dp), intent(out), allocatable :: d(:,:)

    Skip the first skiprows lines. If skipping more rows than present, a 0-sized array will be returned. The default is 0.
    integer, intent(in), optional :: skiprows

    Read max_rows lines of content after skiprows lines. A negative value results in reading all lines. A value of zero results in no lines to be read. The default value is -1.
    integer, intent(in), optional :: max_rows
    character(len=*), intent(in), optional :: fmt
    character(len=1), intent(in), optional :: delimiter

  • private subroutine loadtxt_iint8(filename, d, skiprows, max_rows, fmt, delimiter)

    Loads a 2D array from a text file.

    Arguments

    Filename to load the array from

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename

    The array 'd' will be automatically allocated with the correct dimensions
    integer(kind=int8), intent(out), allocatable :: d(:,:)

    Skip the first skiprows lines. If skipping more rows than present, a 0-sized array will be returned. The default is 0.
    integer, intent(in), optional :: skiprows

    Read max_rows lines of content after skiprows lines. A negative value results in reading all lines. A value of zero results in no lines to be read. The default value is -1.
    integer, intent(in), optional :: max_rows
    character(len=*), intent(in), optional :: fmt
    character(len=1), intent(in), optional :: delimiter

  • private subroutine loadtxt_iint16(filename, d, skiprows, max_rows, fmt, delimiter)

    Loads a 2D array from a text file.

    Arguments

    Filename to load the array from

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename

    The array 'd' will be automatically allocated with the correct dimensions
    integer(kind=int16), intent(out), allocatable :: d(:,:)

    Skip the first skiprows lines. If skipping more rows than present, a 0-sized array will be returned. The default is 0.
    integer, intent(in), optional :: skiprows

    Read max_rows lines of content after skiprows lines. A negative value results in reading all lines. A value of zero results in no lines to be read. The default value is -1.
    integer, intent(in), optional :: max_rows
    character(len=*), intent(in), optional :: fmt
    character(len=1), intent(in), optional :: delimiter

  • private subroutine loadtxt_iint32(filename, d, skiprows, max_rows, fmt, delimiter)

    Loads a 2D array from a text file.

    Arguments

    Filename to load the array from

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename

    The array 'd' will be automatically allocated with the correct dimensions
    integer(kind=int32), intent(out), allocatable :: d(:,:)

    Skip the first skiprows lines. If skipping more rows than present, a 0-sized array will be returned. The default is 0.
    integer, intent(in), optional :: skiprows

    Read max_rows lines of content after skiprows lines. A negative value results in reading all lines. A value of zero results in no lines to be read. The default value is -1.
    integer, intent(in), optional :: max_rows
    character(len=*), intent(in), optional :: fmt
    character(len=1), intent(in), optional :: delimiter

  • private subroutine loadtxt_iint64(filename, d, skiprows, max_rows, fmt, delimiter)

    Loads a 2D array from a text file.

    Arguments

    Filename to load the array from

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename

    The array 'd' will be automatically allocated with the correct dimensions
    integer(kind=int64), intent(out), allocatable :: d(:,:)

    Skip the first skiprows lines. If skipping more rows than present, a 0-sized array will be returned. The default is 0.
    integer, intent(in), optional :: skiprows

    Read max_rows lines of content after skiprows lines. A negative value results in reading all lines. A value of zero results in no lines to be read. The default value is -1.
    integer, intent(in), optional :: max_rows
    character(len=*), intent(in), optional :: fmt
    character(len=1), intent(in), optional :: delimiter

  • private subroutine loadtxt_csp(filename, d, skiprows, max_rows, fmt, delimiter)

    Loads a 2D array from a text file.

    Arguments

    Filename to load the array from

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename

    The array 'd' will be automatically allocated with the correct dimensions
    complex(kind=sp), intent(out), allocatable :: d(:,:)

    Skip the first skiprows lines. If skipping more rows than present, a 0-sized array will be returned. The default is 0.
    integer, intent(in), optional :: skiprows

    Read max_rows lines of content after skiprows lines. A negative value results in reading all lines. A value of zero results in no lines to be read. The default value is -1.
    integer, intent(in), optional :: max_rows
    character(len=*), intent(in), optional :: fmt
    character(len=1), intent(in), optional :: delimiter

  • private subroutine loadtxt_cdp(filename, d, skiprows, max_rows, fmt, delimiter)

    Loads a 2D array from a text file.

    Arguments

    Filename to load the array from

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename

    The array 'd' will be automatically allocated with the correct dimensions
    complex(kind=dp), intent(out), allocatable :: d(:,:)

    Skip the first skiprows lines. If skipping more rows than present, a 0-sized array will be returned. The default is 0.
    integer, intent(in), optional :: skiprows

    Read max_rows lines of content after skiprows lines. A negative value results in reading all lines. A value of zero results in no lines to be read. The default value is -1.
    integer, intent(in), optional :: max_rows
    character(len=*), intent(in), optional :: fmt
    character(len=1), intent(in), optional :: delimiter

public interface savetxt

Saves a 2D array into a text file (Specification)

  • private subroutine savetxt_rsp(filename, d, delimiter)

    Saves a 2D array into a text file.

    Arguments

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    real(kind=sp), intent(in) :: d(:,:)
    character(len=1), intent(in), optional :: delimiter

    Example

     real(sp) :: data(3, 2)
 call savetxt("log.txt", data)

  • private subroutine savetxt_rdp(filename, d, delimiter)

    Saves a 2D array into a text file.

    Arguments

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    real(kind=dp), intent(in) :: d(:,:)
    character(len=1), intent(in), optional :: delimiter

    Example

     real(dp) :: data(3, 2)
 call savetxt("log.txt", data)

  • private subroutine savetxt_iint8(filename, d, delimiter)

    Saves a 2D array into a text file.

    Arguments

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    integer(kind=int8), intent(in) :: d(:,:)
    character(len=1), intent(in), optional :: delimiter

    Example

     integer(int8) :: data(3, 2)
 call savetxt("log.txt", data)

  • private subroutine savetxt_iint16(filename, d, delimiter)

    Saves a 2D array into a text file.

    Arguments

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    integer(kind=int16), intent(in) :: d(:,:)
    character(len=1), intent(in), optional :: delimiter

    Example

     integer(int16) :: data(3, 2)
 call savetxt("log.txt", data)

  • private subroutine savetxt_iint32(filename, d, delimiter)

    Saves a 2D array into a text file.

    Arguments

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    integer(kind=int32), intent(in) :: d(:,:)
    character(len=1), intent(in), optional :: delimiter

    Example

     integer(int32) :: data(3, 2)
 call savetxt("log.txt", data)

  • private subroutine savetxt_iint64(filename, d, delimiter)

    Saves a 2D array into a text file.

    Arguments

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    integer(kind=int64), intent(in) :: d(:,:)
    character(len=1), intent(in), optional :: delimiter

    Example

     integer(int64) :: data(3, 2)
 call savetxt("log.txt", data)

  • private subroutine savetxt_csp(filename, d, delimiter)

    Saves a 2D array into a text file.

    Arguments

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    complex(kind=sp), intent(in) :: d(:,:)
    character(len=1), intent(in), optional :: delimiter

    Example

     complex(sp) :: data(3, 2)
 call savetxt("log.txt", data)

  • private subroutine savetxt_cdp(filename, d, delimiter)

    Saves a 2D array into a text file.

    Arguments

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    complex(kind=dp), intent(in) :: d(:,:)
    character(len=1), intent(in), optional :: delimiter

    Example

     complex(dp) :: data(3, 2)
 call savetxt("log.txt", data)

Functions

public function open(filename, mode, iostat) result(u)

License
Creative Commons License
Version
experimental

Opens a file (Specification)

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
character(len=*), intent(in), optional :: mode
integer, intent(out), optional :: iostat

Return Value integer

public function parse_mode(mode) result(mode_)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: mode

Return Value character(len=3)