getdate Function

public function getdate(name) result(s)

Arguments

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

Return Value character(len=:),allocatable

Contents

Variables

cdate fmt line month name_ v

Variables

Type	Visibility	Attributes		Name		Initial
character(len=*),	public,	parameter	::	cdate	=	'(A3,1X,I2.2,1X,I4.4)'
character(len=*),	public,	parameter	::	fmt	=	'(I2.2,A1,I2.2,I3,1X,A3,1x,I4)'
character(len=80),	public		::	line
character(len=*),	public,	parameter	::	month	=	'JanFebMarAprMayJunJulAugSepOctNovDec'
character(len=10),	public		::	name_
integer,	public		::	v(8)