function B = triu( A )

     B = triu( A );

return
