data_in Subroutine

public subroutine data_in(Nfluid, Oil, Ncut, Ndef, DefComp, zdef, rMdef, rCN, zcomp, rMW, Den, Plus, rMWplus, DenPlus, Nps, wat, watPlus, zM, zMp, Z6p, sumV, w, rn)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	Nfluid
character(len=7)				::	Oil
integer				::	Ncut
integer				::	Ndef
character(len=4)				::	DefComp(maxD)
real(kind=pr),			dimension(maxD)	::	zdef
real(kind=pr),			dimension(maxD)	::	rMdef
integer,			dimension(330)	::	rCN
real(kind=pr),			dimension(imax)	::	zcomp
real(kind=pr),			dimension(imax)	::	rMW
real(kind=pr),			dimension(imax)	::	Den
character(len=7)				::	Plus
real(kind=pr)				::	rMWplus
real(kind=pr)				::	DenPlus
integer				::	Nps
real(kind=pr),			dimension(imax)	::	wat
real(kind=pr)				::	watPlus
real(kind=pr),			dimension(imax)	::	zM
real(kind=pr)				::	zMp
real(kind=pr)				::	Z6p
real(kind=pr)				::	sumV
real(kind=pr),			dimension(imax)	::	w
real(kind=pr),			dimension(imax)	::	rn

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=pr),	public,	dimension(imax)	::	MWt
integer,	public		::	file_unit_1
integer,	public		::	file_unit_2
integer,	public		::	file_unit_3
integer,	public		::	i
integer,	public,	parameter	::	imax	=	48
character(len=30),	public		::	infile
integer,	public		::	j
integer,	public,	parameter	::	maxD	=	15
character(len=30),	public		::	outfile
real(kind=pr),	public,	dimension(imax)	::	zMdef
real(kind=pr),	public		::	zMtotal