print_versionserial Subroutine

private subroutine print_versionserial(iunit, version1, version2, version3, version4, serialnr)

Print the version info and header to the output file

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	iunit	Unit identifier for the output file
character(len=*),	intent(in)			::	version1	Version of the code
character(len=*),	intent(in)			::	version2	Compilation option
character(len=*),	intent(in)			::	version3	Compilation option
character(len=*),	intent(in)			::	version4	Compilation option
character(len=*),	intent(in)			::	serialnr	File serial number