Fortran - Invocacion de funcion que cree numeros aleatorios

Hi, saben tengo la necesidad de crear numeros de forma aleatoria.
En lenguaje c, es rand(), pero en fortran no se cual es, la necesito urgente para desarrollar un software para un trabajo de la universidad

POR FAVOR, S.O.S

precisamente estoy trabajando con numeros aleatorios, aqui te va una subrutina, espero qeu sirva de algo..

c**************************
FUNCTION ZRAN(ISEED)
c**************************
c GENERADOR DE NUMEROS ALEATORIOS
c computers in physics
c vol. 8, No. 1 (1994) pag.117

implicit double precision (a-h,P-z)
common/semillas/iseed3,iseed2,iseed1

mzran=iseed3-iseed1
if(mzran.lt.0) mzran=mzran+2147483579
iseed3=iseed2
iseed2=iseed1
iseed1=mzran
c n=6906*n+1013904243
iseed=ishft(3533*ishft(iseed,-16)+iand(iseed,65535),16)
# +3533*iand(iseed,65535)
mzran=mzran+iseed
zran=.5+.2328306d-9*mzran
return
end

C ***************************
SUBROUTINE AZARG( ISEED,X )
C ***************************
C ESTA SUBRRUTINA produce numeros al
C azar con DISTRIBUCION GAUSSIANA
C REF:
IMPLICIT DOUBLE PRECISION (A-H,p-Z)
external zran
common/semillas/iseed3,iseed2,iseed1

pi=4.0*atan(1.0)

R=zran(iseed)
S=zran(iseed)
X=SQRT(-2.0*LOG(R))*COS(2.0*PI*S)
RETURN
END

Hola,
Ya veo que han pasado ya unos años, pero me veo con el mismo problema, y quería saber si conseguiste la información que pedías y si podrías compartirla conmigo.
Mi dirección de correo es [email protected]
También lo necesito para un trabajo de universidad...
Muchas gracias.


Autor:
Milton Inostroza Aguilera 1.416
Fecha: 14/10/2003 17:13:29
Asunto: Invocacion de funcion que cree numeros aleatorios
Hi, saben tengo la necesidad de crear numeros de forma aleatoria.
En lenguaje c, es rand(), pero en fortran no se cual es, la necesito urgente para desarrollar un software para un trabajo de la universidad

POR FAVOR, S.O.S