        double precision function enorm1(n) result(y)
            double precision n
            y = dabs(n)
            return
        end function
