.SH NAME

.SH SYNOPSIS
.TP 17
double precision
function dcabs1(z)
.TP 17
.ti +4
double
complex z,zz
.TP 17
.ti +4
double
precision t(2)
.TP 17
.ti +4
equivalence
(zz,t(1))
.TP 17
.ti +4
zz
= z
.TP 17
.ti +4
dcabs1
= dabs(t(1)) + dabs(t(2))
.TP 17
.ti +4
return
.TP 17
.ti +4
end
.SH PURPOSE