IOFILE Module

+-----------------------------------------------------------------+ PURPOSE : +-----------------------------------------------------------------+

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Interfaces

public interface str

private function str_i_to_ch(i4) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	i4

Return Value character(len=:), allocatable

private function str_i_to_ch_pad(i4, Npad) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	i4
integer				::	Npad

Return Value character(len=:), allocatable

private function str_r_to_ch(r8, d, lead) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	r8
integer,		optional		::	d
integer,		optional		::	lead

Return Value character(len=:), allocatable

private function str_c_to_ch(c, d, lead) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8)				::	c
integer,		optional		::	d
integer,		optional		::	lead

Return Value character(len=:), allocatable

private function str_l_to_ch(bool) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
logical				::	bool

Return Value character(len=1)

private function str_ch_to_ch(txt) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	txt

Return Value character(len=:), allocatable

public interface txtfy

private function str_i_to_ch(i4) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	i4

Return Value character(len=:), allocatable

private function str_i_to_ch_pad(i4, Npad) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	i4
integer				::	Npad

Return Value character(len=:), allocatable

private function str_r_to_ch(r8, d, lead) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	r8
integer,		optional		::	d
integer,		optional		::	lead

Return Value character(len=:), allocatable

private function str_c_to_ch(c, d, lead) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8)				::	c
integer,		optional		::	d
integer,		optional		::	lead

Return Value character(len=:), allocatable

private function str_l_to_ch(bool) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
logical				::	bool

Return Value character(len=1)

private function str_ch_to_ch(txt) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	txt

Return Value character(len=:), allocatable

public interface reg

private function reg_filename(file) result(reg)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	file

Return Value character(len=len_trim)

public interface create_dir

private subroutine create_data_dir(dir_name)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	dir_name

public interface newunit

public function free_unit(n) result(unit_)

Arguments

Type	Intent	Optional	Attributes		Name
integer,		optional		::	n

Return Value integer

public interface print_matrix

private subroutine print_array_d(M, file, w, d)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),			dimension(:,:)	::	M
character(len=*),		optional		::	file
integer,		optional		::	w
integer,		optional		::	d

private subroutine print_array_c(M, file, w, d)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),			dimension(:,:)	::	M
character(len=*),		optional		::	file
integer,		optional		::	w
integer,		optional		::	d

Functions

public function get_filename(string) result(fname)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	string

Return Value character(len=:), allocatable

public function get_filepath(string) result(pname)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	string

Return Value character(len=:), allocatable

public function free_unit(n) result(unit_)

Arguments

Type	Intent	Optional	Attributes		Name
integer,		optional		::	n

Return Value integer

public function free_units(n) result(unit)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	n

Return Value integer, (n)

public function file_size(file, printf) result(size)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	file
logical,		optional		::	printf

Return Value integer

public function file_info(file)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	file

Return Value integer

public function file_length(file) result(lines)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	file

Return Value integer

public function to_upper(strIn) result(strOut)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	strIn

Return Value character(len=len)

public function to_lower(strIn) result(strOut)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	strIn

Return Value character(len=len)

Subroutines

public subroutine set_store_size(size)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	size

public subroutine file_gzip(file, size)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	file
integer,		optional		::	size

public subroutine file_gunzip(filename)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	filename

public subroutine file_targz(tarball, pattern, size)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	tarball
character(len=*)				::	pattern
integer,		optional		::	size

public subroutine file_untargz(tarball)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	tarball