Function Dcabs1

Part of:

package f77
( dcabs1 < z > )