identity_4 Function

public pure function identity_4() result(rst)

Computes a 4-by-4 identity matrix.

Arguments

None

Return Value real(kind=real64), (4,4)

The resulting identity matrix.

Contents

None