m_inpak90 Module

Uses

- m_realkinds
- m_stdio

Interfaces

public interface fltget

private function fltgetsp(default)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=SP),	intent(in)			::	default

Return Value real(kind=sp)

private function fltgetdp(default)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=DP),	intent(in)			::	default

Return Value real(kind=dp)

Functions

public function i90_GFloat(iret)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	iret

Return Value real(kind=fp)

public function I90_GInt(iret)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	iret

Return Value integer

public function i90_AtoF(string, iret)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	string
integer,	intent(out)			::	iret

Return Value real(kind=fp)

public function i90_atoi(string, iret)

Arguments

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

Return Value integer

public function intget(default)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	default

Return Value integer

public function chrget(default)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1)				::	default

Return Value character(len=1)

public function str2rn(string, iret)

Arguments

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

Return Value real(kind=fp)

Subroutines

public subroutine I90_allLoadF(fname, root, comm, istat)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fname
integer,	intent(in)			::	root
integer,	intent(in)			::	comm
integer,	intent(out)			::	istat

public subroutine I90_Release(stat)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out),	optional		::	stat

public subroutine i90_fullRelease(ier)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	ier

public subroutine I90_LoadF(filen, iret)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	filen
integer				::	iret

public subroutine i90_label(label, iret)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	label
integer				::	iret

public subroutine i90_gline(iret)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	iret

public subroutine i90_GToken(token, iret)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	token
integer				::	iret

public subroutine i90_gstr(string, iret)

Arguments

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

public subroutine lablin(label)

Arguments

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

public subroutine getstr(iret, string)

Arguments

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

public subroutine getwrd(iret, word)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	iret
character(len=*)				::	word

public subroutine rdnext(iret)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	iret

public subroutine strget(string, default)

Arguments

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