eugene@pioneer.arpa (Eugene Miya N.) (08/03/87)
Apparently few who read comp.arch also read sci.math.stat. I could use
some help from other IMSL sites. In particular, I need to have the
program below run on as wide a variety of machines as possible. The
program comes from the IMSL manual. Please run it on non-Unix systems
as well as Unix systems. Please send the results of the run back to
me. If you have doubt (I don't need 1000 different VAX or SUN runs),
ask me if I have a particular machine. This program should require no
modification. Just give it the command language to compiler and link
(load). In particular I could use machines like DEC-10/20s, Univacs,
and a 16-bit machine or two. (IBM's big and small: sure).
Thanks. Next time I post, I'll give a summary (follow to requests)
and references on disk striping. (Note the earlier typo).
From the Rock of Ages Home for Retired Hackers:
--eugene miya
NASA Ames Research Center
eugene@ames-aurora.ARPA
"You trust the `reply' command with all those different mailers out there?"
"Send mail, avoid follow-ups. If enough, I'll summarize."
{hplabs,hao,ihnp4,decwrl,allegra,tektronix,menlo70}!ames!aurora!eugene
---------------------------cut here-------------------------------
INTEGER NR
REAL R(100)
DOUBLE PRECISION DSEED
DSEED = 123457.D0
NR = 100
CALL GGUBS (DSEED,NR,R)
WRITE(6,10) DSEED
WRITE(6,20) (I,R(I),I=1,100)
10 FORMAT(' DSEED = ',D12.1)
20 FORMAT(' R(',I3,') = ',F9.6)
STOP
END
C IMSL manual example
C DSEED 801129707.D0
C R(1) = .96622
C . . .
C R(100) = .37306