Message-ID: <20050429015224.GA1445@S127.localdomain>
Date: 2005-04-29T01:52:24Z
From: Jin Shusong
Subject: Fortran dy lib on Solaris
In-Reply-To: <Pine.GSO.4.62.0504281707010.22044@edwin1>
On Thu, Apr 28, 2005 at 05:11:11PM +0100, V Nyirongo wrote:
> Dear all,
>
> Am new on this list but need help:
>
> I have a fortran code which I compile into a dynamic library (on Solaris).
>
> My probem is that when I call this code soon after starting R, it runs ok.
> But it doesn't for the second time without exiting R first. In this code I
> have to generate some random numbers. The problem is not about setting the
> seed.
>
> Anyone with an idea what might be going on?
>
> Thanks,
> Vysaul.
>
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide!
> http://www.R-project.org/posting-guide.html
Dear Vysaul,
You can call srand to set the seed.
implicit none
integer i,seed,time
seed=time()*2-13
call srand(seed)
print*,rand(0)
do 10 i= 1, 10
print*, rand(0)
10 continue
end
At least g77 can support srand and rand
Good luck.
--
Yours Sincerely
Shusong Jin
===============================================================
Add: Meng Wah Complex, RM518 Email: jinss at hkusua.hku.hk
Dept. of Statistics Tel: (+852)28597942
and Actuarial Science fax: (+852)28589041
The Univ. of Hong Kong
Pokfulam Road, Hong Kong