file_t Derived Type

type, public :: file_t


Components

Type Visibility Attributes Name Initial
integer, public :: iunit = 0

Constructor

public interface file_t

  • private function open_file(filename) result(f)

    Arguments

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

    Return Value type(file_t)


Finalization Procedures

final :: close_file

  • private subroutine close_file(me)

    Arguments

    Type IntentOptional Attributes Name
    type(file_t), intent(inout) :: me

Type-Bound Procedures

procedure, public :: n_lines

  • private function n_lines(me)

    Arguments

    Type IntentOptional Attributes Name
    class(file_t), intent(in) :: me

    Return Value integer

procedure, public :: read_line => read_line_from_file

  • private function read_line_from_file(me) result(line)

    Arguments

    Type IntentOptional Attributes Name
    class(file_t), intent(in) :: me

    Return Value character(len=:), allocatable

Source Code

    type,public :: file_t
        integer :: iunit = 0
        contains
        procedure,public :: n_lines
        procedure,public :: read_line => read_line_from_file
        final :: close_file
    end type file_t