copy_file Subroutine

subroutine copy_file(source, destination)

Open the source and destination files Copy the contents of the source file to the destination file

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	source
character(len=*),	intent(in)			::	destination