Workspace_multiply()

Called by the generic function x * y when x and y are of type Workspace.

WORKSPACE_MULTIPLY() w1=Workspace w2=Workspace w1 * w2

Workspace_multiply

The default procedure definition and the calculation of errors for this procedure is shown below. Note that the characteristics of the Left hand workspace are those that define the resultant workspace (ie final length, dimensionality of arrays).

PROCEDURE workspace_multiply; PARAMETERS w1=workspace w2=workspace; RESULT wres

    IF (w1.x = w2.x) AND (w1.xlabel = w2.xlabel)
	wres = w1
	wres.y = w1.y * w2.y
        wres.e = sqrt((w1.y*w2.e)^2 + (w2.y*w1.e)^2)
    ELSE
	printin "Workspaces are not compatible - please re-bin"
    ENDIF

ENDPROCEDURE