version_check_header Subroutine

public subroutine version_check_header(unit)

This is called after an open statement of a file that is read checks if a header with serial-number is in the first line if not rewinds the file back to start

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	unit