Function Dimag

Part of:

package f2cl-lib
( dimag < c > )