TFile Class

module: FileUtils file: FileUtils
Generics
  • LoadTxt
    Procedures:
    • LoadTxt_2D
    • LoadTxt_1D
    • LoadTxt_int_1D
    • LoadTxt_int_2D
  • SaveTxt
    Procedures:
    • WriteTextMatrix
    • WriteTextVector
Subroutines
  • Delete(aname)
    • character(LEN=*) intent(IN) :: aname
  • LoadTxt_1D(aname, n, comment, vec)
    • character(LEN=*) intent(IN) :: aname
    • integer optional, intent(out) :: n
    • character(LEN=:) allocatable, optional, intent(out) :: comment
    • read (InLine,*, iostat=status)  :: vec(j)
  • LoadTxt_2D(aname, m, n, comment)
    • character(LEN=*) intent(IN) :: aname
    • integer optional, intent(out) :: m
    • integer optional, intent(out) :: n
    • character(LEN=:) allocatable, optional, intent(out) :: comment
  • LoadTxt_int_1D(aname, vec, n, comment)
    • character(LEN=*) intent(IN) :: aname
    • integer allocatable, intent(out) :: vec(:)
    • integer optional, intent(out) :: n
    • character(LEN=:) allocatable, optional, intent(out) :: comment
  • LoadTxt_int_2D(aname, mat, m, n, comment)
    • character(LEN=*) intent(IN) :: aname
    • integer allocatable, intent(out) :: mat(:,:)
    • integer optional, intent(out) :: m
    • integer optional, intent(out) :: n
    • character(LEN=:) allocatable, optional, intent(out) :: comment
  • ReadTextMatrix(aname, inm, inn, mat)
    • character(LEN=*) intent(IN) :: aname
    • integer intent(in), optional :: inm
    • integer intent(in), optional :: inn
    • read (InLine,*, iostat=status)  :: mat(j,k)
  • ReadTextVector(aname, n, vec)
    • character(LEN=*) intent(IN) :: aname
    • integer intent(in) :: n
    • class(*) intent(out) :: vec(n)
  • WriteTextMatrix(aname, m, n, fmt, mat)
    • character(LEN=*) intent(IN) :: aname
    • integer intent(in), optional :: m
    • integer intent(in), optional :: n
    • character(LEN=*) intent(in), optional :: fmt
    • class(*) intent(in) :: mat(:,:)
  • WriteTextVector(aname, n, vec, fmt)
    • character(LEN=*) intent(IN) :: aname
    • integer intent(in), optional :: n
    • class(*) intent(in) :: vec(:)
    • character(LEN=*) intent(in), optional :: fmt
Functions
  • character(LEN=:) allocatable
    ChangeExt(aname, ext)
    • character(LEN=*) intent(IN) :: aname
    • character(LEN=*) intent(IN) :: ext
  • logical
    CharIsSlash(C)
    • character intent(in) :: C
  • character(LEN=:) allocatable
    CheckTrailingSlash(aname)
    • character(LEN=*) intent(in) :: aname
  • TTextFile
    CreateTextFile(fname)
    • character(LEN=*) intent(in) :: fname
  • logical
    Exists(aname)
    • character(LEN=*) intent(IN) :: aname
  • character(LEN=:) allocatable
    ExtractExt(aname)
    • character(LEN=*) intent(IN) :: aname
  • character(LEN=:) allocatable
    ExtractName(aname, no_ext, all_ext)
    • character(LEN=*) intent(IN) :: aname
    • logical intent(in), optional :: no_ext
    • logical intent(in), optional :: all_ext
  • character(LEN=:) allocatable
    ExtractPath(aname)
    • character(LEN=*) intent(IN) :: aname
  • logical
    IsFullPath(aname)
    • character(LEN=*) intent(IN) :: aname
  • character(LEN=:) allocatable
    Join(path, aname)
    • character(LEN=*) intent(in) :: path
    • character(LEN=*) intent(in) :: aname
  • character(LEN=:) allocatable
    LastLine(aname)
    • character(LEN=*) intent(IN) :: aname
  • character(LEN=:) allocatable
    LastTopComment(aname)
    Get content of last commented line at the top of file (e.g. column header), without #
    • character(LEN=*) intent(IN) :: aname
  • TTextFile
    OpenTextFile(fname)
    • character(LEN=*) intent(in) :: fname
  • integer(file_size_int)
    Size(name)
    • character(LEN=*) intent(in) :: name
  • character(LEN=:) allocatable
    TopCommentLine(aname)
    Get top comment line in file, including #
    • character(LEN=*) intent(IN) :: aname
  • integer
    TxtColumns(InLine)
    • character(LEN=*)  :: InLine
  • integer
    TxtFileColumns(aname)
    • character(LEN=*) intent(IN) :: aname
  • integer
    TxtFileLines(aname)
    • character(LEN=*) intent(IN) :: aname
  • integer
    TxtNumberColumns(InLine)
    • character(LEN=*)  :: InLine