d5/d7e/d1mach-tst_8for_source.html

       program main

       integer i

       double precision d1mach

       double precision t1, t2

       do 10 i = 1, 5

         print *, d1mach(i)

    10 continue

       end

main
int main(int argc, char **argv)
Definition: main-cli.cc:32

idx_vector::idx_base_rep::print
virtual std::ostream & print(std::ostream &os) const =0