Copy_fpt_header Subroutine

private pure subroutine Copy_fpt_header(left, right)

Copy the FPT header information.

Arguments

Type	Intent	Optional	Attributes		Name
type(ply_fpt_header_type),	intent(out)			::	left	fpt to copy to
type(ply_fpt_header_type),	intent(in)			::	right	fpt to copy from