Called by the generic function Tan(x) when x is of type Workspace.
WORKSPACE_TAN() w1=Workspace tan(w)
The default procedure definition and the calculation of errors for this procedure is shown below.
PROCEDURE workspace_tan; PARAMETERS w1=workspace; RESULT wres wres = w1 wres.y = tan(w1.y) wres.e = w1.e/(cos(w1.y)^2) ENDPROCEDURE