path: root/noao/digiphot/apphot/aputil/apdiverr.x

# AP_DIVERR -- Error condition procedure which returns a value of unity.

real procedure ap_diverr ()

begin
	return (1.0)
end