Mercurial > octave-nkf

annotate libcruft/misc/d1mach-tst.for @ 981:73cc20a6976b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-12-14 03:46:24 by jwe] Initial revision
author jwe
date Wed, 14 Dec 1994 03:48:48 +0000
parents
children 5266e351a19c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
981
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
1 program main
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
2 integer i
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
3 double precision d1mach
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
4 do 10 i = 1, 5
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
5 print *, d1mach (i)
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
6 10 continue
73cc20a6976b [project @ 1994-12-14 03:46:24 by jwe]
jwe
parents:
diff changeset
7 end