function copyMaterial( smaterial_id)

Returns a copy of a material