file Derived Type

  1. forlab_io.f90
  2. forlab_io
  3. file

type, public :: file

forlab file derived type. (Specification)


Contents

Constructor

Type-Bound Procedures

Source Code

file

Constructor

public interface file

  • private function init_file(filename, mode)

    File constructs a File object.

    Read more…

    Arguments

    Type IntentOptional AttributesName
    character(len=*), intent(in) :: filename
    character(len=*), intent(in), optional :: mode

    Return Value type(file)


Type-Bound Procedures

procedure, public :: close

  • private subroutine close(self)

    close closes a file object, deallocate file%filename. (Specification)

    Arguments

    Type IntentOptional AttributesName
    class(file), intent(inout) :: self

procedure, public :: countlines => countlines1

  • private subroutine countlines1(self)

    countlines counts the number of lines in a txt file. (Specification)

    Arguments

    Type IntentOptional AttributesName
    class(file), intent(inout) :: self

procedure, public :: exist => file_exist1

  • private function file_exist1(self) result(result)

    file_exist determines whether a file object already exists. (Specification)

    Arguments

    Type IntentOptional AttributesName
    class(file), intent(inout) :: self

    Return Value logical

procedure, public :: open => open_file

  • private subroutine open_file(self)

    Open the file. (Specification)

    Arguments

    Type IntentOptional AttributesName
    class(file), intent(inout) :: self

Source Code

    type file
        character(:), allocatable :: filename
        character(3) :: mode
        integer :: unit
        integer :: lines
    contains
        procedure :: exist => file_exist1
        procedure :: open => open_file
        procedure :: countlines => countlines1
        procedure :: close
    end type file