io_reader_t Derived Type

type, public :: io_reader_t

Base I/O reader type for polymorphic usage

Inherited by

Help

Type-Bound Procedures

procedure, public :: init => base_reader_init

private subroutine base_reader_init(self, comm, name)

Arguments

Type	Intent	Optional	Attributes		Name
class(io_reader_t),	intent(inout)			::	self
integer,	intent(in)			::	comm
character(len=*),	intent(in)			::	name

procedure, public :: open => base_reader_open

private function base_reader_open(self, filename, mode, comm) result(file_handle)

Arguments

Type	Intent	Optional	Attributes		Name
class(io_reader_t),	intent(inout)			::	self
character(len=*),	intent(in)			::	filename
integer,	intent(in)			::	mode
integer,	intent(in)			::	comm

Return Value class(io_file_t), allocatable

procedure, public :: finalise => base_reader_finalise

private subroutine base_reader_finalise(self)

Arguments

Type	Intent	Optional	Attributes		Name
class(io_reader_t),	intent(inout)			::	self

generic, public :: read_data => read_data_i8, read_data_integer, read_data_real, read_data_array_3d

private subroutine read_data_i8_dummy(self, variable_name, value, file_handle)

Arguments

Type	Intent	Optional	Attributes		Name
class(io_dummy_reader_t),	intent(inout)			::	self
character(len=*),	intent(in)			::	variable_name
integer(kind=i8),	intent(out)			::	value
class(io_file_t),	intent(inout)			::	file_handle

private subroutine read_data_integer_dummy(self, variable_name, value, file_handle)

Arguments

Type	Intent	Optional	Attributes		Name
class(io_dummy_reader_t),	intent(inout)			::	self
character(len=*),	intent(in)			::	variable_name
integer,	intent(out)			::	value
class(io_file_t),	intent(inout)			::	file_handle

private subroutine read_data_real_dummy(self, variable_name, value, file_handle)

Arguments

Type	Intent	Optional	Attributes		Name
class(io_dummy_reader_t),	intent(inout)			::	self
character(len=*),	intent(in)			::	variable_name
real(kind=dp),	intent(out)			::	value
class(io_file_t),	intent(inout)			::	file_handle

private subroutine read_data_array_3d_dummy(self, variable_name, array, file_handle, shape_dims, start_dims, count_dims)

Arguments

Type	Intent	Optional	Attributes		Name
class(io_dummy_reader_t),	intent(inout)			::	self
character(len=*),	intent(in)			::	variable_name
real(kind=dp),	intent(inout)			::	array(:,:,:)
class(io_file_t),	intent(inout)			::	file_handle
integer(kind=i8),	intent(in),	optional		::	shape_dims(3)
integer(kind=i8),	intent(in),	optional		::	start_dims(3)
integer(kind=i8),	intent(in),	optional		::	count_dims(3)

procedure, public :: read_data_i8

private subroutine read_data_i8(self, variable_name, value, file_handle)

Arguments

Type	Intent	Optional	Attributes		Name
class(io_reader_t),	intent(inout)			::	self
character(len=*),	intent(in)			::	variable_name
integer(kind=i8),	intent(out)			::	value
class(io_file_t),	intent(inout)			::	file_handle

procedure, public :: read_data_integer

private subroutine read_data_integer(self, variable_name, value, file_handle)

Arguments

Type	Intent	Optional	Attributes		Name
class(io_reader_t),	intent(inout)			::	self
character(len=*),	intent(in)			::	variable_name
integer,	intent(out)			::	value
class(io_file_t),	intent(inout)			::	file_handle

procedure, public :: read_data_real

private subroutine read_data_real(self, variable_name, value, file_handle)

Arguments

Type	Intent	Optional	Attributes		Name
class(io_reader_t),	intent(inout)			::	self
character(len=*),	intent(in)			::	variable_name
real(kind=dp),	intent(out)			::	value
class(io_file_t),	intent(inout)			::	file_handle

procedure, public :: read_data_array_3d

private subroutine read_data_array_3d(self, variable_name, array, file_handle, shape_dims, start_dims, count_dims)

Arguments

Type	Intent	Optional	Attributes		Name
class(io_reader_t),	intent(inout)			::	self
character(len=*),	intent(in)			::	variable_name
real(kind=dp),	intent(inout)			::	array(:,:,:)
class(io_file_t),	intent(inout)			::	file_handle
integer(kind=i8),	intent(in),	optional		::	shape_dims(3)
integer(kind=i8),	intent(in),	optional		::	start_dims(3)
integer(kind=i8),	intent(in),	optional		::	count_dims(3)