Function CopyMaterial( smaterial_id)

Returns a copy of a material